52okok 发表于 2006-5-30 20:44:00

[求助]新手上来跟大家打个招呼，顺便问个低级问题，

<P>怎样将利用代码将当前坐标系转为世界坐标系，我下面的代码不行</P>
<P>Public Sub Reset_WCS()</P>
<P>&nbsp;&nbsp;&nbsp; Dim objUCS As AcadUCS<BR>&nbsp;&nbsp;&nbsp;&nbsp;<BR>&nbsp;&nbsp;&nbsp; Set objUCS = ThisDrawing.UserCoordinateSystems.Item("World")<BR>&nbsp;&nbsp;&nbsp; ThisDrawing.ActiveUCS = objUCS<BR>&nbsp;&nbsp;&nbsp; Debug.Print "activeUCS ---- " &amp; objUCS.Name<BR>End Sub</P>

xinghesnak 发表于 2006-5-31 08:12:00

ThisDrawing.Application.ActiveDocument.SendCommand "_ucs" &amp; vbCr &amp; vbCr

52okok 发表于 2006-5-31 10:22:00

<P>谢谢&nbsp; <A name=16212><FONT color=#000066><B>xinghesnak</B></FONT></A> , 不过我还想知道除了用sendcommand命令外还又没有没有其他更好的方法; </P>
<P>实际上我认为我上面列的代码可能行,就是不知道为什么在括号里加world不行,加*world*也不行！应该怎么改写才可以？</P>

xinghesnak 发表于 2006-5-31 16:25:00

我也想知道你原来的方法为什么不行，可是你监视一下就能发现他的坐标系集合里根本就没有叫什么" world " 或者 " *world* "的成员。真的很奇怪。。。。

52okok 发表于 2006-6-5 22:36:00

No more better suggestion?

52okok 发表于 2006-6-15 20:46:00

<P>，自己顶一下</P>
页: [1]
查看完整版本: [求助]新手上来跟大家打个招呼，顺便问个低级问题，