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

spp_wall · 发表于 2014-9-17 16:59

本帖最后由 spp_wall 于 2014-9-18 08:43 编辑

(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  选择图形过滤网络这个图层然后再改线型和线型比例~！而且只对多段线有效怎么改成对直线也有效呢!

能否改成  点击tt 直接改网络这个图层的线型和线型比例？

ZZXXQQ · 发表于 2014-9-18 08:07

试下看

(defun C:tt()
(if (setq SS (ssget '((0 . "LINE,*POLYLINE") (8 . "网络")))) (progn
(command "-LAYER" "LT" "acad_iso07w100" "网络" "")
(command "_.CHPROP" SS "" "LT" "bylayer" "S" "0.1" "")
))
(princ)
)

spp_wall · 发表于 2014-9-18 08:43

本帖最后由 spp_wall 于 2014-9-18 09:03 编辑

ZZXXQQ 发表于 2014-9-18 08:07
试下看

谢谢Z大！可以改直线的了！
原来自己的也可以只是输错了图层名字

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

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

spp_wall · 发表于 2014-9-18 11:03

已解决谢谢Z大大！

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

[已解答] 改某个图层的线型需完善！

本帖子中包含更多资源