改某个图层的线型需完善！

spp_wall · 发表于 2014-9-18 09:08:10

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

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

×

(defun C:tt()
(if (setq SS (ssget '((8 . "网格"))))?)
(sssetfirst nil SS)
(setq ent (ssget))
  (command "change" ent "" "p" "lt" "acad_iso07w100" "")
  (command "change" ent "" "p" "s" "0.1" "")
  (PRINC)
)

现在点输入tt  选择图形过滤网格这个图层然后再改线型和线型比例~！

能不能改成不选择现在输入命令后还要选择直接把网格的图层线型改成 acad_iso07w100

有时候图形多  需要批量处理要选择图形就无法实现了！

csharp · 发表于 2014-9-18 09:23:05

(defun c:tt(/ ss)
(if (setq ss (ssget "x" '((8 . "网格"))))
(command ".chprop" ss "" "lt" "acad_iso07w100")
)
(princ)
)

spp_wall · 发表于 2014-9-18 09:33:09

csharp 发表于 2014-9-18 09:23
(defun c:tt(/ ss)
(if (setq ss (ssget "x" '((8 . "网格"))))
(command ".chprop" ss "" "lt ...

OK了谢谢！！

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

[求助] 改某个图层的线型需完善！

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

点评