求一个autocad智能中心线功能的lisp小程序或者插件。谢谢

智能中心线功能，工作层在实线层，我要画中心线，输入一个自定义命令如ZXX，cad就自动切换到中心线层，如果没有该层就自动建立该层，这个层上的线型为点划线，画完中心线后退回... 智能中心线功能，工作层在实线层，我要画中心线，输入一个自定义命令如ZXX，cad就自动切换到中心线层，如果没有该层就自动建立该层，这个层上的线型为点划线，画完中心线后退回到原来的工作层展开

 我来答

1个回答

#合辑# 机票是越早买越便宜吗？

jsytSJYjxl
2012-06-08

知道答主

回答量：26

采纳率：0%

帮助的人：7.7万

我也去答题访问个人页

关注

展开全部

(DEFUN C:ZXX()
  (SETQ CLAY (GETVAR "CLAYER"))
  (SETQ CLIN (GETVAR "CELTYPE"))
  (if (not (tblsearch "layer" "zXX")) 
    (command "layer" "new" "ZXX"  ""))
(command "layer"  "L" "X7" "ZXX" "S" "ZXX" "");我的点划线名字为X7，你的如果不是请改名==
  (SETVAR "CELTYPE" "BYLAYER")
  (COMMAND "LINE")
  (SETQ P (GETPOINT "\n 起始点位"))
  (COMMAND P)
  (WHILE (SETQ P (GETPOINT P "\n 点位")) (COMMAND P))
  (COMMAND "")
  (SETVAR "CLAYER" CLAY)
  (SETVAR "CELTYPE" CLIN)
  )


本回答被提问者采纳






已赞过已踩过<

你对这个回答的评价是？
评论收起