再次求助！！！对话框的问题
<P>马上就要交程序了老师突然要我把菜单改成对话框，这么短时间我真是学不会了，</P><P>希望大家能帮我检查一下这两个程序！</P>
<P>我想做两个对话框，分别是齿轮和轴承盖的。<BR> 现在希望两个对话框中能自动选择是否进行标注<BR>还有就是我做的轴承盖对话框运行后没有图形，我怎么也找不到毛病。希望能帮我解决这两个问题！</P>
<P>谢谢了</P>
<P>程序</P>
<P></P>
<P>对话框</P> <P>谢谢你啊<A name=17108><FONT color=#0000ff><B>ZZXXQQ</B></FONT></A> 感谢的话说的太多了 都不知道在怎么说了，总之是帮了我大忙了！！！</P>
<P> 还有刚发现一个问题， 我用<FONT face="Courier New" color=#ff0000>(</FONT><A href="http://www.mjtd.com/object/autolisp/command.htm" target="_blank" ><FONT face="Courier New" color=blue>command</FONT></A><FONT face="Courier New"> <FONT color=#ff00ff>"rotate"</FONT> <FONT color=#ff00ff>"w"</FONT> z03 z01 <FONT color=#ff00ff>""</FONT> b17 ang<FONT color=red>)</FONT></FONT></P>
<P><FONT face="Courier New"><FONT color=#ff0000>这样的命令 rotate 可能把这个程序外的只要在它旋转范围内的其他图形也一起旋转了，这是怎么回事</FONT><BR></P></FONT> <P>这是你选择的窗口将别的不需要旋转的图形选择了。 </P>
<P>解决的办法：在画图形(你将要旋转的图形)前，用(setq s1 (entlast))保存以前画的最后一个实体名，在画完图形后用(setq ss (ssadd (entnext s1) ss))加入实体到选择集(你要旋转的)中，再使用旋转命令。</P>
<P>例：</P>
<P>......</P>
<P> (SETQ SS (ENTLAST) S2 (SSADD)) ;画图前先设定变量<BR>......;画图</P>
<P>......;画图</P>
<P> (IF SS<BR> (WHILE (SETQ S1 (ENTNEXT SS))<BR> (SETQ S2 (SSADD S1 S2) SS S1)<BR> )<BR> (SETQ S2 (SSGET "X")) ;新图无实体时SS=nil，全选。<BR> )<BR> (COMMAND "ROTATE" S2 "" PT ANG)</P>
<P>......<BR></P> 郁闷死了 ，用这个方法做了一上午，怎么都不成功，实在不知道毛病在哪了 <P>没问题！你将变量弄错了。</P> <P> 哦 真的是我忘了设置旋转变量了 </P>
<P>我的程序运行时总是出现一些多余的线或是图形，</P>
<P>比如运行 轮辐式齿轮时就总是出现多余的东西</P>
<P>这是什么原因呢？</P> 用图说明。 <P></P>
<P>这是我在运行两次后 第二次 总是出现多余的东西</P>
<P>如果离第一个图有一定距离的话就很少出现这个情况了</P>
页:
[1]
2