土木在线
资料
论坛
课程
AI规范
成套资料包
APP
下载手机客户端
产品
兑换商城
直播
软件
会议
精品试听季，好课抢鲜听
工程师进阶必备，全套项目资料包来袭！
登录
/
注册
登录土木在线
学习职场硬技能
持续上新实用资料
讲师答疑&多端学习
获取最新政策资讯
免费职称评审服务
立即登录
新用户领取770优惠券
消息
动态
0
正在加载...
查看全部消息
消息设置
正在加载...
查看全部动态
消息设置
土木在线论坛
\
建筑设计
\
CAD下载及教程
\
求lisp：如何将选中文本加括号？
求lisp：如何将选中文本加括号？
如题，望高手赐教！
发布于
2008-06-26 09:17:26
我来答
分享
复制链接
新浪微博
微信扫一扫
举报
全部回答
（2 ）
gemeos
先谢谢二楼朋友的热心帮助！但好像执行jkh命令后没什么反应啊……
2008-06-30 09:10:30
来自 PC
评论
举报
biechen
;文本加括号
(defun c:jkh()
(setq ss (ssget ' ((0 . "TEXT,MTEXT"))))
(setq i -1)
(repeat (sslength ss)
(setq en (ssname ss (setq i (1+ i))))
(setq str (dxf_read 1 en))
(setq str (strcat "(" str ")"))
(dxf_replace 1 str en)
)
)
;-----------------------------------------
; function dxf_read
;-----------------------------------------
;返回dxf群码内组码号为code的点对内容
;参数：ename -- 一个对象的id
; code -- dxf组码号
;-----------------------------------------
(defun dxf_read (code ename)
(cdr (assoc code (entget ename)))
)
;--- end dxf_read--------
;-----------------------------------------
; function dxf_replace
;-----------------------------------------
;置换dxf群码内组码号为code的点对内容
;参数：ename-- 一个对象的id
; code -- dxf组码号
; newdata --新数值
;
;-----------------------------------------
(defun dxf_replace (code newdata ename / dxflist)
(setq dxflist (entget ename)
dxflist (subst (cons code newdata) (assoc code dxflist) dxflist))
(entmod dxflist)(entupd ename)
)
;--- end dxf_replace--------
2008-06-27 14:31:27
来自 PC
评论
举报
相关推荐
gemeos
这个家伙什么也没有留下。。。
主题
59
回复
326
粉丝
1
+ 关注
私信
CAD下载及教程
返回版块
52.09 万条内容 · 667 人订阅
猜你喜欢
遇到了一点小问题
内容不能包含下列词语
返回修改
回帖成功
经验值 +
10
全部回答（2 ）
(defun c:jkh()
(setq ss (ssget ' ((0 . "TEXT,MTEXT"))))
(setq i -1)
(repeat (sslength ss)
(setq en (ssname ss (setq i (1+ i))))
(setq str (dxf_read 1 en))
(setq str (strcat "(" str ")"))
(dxf_replace 1 str en)
)
)
;-----------------------------------------
; function dxf_read
;-----------------------------------------
;返回dxf群码内组码号为code的点对内容
;参数：ename -- 一个对象的id
; code -- dxf组码号
;-----------------------------------------
(defun dxf_read (code ename)
(cdr (assoc code (entget ename)))
)
;--- end dxf_read--------
;-----------------------------------------
; function dxf_replace
;-----------------------------------------
;置换dxf群码内组码号为code的点对内容
;参数：ename-- 一个对象的id
; code -- dxf组码号
; newdata --新数值
;
;-----------------------------------------
(defun dxf_replace (code newdata ename / dxflist)
(setq dxflist (entget ename)
dxflist (subst (cons code newdata) (assoc code dxflist) dxflist))
(entmod dxflist)(entupd ename)
)
;--- end dxf_replace--------