改某个图层的线型需完善！
本帖最后由 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 直接改网络这个图层的线型和线型比例？
试下看(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 09:03 编辑
ZZXXQQ 发表于 2014-9-18 08:07 static/image/common/back.gif
试下看
谢谢Z大！ 可以改直线的了！
原来自己的也可以 只是输错了图层名字
能不能改成不选择 现在输入命令后 还要选择 直接把网格的图层 线型改成 acad_iso07w100
有时候图形多需要批量处理 要选择图形就无法实现了！ 已解决 谢谢Z大大！
页:
[1]