Question

CAD二次开发（有没有高手，来个简单的实例的程序）

CAD二次开发,有没有高手，来个简单的实例的程序！用Lisp语言的，最简单级别的就可以了。救命啊~

Answer 1

;;Z坐标归零程序
(defun C:Z=0 ( / SS1)
(setvar "cmdecho" 0)
(if (setq SS1 (ssget))
(progn
(command ".undo" "be")
(princ "\n正在处理图形数据，请稍候．．．")
(terpri)
(command ".ucs" "w")
(command ".move" SS1 "" '(0 0 1e99) "" ".move" "p" "" '(0 0 -1e99) "")
(princ "\nOK，已将所选图元Z坐标值全部归零。")
(command ".undo" "e")
);end progn
);end (if (/= SS1 nil)
(princ)
);end (defun C:Z=0 ( / SS1)

Answer 2

帮助里有例子。

Answer 3

我这里有在学校时做CAD二次开发课程设计编过的程序,C语言做的.CAD里一加载就可以自动生成图.
毕业后从来没搞过这东西了,具体怎么用的我都记不太清了.