帮助我修改此lisp

sanjeeve · 发表于 2022-7-5 20:22:44

嗨，请任何人帮我解决这个问题。我修改了一个lisp供我使用。我达到了这个水平。任何人都可以帮我沿着这条线向前移动这个圆1.2米
eas。LSP
新建块。图纸

Tharwat · 发表于 2022-7-5 20:29:25

你只是想沿着一条特定距离的线移动一个圆？

sanjeeve · 发表于 2022-7-5 20:39:02

是的，如果我能进入这个距离就更好了

BIGAL · 发表于 2022-7-5 20:42:01

如果不确定代码中的请求过于复杂，请手动UCS OB Move pick circle drag并输入距离UCS W done。需要最少的代码使其成为宏等。

你能发布一个你真正想做的事情的图片或dwg吗。

只是一个旁注，我有CHX-CHY-CHZ，用于正交的东西，输入距离，然后拾取对象，当你需要移动一些时，它们会移动定义的距离。

Tharwat · 发表于 2022-7-5 20:46:07

这个？

sanjeeve · 发表于 2022-7-5 20:51:21

当你的照片接近时，是的，在我的计算中，我必须沿着建筑红线创建两个点，从房屋开始偏移1.2m，所以现在我必须沿着房屋边界绘制线，然后将该线延伸到建筑红线，然后偏移该线，然后将点插入该交点，我找到了一个旧的lisp，并修改了我现在附加的lisp，消除了三个步骤，它自动找到交点绘制圆，然后我在直线和圆的交点处绘制1.2m无线电圆和惰性点。如果我可以创建一个1.2m的偏移点，然后在那里创建一个圆，那就更好了。