编写一个AutoLISP程序，画出一条直线，并生成给定数目（N条）的与其平行的直线。
答案:1 悬赏:50 手机版
解决时间 2021-02-08 14:07
- 提问者网友：無理詩人
- 2021-02-08 06:53
求这个简单程序...
最佳答案
- 五星知识达人网友：长青诗
- 2021-02-08 08:08
(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
——仅供参考。。。
(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
——仅供参考。。。
我要举报
如以上问答信息为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
大家都在看
推荐资讯