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个回答
2013-12-16 · 知道合伙人软件行家
关注
展开全部
(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) ;;恢复捕捉设置
天正软件
2024-08-02 广告
2024-08-02 广告
天正软件可以解决以下问题:1. 提供设计标准化:天正软件专注于勘察设计领域,为用户提供标准化、信息化、智能化的解决方案,以提高设计效率、优化设计流程、降低成本。2. 提高绘图效率:天正软件提供了一系列专业绘图工具,能够帮助设计师快速绘制图纸...
点击进入详情页
本回答由天正软件提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询