CAD lisp 求助一段代码实现在进行操作之前获取图层信息？
我打算通过lisp实现拾取点插入一个圆圈，切圆圈在0图层（无论操作时当前图层是什么），插入完圈后恢复当前图层我的代码如下：(defunc:ccc()DWGNAME(GET...
我打算通过lisp实现拾取点插入一个圆圈，切圆圈在0图层（无论操作时当前图层是什么），插入完圈后恢复当前图层我的代码如下：
(defun c:ccc ()
DWGNAME (GETVAR "DWGNAME")
(setq pt(getpoint"\n选择插入点"))
(command "layer" "s" "0" "");将图层设置成0
(command "circle" pt 5)
(command "layer" "s" "DWGNAME" "")
(princ) )
但是不知道为什么没有实现，求助高手帮忙！谢谢！ 展开
(defun c:ccc ()
DWGNAME (GETVAR "DWGNAME")
(setq pt(getpoint"\n选择插入点"))
(command "layer" "s" "0" "");将图层设置成0
(command "circle" pt 5)
(command "layer" "s" "DWGNAME" "")
(princ) )
但是不知道为什么没有实现，求助高手帮忙！谢谢！ 展开
2个回答
展开全部
(setq #k (getvar "clayer")) ;;取得当前图层
(setq #os (getvar "osmode"));;得到捕捉设置
(setvar "clayer" "0") ;;切换到图层0
(setvar "osmode" 0) ;;画圆过程必须关闭捕捉
(command "circle" pt 5) ;;画圆
(setvar "clayer" #k) ;;恢复原来图层
(setvar "osmode" #os) ;;恢复捕捉设置
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
