YDPLDL 发表于 2008-8-3 07:27:00

[求助]如何选择所有与已知圆的同心圆？

<p>&nbsp;大家好！近期想编个画凸米的小程序，画的时候没什么问题，能按标准画出想要的凸米，但客户所给的电子档的凸米表示是用几个同心圆，画完之后需要把它们通通删除，但在建选同心圆的选集时出现了问题，已知其中一个圆的圆心为P0，我建的选集为：</p><p>&nbsp;&nbsp;&nbsp; (SETQ name (SSNAME s1 n));s1为先前选择的圆<br/>&nbsp;&nbsp;&nbsp; (SETQ ent (ENTGET name))<br/>&nbsp;&nbsp;&nbsp; (SETQ p0 (CDR (ASSOC 10 ent)))&nbsp;;圆心<br/>&nbsp;&nbsp;&nbsp; ;(princ p0)<br/>&nbsp;&nbsp;&nbsp; ;(setq s2 (ssget "x" '((-4 . "&lt;AND") (0 . "CIRCLE") '(list 10&nbsp; p0) (-4 . "AND&gt;"))))<br/>&nbsp;&nbsp;&nbsp; ;(entdel s2)</p><p>这个选集有问题,请知道的人回复一个,好吗?多谢!</p>

ZZXXQQ 发表于 2008-8-3 09:12:00

(SETQ S2 (SSGET "X" (LIST '(0 . "CIRCLE") (CONS 10 P0))))

YDPLDL 发表于 2008-8-3 22:48:00

多谢<strong><font face="Verdana" color="#da2549">ZZXXQQ，这个问题解决了，不过用（entdel s2)不行，我只好用ERASE了。再次感谢！</font></strong>
页: [1]
查看完整版本: [求助]如何选择所有与已知圆的同心圆？