coordonnées Lambert 93 - coordonnées d'un point

[philsogood]

hello

j'aimerai faire des blocs avec les coordonnees XY des coins des ouvrages que je vais implanter (je ne dispose pas de Covadis)

j'y arrive assez facilement sur Revit mais je suis incapable de la faire sur AutoCAD

je souhaiterai avoir un bloc(pour faire un truc propre) qui indiquerait les coordonnées Lambert ...

j'ai cru voir à une époque un sujet qui en parlait, je ne sais pas si c'est concernant des questions de géomètre

mais si vous avez des idées, je suis preneur

++, Phil

PS : je souhaite avoir des coordonnées en mètre alors que mon fichier est en millimètres!! :)

[thierry.garré]

Bonjour, ça doit pouvoir se faire avec un champ dans l'attribut du bloc non ?

[philsogood]

salut Thieery

L'idée était bonne mais...

voila les possibilité que j'ai avec les champs... après je ne suis aps un grnad manitou des champs non plus...

COORD_X et COORD_Y sont les attributs de mon blocs... je souhaitais récuperer les cooronnées x et y du bloc mais ça n'a aps l'air si simple...

bon après je peux toujours implanter mes points, faire un dataextrac, jourer avec ATTOUT, ATTIN, copier les coordonées dexcel vers les attributs de blocs mais bon... la méthode est un peu lourdingue je trouve

[lecrabe]

Hello

 

MAIS tu cliques sur le champ POSITION !

 

ET apres tu choisis X puis Meme manipulation et tu choisis Y ...

 

Mais pas sur que cela corresponde a tes besoins !?

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite (21 jours restants)

[La Lozère]

Il y a quelques temps, j'avais fais des blocs de coordonnées à partir de champs. Les voici :

A TELECHARGER

 

Pour le bloc avec Z, il faut que le bloc soit positionné au bon Z.

pour avoir les coordonnées en Lambert, il faut que tes objets soient implantés aux bonnes coordonnées du bon système. Les champs fonctionnent sur la base du SCG.

[philsogood]

oh oh oh...

on est plus très loin du but!!

comment fait-on pour mettre eun facteur dans cette histoire car je le rrappelle, monn fichier est en millimètre et les LAmbert 93 sont exprimés en mètre

Phil

[philsogood]

pas mal ton bloc La lozère, ej suis encore coincé avec moin histoire d'unités...

