如何。。。图案填充或实体。。。

koletutor · 发表于 2022-7-6 08:05:34

你好

我创建了这个小lisp，用于在拾取的圆内绘制“年轻月亮”形状的两条弧。现在我需要你的帮助来教我如何孵化或实体填充那个区域。。。

非常感谢您的帮助。

MSasu · 发表于 2022-7-6 08:23:59

可以从这些圆弧创建多段线，并对其调用HATCH命令：

(command "_PEDIT" entityArc1st "" "_J" entityArc2nd ""
        "_HATCH" "_P" "SOLID" "_S" (entlast) "" "")

当做
米尔恰

koletutor · 发表于 2022-7-6 08:31:03

谢谢Miricea的回复。

我也喜欢你的方法（我也这么想），但我不知道如何在pedit命令后“调用”弧来加入它们。。。。我试图在定义第二个弧后放入您的代码，但收到了一些错误消息。。。。

也许你认为我应该（不）那样做

MSasu · 发表于 2022-7-6 08:45:00

ENTMAKEX函数将返回实体的名称：

copy


[color=red];    (progn[/color]
[color=blue]    (setq entityArc1st[/color]
     (entmakex 
      (list (cons 0 "ARC")
       (cons 10  cp)
       (cons 40  r1)
       (cons 50 (* 3 (/ pi 2)))
       (cons 51 (/ pi 2))
      );end list
     );end entmakex
[color=blue]    )[/color]
[color=red];    )end progn[/color]