Wiederherstellen von WCs Koordinatensystem in VBA

[rod316]

durch vba Ich änderte das Koordinatensystem von wcs zu ucs und über Taucher zu Prozesszahlen im Raum, der durch das ucs-System definiert wurde.
Ich muss über vba Befehle zum wcs-Koordinatensystem zurück.
Danke.

 

[rpor66]

per ora accontentati di questo:
thisdraw.sendcommand "(Befehl ""_ucs"" ""_w"") "

 

[rod316]

Okay, grazie.

 

[tracciatura.net]

Wenn Sie den Code oder den Teil, der ucs verändert...
Allerdings funktioniert dies, aber der aktuelle Uct muss einen anderen Namen versehentlich haben

Sub f_ucsworld()
dim po_ucs as acaducs
dim pd_x(2) als doppelt
dim pd_y(2) als doppelt
dim pd_or(2) als doppelt

pd_x(0) = 1: pd_x(1) = 0: pd_x(2) = 0
pd_y(0) = 0: pd_y(1) = 1: pd_y(2) = 0
pd_or(0) = 0: pd_or(1) = 0: pd_or(2) = 0

po_ucs = thisdrawing.activeucs
po_ucs.xvector = pd_x
po_ucs.yvector = pd_y
po_ucs.origin = pd_or
Diese Zeichnung. activeucs = po_ucs
Endteil

 

[rod316]

Hi "tracciatura.net"
der Name wird bei der Erstellung der neuen ucs zugewiesen.
In der Tat habe ich einen Sub erstellt, der bei Bedarf mit dem einzigen Parameternamen erinnert wird.
in der Untergruppe I drei Punkte, die mich Ursprung, Achse x und Achse y definieren.

öffentlichkeit sub nuovo_ucs(nome_ucs)
' definiert neue ucs

dim originenuovo_ucs(0 bis 2) als doppelt
dim puntoasse_x(0 bis 2) als Doppel
dim puntoasse_y(0 bis 2) als doppelt

Userform1.hide

point_ origin_click = activedocument.utility.getpoint(, "point of origin")
ax_click = activedocument.utility.getpoint(, "Punktachse x")
siy_click = activedocument.utility.getpoint(, "Punktachse y")

Origin_ucs(0) = point_ origin_click(0): originnuovo_ucs(1) = point_ origin_click(1): originnuovo_ucs(2) = point_ origin_click(2)
pointasse_x(0) = assex_click(0): puntoasse_x(1) = assex_click(1): puntoasse_x(2)=assex_click(2)
pointasse_y(0) = assey_click(0): puntoasse_y(1) =assey_click(1): puntoasse_y(2)=assey_click(2)

ucsobj = thisdraw.usercoordinatesystems.add(original_ucs, pointasse_x, pointasse_y, name_ucs)
Diese Zeichnung.activeucs = ucsobj
thisdraw.activeviewport.ucsiconon = true
thisdraw.activeviewport.ucsiconatorigin = true
thisdraw.activeviewport = thisdrawing.activeviewport

Ende

 

[tracciatura.net]

aber immer noch mein Sub arbeitet mit dem derzeit aktiven Vogel