et oué, je sais quelle idée de bosser en millimètres... (après pour la tuyauterie dans des locaux techniques c'est assez pratique)

[lecrabe]

Hello "Le Vil Lyonnais"

 

Je suppose que tu as choisi par exemple QUE le champ X (ou Longueur) ...

Alors tu copies (Ctrl C) l abominable ligne grise en bas : %%

 

Tu passe en Mode FORMULE ! ... Dans la Zone FORMULE , tu colles (Ctrl V)

 

Et tu ajoutes (a la fin) : * 0.001

Si tu veux convertir des mm lineaires en m lineaires !?

Ou des Coords XY en mm vers en m !?

 

CLIC sur EVALUER ...

 

LA SANTE (Stay Safe), Bye, lecrabe "triste" - Vil Stephanois

Automne 2020, la retraite (21 jours restants)

 

PS1: et pour ma retraite, tu m offres un excellent Whiskey Single Malt !?

 

PS2: et pour La Lozere, c quoi ??

[philsogood]

génial ton truc Patrice!!

Phil

[bonuscad]

On peut le faire directement avec un champ sans passer par un bloc.

Bizarrement en mode manuel on ne peut pas utiliser un facteur de conversion, par contre en codant le champ comme ici, on peut?!?!, encore un drôle comportement d'autocad

(vl-load-com)
(defun make_field (pt# / obj)
(vlax-put (vla-AddPoint Space (vlax-3d-point (trans pt# 1 0))) 'layer "Id-Point")
(setq obj (entlast))
(mapcar
	'(lambda (lx)
		(apply
			'(lambda (ins_point value_field att_point txt_height dwg_dir name_layer txt_rot / nw_obj)
				(setq nw_obj
					(vla-addMtext Space
						(vlax-3d-point (trans ins_point 1 0))
						0.0
						(strcat
							"{\\fArial Narrow|b0|i0|c0|p34;"
							"%<\\AcObjProp.16.2 Object(%<\\_ObjId "
							(itoa (vla-get-ObjectID (vlax-ename->vla-object obj)))
							value_field
							"}"
						)
					)
				)
				(mapcar
					'(lambda (pr val)
						(vlax-put nw_obj pr val)
					)
					(list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'Layer 'Rotation)
					(list att_point txt_height dwg_dir ins_point name_layer txt_rot)
				)
			)
			lx
		)
	)
	(list
		(list
			(mapcar '+ (trans pt# 1 0) (list (getvar "TEXTSIZE") (* (getvar "TEXTSIZE") 0.5) 0.0))
			">%).Coordinates \\f \"%lu2%pt1%pr3%ps[X=,]%ct8[0.001]\">%"
			7
			(getvar "TEXTSIZE")
			5
			"Id-XY"
			rtx
		)
		(list
			(mapcar '+ (trans pt# 1 0) (list (getvar "TEXTSIZE") (- (* (getvar "TEXTSIZE") 0.5)) 0.0))
			">%).Coordinates \\f \"%lu2%pt2%pr3%ps[Y=,]%ct8[0.001]\">%"
			1
			(getvar "TEXTSIZE")
			5
			"Id-XY"
			rtx
		)
		(list
			(mapcar '+ (trans pt# 1 0) (list (- (getvar "TEXTSIZE")) 0.0 0.0))
			">%).Coordinates \\f \"%lu2%pt4%pr3%ps[Z=,]%ct8[0.001]\">%"
			6
			(getvar "TEXTSIZE")
			5
			"Id-Z"
			rtx
		)
	)
)
)
(defun c:point2xyz_field ( / htx rtx AcDoc Space ncol pt)
(initget 6)
(setq htx (getdist (getvar "VIEWCTR") (strcat "\nSpécifiez la hauteur du champ <" (rtos (getvar "TEXTSIZE")) ">: ")))
(if htx (setvar "TEXTSIZE" htx))
(if (not (setq rtx (getorient (getvar "VIEWCTR") "\nSpécifiez l'orientation du champ <0.0>: "))) (setq rtx 0.0))
(setq
	AcDoc (vla-get-ActiveDocument (vlax-get-acad-object))
	Space
	(if (= 1 (getvar "CVPORT"))
		(vla-get-PaperSpace AcDoc)
		(vla-get-ModelSpace AcDoc)
	)
	ncol '(96 174 2)
)
(foreach n '("Id-XY" "Id-Z" "Id-Point")
	(cond
		((null (tblsearch "LAYER" n))
			(vlax-put (vla-add (vla-get-layers AcDoc) n) 'color (car ncol))
		)
	)
	(setq ncol (cdr ncol))
)
(while (setq pt (getpoint "\nPoint à côter?: "))
	(make_field pt)
)
(prin1)
)

 

[La Lozère]

Hello "Le Vil Lyonnais"

 

Je suppose que tu as choisi par exemple QUE le champ X (ou Longueur) ...

Alors tu copies (Ctrl C) l abominable ligne grise en bas : %<\...>%

 

Tu passe en Mode FORMULE ! ... Dans la Zone FORMULE , tu colles (Ctrl V)

 

Et tu ajoutes (a la fin) : * 0.001

Si tu veux convertir des mm lineaires en m lineaires !?

Ou des Coords XY en mm vers en m !?

 

CLIC sur EVALUER ...

 

LA SANTE (Stay Safe), Bye, lecrabe "triste" - Vil Stephanois

Automne 2020, la retraite (21 jours restants)

 

PS1: et pour ma retraite, tu m offres un excellent Whiskey Single Malt !?

 

PS2: et pour La Lozere, c quoi ??

 

----HUMOUR ON----

vil

adjectif

 

1.

littéraire

Qui inspire le mépris, qui est sans dignité, sans courage ou sans loyauté. Vil est un adjectif utilisé pour parler d'une personne ou d'un acte méprisable ou inqualifiable.

Vil courtisan, vil flatteur.

----Humour OFF----

 

 

PS2: et pour La Lozere, c quoi ??

Pas compris ;)

[lecrabe]

Hello

 

Mais La Lozere merite aussi un cadeau !?

 

LA SANTE (Stay Safe), Bye, lecrabe "triste"

Automne 2020, la retraite (21 jours restants)

[La Lozère]

 

Mais La Lozere merite aussi un cadeau !?

 

 

Effectivement ;) Alors pour moi ce sera plutôt une bonne mousse.... B)