求指点图层切换程序

gc666666

提前建立好 图层1  图层2 图层3
进入程序
先在图层1上画一部分图形，画完后跳到图层2。然后再在图层2画

一部分图形，画完后跳到图层1。随后再在图层1画一部分图形，

画完后跳到图层3。
总之就是在图层之间切换画图，能否指点一下思路？

love1030312

这思路漏洞百出

gc666666

love1030312 发表于 2020-4-8 10:26
这思路漏洞百出

大哥，能否指点一下

sharetow

2. (defun c:dim(/ dx)
   
3.   (if(not(tblobjname "layer" "Dim"))
   
4.     (command "-layer" "n" "Dim" "C" 8 "Dim" "L" "Continuous" "Dim" "LW" "0.05" "Dim" "")
   
5.   )
   
6.   (if (setq dx (cadr (ssgetfirst)))
   
7.     (command "Chprop" dx "" "LA" "Dim" "")
   
8.     (setvar "clayer" "Dim")
   
9.   )
   
10.   (princ)
    
11. )

(defun c:dim(/ dx)<br />   (if(not(tblobjname "layer" "Dim"))<br />     (command "-layer" "n" "Dim" "C" 8 "Dim" "L" "Continuous" "Dim" "LW" "0.05" "Dim" "")<br />   )<br />   (if (setq dx (cadr (ssgetfirst)))<br />     (command "Chprop" dx "" "LA" "Dim" "")<br />     (setvar "clayer" "Dim")<br />   )<br />   (princ)<br /> )

你试试我的这个，多写几个，按快捷键切换就好了。

gc666666

sharetow 发表于 2020-4-17 16:36
你试试我的这个，多写几个，按快捷键切换就好了。

多谢，已解决。用的这个方法(if (TBLSEARCH "layer" "0纵横筋标注引线")

999999

路过学习。，，，支持一下

e2002

从你的描述就能看出，你使用AutoCAD的水平，应该是还没有入门状态。
你现在需要的不是学习AutoCAD的编程，而是要学习如何使用 AutoCAD。