关于.NET调试等的一些问题

雪山飞狐_lzh

SendCommand( "UCS " & VBCR & "S" & VBCR & "Test" & VBCR) 将当前UCS保存就可以设置当前UCS为ActiveUCS 用ThisDrawing.UserCoordinateSystems ("Test")返回名为Test的UCS

ahlzl

lzh741206发表于2004-5-4 22:01:00SendCommand( \"UCS \" & VBCR & \"S\" & VBCR & \"Test\" & VBCR) 将当前UCS保存就可以设置当前UCS为ActiveUCS 用ThisDrawing.UserCoordin...

哎呀,我怎么没想到啊!笨死了!! 这个论坛现在就两个人,一个是优秀教师lzh741206,另一个是笨学生ahlzl!

雪山飞狐_lzh

哈哈，没关系，每个人都有这个过程的，关键要多看看帮助

ahlzl

我写了VBA代码(学校电脑上没.NET)

2. Sub abc()Dim ucsObj As AcadUCS
3. ThisDrawing.SendCommand ("UCS S" & vbCr & "Test" & vbCr)
4. Set ucsObj = ThisDrawing.UserCoordinateSystems("test")
5. [color=red]ThisDrawing.SendCommand ("n ")[/color]Dim WCSPnt As Variant
6. Dim UCSPnt As VariantWCSPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")
7. UCSPnt = ThisDrawing.Utility.TranslateCoordinates(WCSPnt, acWorld, acUCS, False)
8.    
9. Dim cc As AcadCircle
10. Dim r As Double
11. r = 100
12. Set cc = ThisDrawing.ModelSpace.AddCircle(WCSPnt, r)End Sub

Sub abc()Dim ucsObj As AcadUCS ThisDrawing.SendCommand ("UCS S" & vbCr & "Test" & vbCr) Set ucsObj = ThisDrawing.UserCoordinateSystems("test") [color=red]ThisDrawing.SendCommand ("n ")[/color]Dim WCSPnt As Variant Dim UCSPnt As VariantWCSPnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ") UCSPnt = ThisDrawing.Utility.TranslateCoordinates(WCSPnt, acWorld, acUCS, False)     Dim cc As AcadCircle Dim r As Double r = 100 Set cc = ThisDrawing.ModelSpace.AddCircle(WCSPnt, r)End Sub

红色的代码看的不爽，lzh741206兄请给改一下．

雪山飞狐_lzh

2. On Error Resume Next
3. Dim ucsObj As AcadUCS
4. Set ucsObj = ThisDrawing.UserCoordinateSystems("test")
5. If Err Then
6. Err.Clear
7. ThisDrawing.SendCommand ("UCS S" & vbCr & "Test" & vbCr)Set ucsObj = ThisDrawing.UserCoordinateSystems("test")
9. End If

On Error Resume Next Dim ucsObj As AcadUCS Set ucsObj = ThisDrawing.UserCoordinateSystems("test") If Err Then Err.Clear ThisDrawing.SendCommand ("UCS S" & vbCr & "Test" & vbCr)Set ucsObj = ThisDrawing.UserCoordinateSystems("test") End If