请问CAD autolisp二次开发怎么弄啊?帮忙把具体步骤说一下,就是自己创建一个命令的步骤。谢了 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帮助里面有开发人员帮助,里面很多东西都很详细,那些编书人好多东西也是直接用里面的东西,你不妨去看一下。
展开全部
可以学习下《Visual Basic与AutoCAD二次开发》张晋西编著 清华大学出版社 ,这本书上对基于VB的CAD二次开发有详细的讲解。非常清楚详尽,希望对你有帮助,不过我现在也在找这本书!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
建议你上明经通道论坛去看看,很专业的网站
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询