需要autolisp

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")

[编程交流] 需要autolisp

发表回复

精选推荐