Restaurer le système de coordonnées WCS en VBA

[rod316]

par vba J'ai changé le système de coordonnées de wcs à ucs et à travers des plongeurs pour traiter les chiffres dans l'espace défini par le système ucs.
Je dois retourner au système de coordonnées wcs via les commandes vba.
Je vous remercie.

 

[rpor66]

par ora accontentati di questo:
cedrawing.sendcommand (commande ""_ucs"" ""_w"") "

 

[rod316]

Ok, grazie.

 

[tracciatura.net]

Si vous mettez le code ou la partie qui change ucs...
Cependant cela fonctionne mais l'utt actuel doit avoir un nom autrement par erreur

sous f_ucsworld()
DIM po_ucs comme acaducs
dim pd_x(2) double
dim pd_y(2) double
dim pd_or(2) double

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

set po_ucs = thisdrawing.activeucs
po_ucs.xvector = pd_x
po_ucs.yvector = pd_y
po_ucs.origin = pd_or
ce dessin. activeucs = po_ucs
fin sous

 

[rod316]

Salut "tracciatura.net"
le nom est attribué lors de la création des nouveaux ucs.
En fait, j'ai créé un sous-marin qui est rappelé lorsque nécessaire avec le seul nom de paramètre.
dans le sous je choisis trois points qui me définissent origine, axe x et axe y.

public sub nuovo_ucs(nome_ucs)
' définit un nouveau

dim origineenuovo_ucs(0 à 2) double
dim puntoasse_x(0 à 2) double
dim puntoasse_y(0 à 2) double

userform1.hid

point_ origine_clic = actifdocument.utility.getpoint(, "point d'origine")
ax_click = activedocument.utility.getpoint(, "point axe x")
siy_click = activedocument.utility.getpoint(, "point axe y")

origine_ucs(0) = point_ origine_clic(0): originenuovo_ucs(1) = point_ origine_clic(1): originenuovo_ucs(2) = point_origine_clic(2)
pointasse_x(0) = assex_click(0): puntoasse_x(1) = assex_click(1): puntoasse_x(2)=assex_click(2)
pointasse_y(0) = assey_clic(0): puntoasse_y(1) =assey_clic(1): puntoasse_y(2)=assey_clic(2)

set ucsobj = thisdrawing.usercoordersystems.add(original_ucs, pointasse_x, pointasse_y, name_ucs)
cedrawing.activeucs = ucsobj
cedrawing.activeviewport.ucsiconon = true
cedrawing.activeviewport.ucsiconatorigin = true
Cedrawing.activeviewport = cedrawing.activeviewport

fin

 

[tracciatura.net]

mais toujours mon sous-marin travaille avec l'oiseau actuellement actif