xyz2009xyz 发表于 2011-3-31 19:19:28

图层归正的程序

不知道有没有那种能把已经在图上的标注归到DIM层，文字归到TEXT层，填充归到HAT层的程序，呵呵，希望能自己修改快捷键，贱人工具箱里面有这个但是不想安装整个工具箱，和其他的有冲突！求助

Gu_xl 发表于 2011-3-31 19:33:30

本帖最后由 Gu_xl 于 2011-3-31 19:34 编辑

回复 xyz2009xyz 的帖子


(defun c:tt()
(setq ss (ssget "x" '((0 . "*DIMENSION"))))
(if ss
    (progn
      (if (not (tblsearch "layer" "dim"))
      (command "layer" "m" "dim" "")
      )
      (command "chprop" ss "" "la" "dim" "")
      )
    )
(setq ss (ssget "x" '((0 . "hatch"))))
(if ss
    (progn
      (if (not (tblsearch "layer" "hat"))
      (command "layer" "m" "hat" "")
      )
      (command "chprop" ss "" "la" "hat" "")
      )
    )
)

xyz2009xyz 发表于 2011-3-31 19:41:04

3Q楼主，不知道能不能再帮个忙，把所有图关闭，只保留当前图层的程序，

yxl88168 发表于 2011-3-31 19:41:54

Gu_xl 真历害，学习了

xyz2009xyz 发表于 2011-3-31 19:43:17

几分钟哦，呵呵，就搞定了！

Gu_xl 发表于 2011-3-31 19:52:28

回复 xyz2009xyz 的帖子

(command "layer" "off" (strcat "~" (getvar "clayer")) "")

wuzheng80425 发表于 2015-7-15 11:17:03

版主的程序好简洁，学习了

鲑鱼扬帆 发表于 2015-8-14 15:01:11

Gu_xl 发表于 2011-3-31 19:33 static/image/common/back.gif
回复 xyz2009xyz 的帖子

学习+佩服+赞一个

longer1000 发表于 2017-8-30 16:17:02

Gu_xl 真历害，学习！！！！！！！

w245272914 发表于 2017-8-31 08:58:50

Gu_xl 发表于 2011-3-31 19:33
回复 xyz2009xyz 的帖子

版主大神，能帮忙解决下这个问题嘛 555
http://bbs.mjtd.com/thread-175323-1-1.html
页: [1] 2
查看完整版本: 图层归正的程序