Instead of using the sendcommand to change a ucs
you could maybe use this:
Dim ucsObj As AcadUCS
Set ucsObj = ThisDrawing.UserCoordinateSystems.Add(pdblOrigin, pdblPointX,
pdblPointY, "New_UCS")
ThisDrawing.ActiveUCS =
ucsObj
I've been using that for awhile and it always seems
to work correctly, hope this might help 🙂
Michael.
style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
Hi,
I got the following error message while using SENDCOMMAND to change the UCS
in the program.
SOURCE CODE :
Dim objline As AcadLine
dim x as variant
ThisDrawing.Utility.GetEntity objline, x, "Select the cs line"
ThisDrawing.SendCommand "ucs" & vbCr & "n" & vbCr & "OB"
& vbCr & objline.ObjectID & vbCr
ERROR MESSAGE:
Command: Select the cs line 'HERE I SELECTED THE LINE.
Command: ucs
Current ucs name: *WORLD*
Enter an option
[New/Move/orthoGraphic/Prev/Restore/Save/Del/Apply/?/World]
<World>:
n
Specify origin of new UCS or [ZAxis/3point/OBject/Face/View/X/Y/Z]
<0,0,0>: OB
Select object to align UCS: 25595312
No object found
When i tried the same in Command prompt, it is working fine.
Any help in this regard will be very useful.
Regards
Anand singh
