COORDINATE

[mousho]

HELLO ALL

Im trying to figuare how can i get point coordinate by field??

 

the next step is to add it to exist lisp that Edwin Prakoso wrote 

https://www.cad-notes.com/using-autolisp-to-label-point-coordinate/

 

thx to all

 

 

[BIGAL]

It is a bit more complex but a field can get X Y & Z of a point just go into mtext and use the field option and look at the expression created need to do 3 times. Can then use this method in a lisp. Need Lee-mac object id lisp. Just google answer should be out there all done.

[mousho]

hi bigal 

i search all the web with no sucess

 

[tombu]

I use a block insertion

;| Label for Point.
   PtLabel.lsp BY: TOM BEAUFORD
   ^P(or C:Label (load "PtLabel.lsp"));PtLabel
   BeaufordT@LeonCountyFL.gov
   Leon County Public Works/Engineering
==================================================================|;

(defun C:PtLabel (/ ATTDIA)
      (setq ATTDIA (getvar "ATTDIA"))
      (setvar "ATTDIA" 0)
      (command "._INSERT"
               "Pt_Coordinates"
               (getpoint "Pick Point: ")						;Insert pt
               (/ 0.1 (getvar "cannoscalevalue"))				;X Scale
;               (* (getvar "DIMTXT") (getvar "DIMSCALE"))	;X Scale (Alternate)
               ""							;Y Scale
;               ""				                	;Rotation
               (*(/(getvar "viewtwist")pi)-180)	;Rotation
               ""					        	;Easting
               ""					        	;Northing
      )
      (setvar "ATTDIA" ATTDIA)
      (entupd (entlast))
;      (command "._DDATTE" (entlast))
      (princ)
)

I use the same concept when labeling elevations.

 

Google "label coordinates AutoCAD Lisp", doesn't appear you searched the web very hard.

Pt_Coordinates.dwg

[BIGAL]

Have a look at this

[mousho]

thx tombu it was very helpful and im sure that im going to add it to my lisp routine,

but im looking for lisp that not using block

i find this lisp in the web and it more closer to what im looking,

the lisp here add automatically coord at each vertex

i want the option to add coord at free choose

any idea??

 

ptdef-xyz_field.lsp

[mousho]

8 hours ago, BIGAL said:

Have a look at this

 

BIGAL THX BUT I HAVE NO IDEA HOW TO USE IT AT LISP

 

[mousho]

THX TO ALL 

FIND SOLUTION