style="PADDING-RIGHT: 0px; PADDING-LEFT: 5px; MARGIN-LEFT: 5px; BORDER-LEFT: #000000 2px solid; MARGIN-RIGHT: 0px">
.dk> wrote in message
am writing a program in AutoCAD 2000.
The program must change UCS a number of times referring to some blocks
insert in 3D.
To change USC I use the following code
Public Function ChangeUcs (ObjHand As String) As Boolean
Dim Command As
Command = "Ucs" & vbCr & "ob" & vbCr & "(HANDENT " &
Chr(34) & ObjHand & Chr(34) & ") "
ChangeUcs = True
My problem is the following:
The program runs perfect when started from the VBA editor, but it will not
run called direct from AutoCAD.
I seams, as the "sendcommand" is not executed before the program is ended.
I use the "sendcommand" I other variations without problems, so I assume
it is the UCS operation that fails.
Can anyone give me a tip on how to run the code from
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register