[求助]：如何用lisp实现图中已有的mtext，将其宽设置为0？

andyhua5240 · 发表于 2006-3-3 22:31:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

如何用lisp实现以下程序：
过滤出图中的多行文本对象，将其宽度改为0？
我找遍了CAD的帮助，也找不到一点线索？
我目前的做法是组选出mtext对象后，按ctrl+1，在特性中将其宽度设置为0，这样做比较麻烦，有没有更快捷的方法呀？
谢谢！

ljpnb · 发表于 2006-3-3 22:45:28

找41的组码

andyhua5240 · 发表于 2006-3-3 23:27:06

楼上的，但是我不会呀？

雨箭风刀 · 发表于 2006-3-3 23:48:10

我目前的做法是组选出mtext对象后，按ctrl+1，在特性中将其宽度设置为0，这样做比较麻烦

全选，按ctrl+1，下拉列表中选mtext,特性中将其宽度设置为0

xyp1964 · 发表于 2006-3-4 00:01:23

[FONT=courier new](load "xyp_lib.vlx") ;版本 V.20060303(2153)
;|下载和加载通用函数(可在签名栏直接下载后放到搜索路径下)
利用以下任何一种方式（首选第一种）即可加载和运行通用函数内的所有子程序：
★1·在acad.lsp中增加(load"xyp_lib.vlx")
■2·在每个程序内增加(load"xyp_lib.vlx")
■3·在command下，输入(load"xyp_lib.vlx")
■4·在菜单.mnl中增加(load"xyp_lib.vlx")
■5·将xyp_lib.vlx文件直接拽到cad屏幕
[COLOR=red] ★通用函数下载地址：[/COLOR]
[url]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661[/url]
|;
(defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "MTEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(SUB_UPD s1 41 0)
)
(CMDLA1)
)[/FONT]

andyhua5240 · 发表于 2006-3-4 01:09:25

斑竹能不能单独的做个版本呀？
上次求斑竹做的那个焊缝程序，增强版是可以连续焊的，程序非常的好用，但是就是太慢了，绘制一条焊缝后，鼠标至少要停滞3秒钟？能不能改改提高一下速度呀？
谢谢！

http://p4.xdcad.net/forum/showth ... 2538635#post2538635

ljpnb · 发表于 2006-3-4 07:48:47

单独的
(defun c:test ()
  (setq ss (ssget '((0 . "MTEXT")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(setq dxf(entget s1))
(setq dxf(subst (cons 41 0)(assoc 41 dxf) dxf))
(entmod dxf)
  )
  (princ)
)

xyp1964 · 发表于 2006-3-4 10:48:09

最初由 andyhua5240 发布
[B]单独做个版本及提高速度[/B]

[FONT=courier new](defun c:test (/ ss i s1)
(setq ss (ssget '((0 . "MTEXT")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(SUB_UPD s1 41 0)
)
)
(defun sub_upd (ename code newvalue)
(entmod (subst (cons code newvalue)
(assoc code (entget ename))
(entget ename)
)
)
(entupd ename)
)[/FONT]

加快速度问题见原贴，先试试。

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：如何用lisp实现图中已有的mtext，将其宽设置为0？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子