明经CAD社区

?找回密码
?注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 172|回复: 3
打印 上一365体育投注手机客户端下载_365体育投注滚球_bt365-体育投注 下一365体育投注手机客户端下载_365体育投注滚球_bt365-体育投注

合并文字码源

[复制链接]
跳转到指定楼层
楼主
发表于 2019-10-25 14:27 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
(defun c:HBWZ (/ lst)
??(setq oldaun (getvar "aunits"))
??(setvar "aunits" 3)
??(setvar "osmode" 15359)
??(setvar "cmdecho" 0)
??(command "undo" "be")
??(setq ss (ssget '((0 . "MTEXT,TEXT"))))
??(setvar "osmode" 0)
??(initget "E S A")
??(if (not (setq kword
? ?? ?? ?? ?? ?? ?(getkword
? ?? ?? ?? ?? ?? ???"\n在合并文字之间加:[换行(E)/空格(S)/直接合并(A)]"
? ?? ?? ?? ?? ?? ?)
? ?? ?? ???)
? ?? ?)
? ? (setq kword "E")
??)
??(setvar "osmode" 0)
??(setq lst '())
??(while (> (sslength ss) 0)
? ? (setq entnam (ssname ss 0)
? ?? ?? ? entdat (entget entnam)
? ? )
? ? (setq pt??(cdr (assoc 10 entdat))? ?? ???;读取文字的插入点坐标
? ?? ?? ? txt (cdr (assoc 1 entdat))? ?? ???;读取文字内容
? ?? ?? ? zg??(cdr (assoc 40 entdat))? ?? ???;读取文字的字高
? ?? ?? ? lst (cons (list pt txt zg) lst) ;将点坐标、内容、字高组成表
? ?? ?? ? ss??(ssdel entnam ss)? ?? ?? ?? ?? ? ;选择集中删除当前的文字对象
? ? )
? ? (entdel entnam)? ?? ?? ?? ?? ?? ?? ?? ?;删除文字对象
??)
??(setq
? ? lst
? ???(vl-sort lst
(function
? ?? ?? ?? ?? ? (lambda? ?? ???(e1 e2)
? ?? ?? ?? ?? ?? ?(if (equal (cadr (car e1)) (cadr (car e2)) 1e-4)
? ?? ?? ?? ?? ?? ???(> (car (car e1)) (car (car e2)))
? ?? ?? ?? ?? ?? ???(< (cadr (car e1)) (cadr (car e2)))
? ?? ?? ?? ?? ?? ?)
? ?? ?? ?? ?? ? )
? ?? ?? ?? ???)
? ???)
??)
??(setq str "")
??(cond? ?? ???((= kword "S")
? ?? ?? ?(foreach e lst
? ?? ?? ???(setq str (strcat (cadr e) " " str))
? ?? ?? ?)
? ?? ???)
? ?? ???((= kword "E")
? ?? ?? ?(foreach e lst
? ?? ?? ???(setq str (strcat (cadr e) "\n" str))
? ?? ?? ?)
? ?? ???)
? ?? ???((= kword "A")
? ?? ?? ?(foreach e lst
? ?? ?? ???(setq str (strcat (cadr e) str))
? ?? ?? ?)
? ?? ???)
??)
??(command "MTEXT" pt "H" zg "W" 0 str "")
? ?(princ)
??(setvar "aunits" oldaun)
??(command "undo" "e")
??(setvar "osmode" 15359)
??(princ)
)

评分

参与人数 1明经币 +1 收起 理由
love1030312 + 1 赞一个!

查看全部评分

沙发
发表于 2019-10-25 17:55 | 只看该作者
建议优化下操作体验,没有选中文字就直接终止程序,不要继续让用户选关键字了
板凳
发表于 2019-10-27 12:16 | 只看该作者
Thanks for sharing??
地板
发表于 2019-10-29 22:04 来自手机 | 只看该作者
收藏,谢谢楼主分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )???
?2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-10-30 19:27 , Processed in 0.287268 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

? 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表