(defun c:circle3 (/ pt) ;Creates a circle of radius 3. u+ m) B% U/ F' y" ?7 |$ _0 |
(princ "Please click a point: ") X4 @4 z9 |! S% x. p {5 e/ X (setq pt (getpoint)) 3 H+ q9 i z W (command "_circle" pt "300")& p" e2 c2 I+ y. @; _
) 6 {8 ]! M0 }# c这是一段完整的 AUTO LISP 程序,它的功能是在给定位置画一个300的圆。CAD中的建摸过程就是内部运行LISP的过程。; a' {, O. h$ u6 Z0 U- p# X
如果有必要可以打开工具栏下的AUTOLISP编辑器,编辑需要的图形程序。 4 r* f7 d' ^; n8 X+ o对于经常用到的专用图形,可以去编程实现。对于普通用户似乎学习一种新语言的成本是要考虑的。