今天我写了一个lisp的程序,是利用两个角点画矩形,如:
;RECT_1.lisp
;指定矩形的对角点，使用LINE指令，绘制矩形
；Oct.4.2006
(defun c:RECT_1(/pt1 pt2 pt3 pt4) ;指定表达式名称
(setq pt1(getpoint "
请指定矩形的第一个角点："))
(setq pt3(getpoint pt1 "
请指定矩形的第一个角点："))
(setq pt2(list(car pt1)(cadr pt3))) ;计算矩形的另两个角点
(setq pt4(list(car pt3)(cadr pt1)))
(princ"
")
(command"line" pt1 pt2 pt3 pt4 "c")
)
(seq msg_"
..............指令：................
")
(prompt mcg_)
我加栽到CAD运行时,它说参数太少不能运行
全部回复（1 ）
只看楼主 我来说两句 抢板凳2.不要贴与主题无关的图片.无助于解决问题.下次直接扣分..删图...:)
3.错误很多.找本教材看看.
a ；Oct.4.2006 不要使用"；"要使用半角的";"
b (seq msg_"\n........ 不是seq 是setq
c (defun c:RECT_1(/pt1 pt2 定义参数时"/"和pt1 pt2 要有空格.
d (seq msg_"\n..............指令：................\n")
(prompt mcg_)
其中prompt函数调用的是mcg_不是先前定义的msg_ 晕死...................
回复 举报