gc666666 发表于 2020-4-7 09:15:20

求指点图层切换程序

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

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

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

love1030312 发表于 2020-4-8 10:26:41

这思路漏洞百出

gc666666 发表于 2020-4-8 12:23:36

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

大哥,能否指点一下

sharetow 发表于 2020-4-17 16:36:39

(defun c:dim(/ dx)
(if(not(tblobjname "layer" "Dim"))
    (command "-layer" "n" "Dim" "C" 8 "Dim" "L" "Continuous" "Dim" "LW" "0.05" "Dim" "")
)
(if (setq dx (cadr (ssgetfirst)))
    (command "Chprop" dx "" "LA" "Dim" "")
    (setvar "clayer" "Dim")
)
(princ)
)你试试我的这个,多写几个,按快捷键切换就好了。

gc666666 发表于 2020-4-17 16:40:03

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

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

999999 发表于 2020-9-13 12:33:51

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

e2002 发表于 2020-9-13 20:10:02

从你的描述就能看出,你使用AutoCAD的水平,应该是还没有入门状态。
你现在需要的不是学习AutoCAD的编程,而是要学习如何使用 AutoCAD。
页: [1]
查看完整版本: 求指点图层切换程序