0 Members and 1 Guest are viewing this topic.
How to list the values of a property added to the AECC-COGO_POINT?
(defun cogo_list_Collect ( ss / i l o ss )(repeat (setq i (sslength ss)) (setq i (1- i) o (vlax-ename->vla-object (ssname ss i)) l (cons (mapcar '(lambda ( p ) (vlax-get o p)) '(easting northing elevation)) l) ) ) l)
(cogo_list_Collect (ssget '((0 . "AECC_COGO_POINT"))))
Dilan, these are not properties (easting northing elevation). These are the ones that have been added (Sigma E, Sigma N, Sigma Z), see the attached drawing.
Quote from: FELIX on June 27, 2020, 06:25:41 PMDilan, these are not properties (easting northing elevation). These are the ones that have been added (Sigma E, Sigma N, Sigma Z), see the attached drawing.I have no such properties in civil
You will need to change your CIV3D style to display sigmas, or do you want to get the aecc point details for some thing else.There are various ways but bottom line is get properties of a Aecc point the issue is the sigmas may be in a separate area but linked via pt number. Need sample dwg.
Export Points > Create a point file format of using user defined properties. e.g. PEDSeSnSz
Set the point group classification to Sigmas or All. In your dwg, it is set to none.Then to read the UDP's:Code - Auto/Visual Lisp: [Select](setq wiz (vlax-ename->vla-object (car (entsel "\nPick a point: "))))(foreach x '("Sigma E" "Sigma N" "Sigma Z")(princ (strcat "\n"(vlax-invoke wiz 'GetUserDefinedPropertyValue x))))(princ)EDIT (John): Added code tags.
PERFECT, EXCELLENT, THANK YOU.