timmy521 发表于 2010-5-31 20:41:00

[求助]"non"参数为什么有时稳定有时不稳定

<p><font face="Verdana">大家好,我向各位老师请教一个问题,下面程序中,"non"怎么有时能用,有时不能用,这是为什么啊.是不是哪个系统参数没有设好,哪有大虾知道啊!!!!1</font> 我的是pccad2004<font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana"></font>&nbsp;</p>
<p><font face="Verdana">;; 五角星<br/>(defun c:test670 ()<br/>&nbsp; (cmdla0)<br/>&nbsp; (xyp-MkLaCo "五角星" 1)<br/>&nbsp; (setq d (UREAL 7 "" "半径" d))<br/>&nbsp; (while (setq p0 (getpoint "\n中心点: "))<br/>&nbsp;&nbsp;&nbsp; (setq s00 (entlast)<br/>&nbsp;&nbsp; p1&nbsp; (polar p0 (xyp-ang2rad 18) d)<br/>&nbsp;&nbsp; p2&nbsp; (polar p1 0 d)<br/>&nbsp;&nbsp; p3&nbsp; (polar p0 (* pi 0.5) d)<br/>&nbsp;&nbsp; p4&nbsp; (polar p0 (xyp-ang2rad 306) d)<br/>&nbsp;&nbsp; p5&nbsp; (polar p0 (xyp-ang2rad 234) d)<br/>&nbsp;&nbsp; p6&nbsp; (inters p1 p2 p3 p4 nil)<br/>&nbsp;&nbsp; p7&nbsp; (inters p1 p5 p3 p4 nil)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; (command "pline" "non" p6 "non" p1 "non" p7 "")<br/>&nbsp;&nbsp;&nbsp; (setq s1 (entlast))<br/>&nbsp;&nbsp;&nbsp; (command "array" s1 "" "p" "non" p0 5 360 "y")<br/>&nbsp;&nbsp;&nbsp; (setq ss (xyp-SSelEntnext s00))<br/>&nbsp;&nbsp;&nbsp; (command "region" ss "")<br/>&nbsp; )<br/>&nbsp; (cmdla1)<br/>)</font></p>
页: [1]
查看完整版本: [求助]"non"参数为什么有时稳定有时不稳定