[LISP程序]：关闭天正门窗编号

hnfsf · 发表于 2009-11-10 02:42:24

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

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

×

(defun c:smch( / dxf i ss)
(defun @subst@ (el tylst / c)
  (foreach n tylst
(if (setq c (assoc (car n) el))
   (setq el (subst n c el))
   (setq el (append el (list n)))
)
  )
  (entmod el)
)
(setq ss (ssget '((0 . "TCH_OPENING")(8 . "WINDOW"))))
(setq i -1)
(repeat (sslength ss)
(setq dxf (entget (ssname ss (setq i (1+ i)))))
(@subst@ dxf (list '(302 . "")))
)
(princ)
)

史大林 · 发表于 2009-11-11 13:03:07

关闭门窗编号的图层其实也就可以了。

adison987 · 发表于 2009-11-18 15:38:46

去除-CAD教育版戳记的软件

ekiny27 · 发表于 2009-11-23 21:57:03

谢谢分享了。。

xuyu · 发表于 2009-11-24 19:13:41

其实关闭图层就可以了

genius_8237 · 发表于 2024-2-19 15:24:46

用组码操作天正门窗容易引起程序崩溃的，不知道这个程序是否正常，尝试一下

genius_8237 · 发表于 2024-2-19 15:37:39

这个程序也是会引起程序崩溃的，请高手们指点一下，改如何通过组码修改天正门窗的属性

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

[LISP程序]：关闭天正门窗编号

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

相关帖子