论坛 › 天正软件 › [LISP程序]：关闭天正门窗编号

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

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

(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

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

查看完整版本: [LISP程序]：关闭天正门窗编号