Question

编写一个AutoLISP程序，画出一条直线，并生成给定数目（N条）的与其平行的直线。

求这个简单程序...

Answer 1

(defun c:hx ( / int1 y0)
(setq int1 (getint "\n输入指定绘制数目:"))
(if (= int1 nil) (setq int1 1))
(setq y0 0)
(repeat int1
(command ".line" (list 0 y0) (list 30 y0) "");绘制长度为30的直线
(princ "\nOK")
(setq y0 (+ y0 10))
);end repeat int1
(princ)
);end defun
——仅供参考。。。