如何用lisp画出此图？
 

如何用lisp画出此图？
www.dimcax.com
如何用lisp画出此图？
如题，我要一运行命令，然后选中间的那个大圆（原来是一个完整的圆）就帮我画出边上的凸凹部份,要求，例如，中间圆直径5.0，小凸凹，圆直径1.0，凸部分，高出大圆0.05，凹部份，低于大圆0.03，画完后，并串接成多义线
d
小圆最好不在四分点上，难道就没人做得了吗？
d
给你一个方案供你参考：
1。画圆。（command "circle")
2。确定凹凸部分的圆心分别画小圆 (利用polar确定小圆圆心)
3。分别将各图元名和求出trim的拾取点，存成点表形式。
4。调用trim命令编辑图形并保存新的图元名(ssname)
5。调用pedit生成复线。
d
我也知道大概这样，但
第3点，和第4点，如何实现？
能不能给个例子学习下？
d
每执行一个画圆动作或画弧后，求图元名
画圆后：(setq a (entlast))
画凸弧后：(setq b (entlast))
画凹弧后：(setq c (entlast))
trim的拾取点可以利用圆心到圆/圆弧上一点与圆/圆弧交点所得。trim完后，小凸凹圆弧的图元名用entlast得出，
大圆弧的图元名用ssget "x" ,ssname得出。
d