图层归正的程序

xyz2009xyz

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

Gu_xl

回复 xyz2009xyz 的帖子

1. (defun c:tt()
   
2.   (setq ss (ssget "x" '((0 . "*DIMENSION"))))
   
3.   (if ss
   
4.     (progn
   
5.       (if (not (tblsearch "layer" "dim"))
   
6.         (command "layer" "m" "dim" "")
   
7.         )
   
8.       (command "chprop" ss "" "la" "dim" "")
   
9.       )
   
10.     )
    
11.   (setq ss (ssget "x" '((0 . "hatch"))))
    
12.   (if ss
    
13.     (progn
    
14.       (if (not (tblsearch "layer" "hat"))
    
15.         (command "layer" "m" "hat" "")
    
16.         )
    
17.       (command "chprop" ss "" "la" "hat" "")
    
18.       )
    
19.     )
    
20.   )
    

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

xyz2009xyz

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

yxl88168

Gu_xl 真历害，学习了

xyz2009xyz

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

Gu_xl

回复 xyz2009xyz 的帖子

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

wuzheng80425

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

鲑鱼扬帆

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

学习+佩服+赞一个

longer1000

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

w245272914

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

版主大神，能帮忙解决下这个问题嘛 555
http://bbs.mjtd.com/thread-175323-1-1.html