git_thailand 发表于 2022-7-6 09:45:38

每个人对不起，我希望学习代码后。请不要禁止。

ReMark 发表于 2022-7-6 09:47:34

你能至少回答一些被问到的问题吗？我们需要更多信息。非常感谢。

BIGAL 发表于 2022-7-6 09:56:02

一个不同的策略，一个起点，剩下的取决于你。
 
(setq length (getreal "\nPlease enter length m eg 0.9: "))
(setq width (getreal "\nPlease enter width : "))
(setq pt1 (getpoint "\npick 1st point to place Beam : "))
(setq pt2 (polar pt1 0.0 length))
(setq pt3 (polar pt2 1.570796 width))
(setq pt4 (polar pt3 3.14159 length
(command "line" pt1 pt2 pt3 pt4 "C")

页: 1 [2]
查看完整版本: 需要autolisp