如何做减法
(- 125 4)这个就表示125-4。
(defun C:LL()
(cesand "Lpnt"pause pause “")
输入lisp编译一下就可以优化直线命令
command 后面跟双引
pause。暂停让用户输入
cmdecho 控制lisp显示 在lisp输入 (setvar "cmdecho"0)这样就可以在lisp程序里面让这个返回的。结果不显示。
vlide。打开lisp控制器编译器
(princ)。可以控制字符不以展开的方式显示出来。
中文字符一定要有双引号。
(defun C:LL()
(setvar"cndecho"0)
(princ“请捕捉切点)
(command "LINE" pause pause "")
(princ)
)
这是俩相切直线的优化命令。
(defun C:tt()
(setvar "cadecho"8)
(princ“请捕捉切点”)
(command "CIRCLE""3p""tan"pause "tan" pause "tan"pause)
(princ)
)
这是一个圆的三相切命令优化lisp程序