如何用LISP画出此图？

psufngah

如题，我要一运行命令，然后选中间的那个大圆（原来是一个完整的圆）就帮我画出边上的凸凹部份,要求，例如，中间圆直径5.0，小凸凹，圆直径1.0，凸部分，高出大圆0.05，凹部份，低于大圆0.03，画完后，并串接成多义线

psufngah

小圆最好不在四分点上，难道就没人做得了吗？

zdzdzdzd

给你一个方案供你参考：

   1。画圆。（command "circle")

   2。确定凹凸部分的圆心分别画小圆 (利用polar确定小圆圆心)

   3。分别将各图元名和求出trim的拾取点，存成点表形式。

   4。调用trim命令编辑图形并保存新的图元名(ssname)

   5。调用pedit生成复线。

psufngah

我也知道大概这样，但

第3点，和第4点，如何实现？

能不能给个例子学习下？

zdzdzdzd

每执行一个画圆动作或画弧后，求图元名

画圆后：(setq a (entlast))

画凸弧后：(setq b (entlast))

画凹弧后：(setq c (entlast))

trim的拾取点可以利用圆心到圆/圆弧上一点与圆/圆弧交点所得。trim完后，小凸凹圆弧的图元名用entlast得出，

大圆弧的图元名用ssget "x" ,ssname得出。