在使用lsp时第一个循环可以正常运行,第二个循环无法运行,最后的成果应该是类似干字的半边的图形
(defun c:cxx()
(setq h (getreal "主管长="))
(setq l (getreal "支管长="))
(setq x (getint "支管数为:"))
(setq y (getint "节点数为:"))
(setq p0 (getpoint "输入起始点: "))
(setq p1(polar p0 (* 0.5 pi) h))
(command "line" p0 p1 )
(repeat x
(command
(setq p1(polar p1 (* 0.5 pi) h))
)
)
(setq p3 (entget p1))
(setq p2(polar p3 (* 2 pi) l))
(command "line" p3 p2)
(repeat y
(command
(setq p2 (polar p2 (* 2 pi) l))
)
)
)
lisp 如何实现双循环
- 写回答
- 好问题 0 提建议
- 追加酬金
- 关注问题
- 邀请回答
-
0条回答 默认 最新
悬赏问题
- ¥30 这是哪个作者做的宝宝起名网站
- ¥60 版本过低apk如何修改可以兼容新的安卓系统
- ¥25 由IPR导致的DRIVER_POWER_STATE_FAILURE蓝屏
- ¥50 有数据,怎么建立模型求影响全要素生产率的因素
- ¥50 有数据,怎么用matlab求全要素生产率
- ¥15 TI的insta-spin例程
- ¥15 完成下列问题完成下列问题
- ¥15 C#算法问题, 不知道怎么处理这个数据的转换
- ¥15 YoloV5 第三方库的版本对照问题
- ¥15 请完成下列相关问题!