请问CAD autolisp二次开发怎么弄啊?帮忙把具体步骤说一下，就是自己创建一个命令的步骤。谢了
答案:1 悬赏:20
解决时间 2021-10-19 12:50
- 提问者网友：树红树绿
- 2021-10-18 14:45
请问CAD autolisp二次开发怎么弄啊?帮忙把具体步骤说一下，就是自己创建一个命令的步骤。谢了
最佳答案
- 二级知识专家网友：渊鱼
- 2021-10-18 16:15
;;;灯管T4
(defun C:T4206()
;;;用户输入T4206执行命令(不带任何参数，如果没有此行，加载后立即运行以后的程式)
(graphscr)
(setvar "cmdecho" 0)
;;;命令行显示关闭
(setq P1(getpoint "\n请指定灯管(T4 206.5mm 6W)放置位置:"))
;;;设定一个插入点P1，返回点
(command "-INSERT" "D:/YZ_ZCAD/TK/DGT/T4206.dwg" "S" "1" P1 "0")
;;;执行CAD标准命令，前面加“-”(此问题参考CAD命令)，为命令行执行命令，不使用对话框
;;;在程式执行时，不能便用对话框，在命令前加“-”或用变量FILEDIA控制;少数用其它方式控制
(setvar "cmdecho" 1)
;;;命令行显示打开
(princ)
;;;结束语
)
;;;将以上文字放到LISP里面以任何英文名命名保存
;;;在保存以后，在CAD中用AP加载文件，
;;;执行T4206命令执行插入命令，(确;认文件的存在)
我个人认为VBA开发要比LISP更为方便，LISP会一点就好了，不必学太深，LISP对话框开发(DCL)比VBA复杂得多，但要用部分LISP函数用于命令执行VBA的函数.在AutoCAD帮助里面有开发人员帮助，里面很多东西都很详细，那些编书人好多东西也是直接用里面的东西，你不妨去看一下。
(defun C:T4206()
;;;用户输入T4206执行命令(不带任何参数，如果没有此行，加载后立即运行以后的程式)
(graphscr)
(setvar "cmdecho" 0)
;;;命令行显示关闭
(setq P1(getpoint "\n请指定灯管(T4 206.5mm 6W)放置位置:"))
;;;设定一个插入点P1，返回点
(command "-INSERT" "D:/YZ_ZCAD/TK/DGT/T4206.dwg" "S" "1" P1 "0")
;;;执行CAD标准命令，前面加“-”(此问题参考CAD命令)，为命令行执行命令，不使用对话框
;;;在程式执行时，不能便用对话框，在命令前加“-”或用变量FILEDIA控制;少数用其它方式控制
(setvar "cmdecho" 1)
;;;命令行显示打开
(princ)
;;;结束语
)
;;;将以上文字放到LISP里面以任何英文名命名保存
;;;在保存以后，在CAD中用AP加载文件，
;;;执行T4206命令执行插入命令，(确;认文件的存在)
我个人认为VBA开发要比LISP更为方便，LISP会一点就好了，不必学太深，LISP对话框开发(DCL)比VBA复杂得多，但要用部分LISP函数用于命令执行VBA的函数.在AutoCAD帮助里面有开发人员帮助，里面很多东西都很详细，那些编书人好多东西也是直接用里面的东西，你不妨去看一下。
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息