Lisp Legend

[Tharwat]

yes that is one of the point styles

Good to hear that.

Please add the full line of codes as follows:

 (setq name (vlax-get-property pntstyle 'name))

Below your line of codes as follows:

 (setq pntstyle (vlax-get point 'style))

Like this ...

(setq pntstyle (vlax-get point 'style)) 
(setq name (vlax-get-property pntstyle 'name))

... into your previous complete routine.


So the variable 'name' should have the name of the point style.

Hope this clear enough to you otherwise just ask if you stuck with any.

[_brxdvs]

Thank you sir!

got this:

Command: POINTTEST
("VLT")

one element solved!

next step, how do I "filter" the list to just get unique names? as in no repeating styles, just capture one instance of each point style.

[Tharwat]

Thank you sir!

You are welcome.

next step, how do I "filter" the list to just get unique names? as in no repeating styles, just capture one instance of each point style.

As I have did in post no# 15 HERE so just use member function against your list with cons function.

EDIT: Next time when you copy and paste codes that is not yours then it would be a respectful manner to give credits to authors / owners.

[Tharwat]

EDIT: Next time when you copy and paste codes that is not yours then it would be a respectful manner to give credits to authors / owners.

I meant THIS THREAD

[_brxdvs]

my apologies.

[_brxdvs]

this works now

(defun c:pointtest2 (/ pntSel index pntStyle styleList)
  (if (setq pntSel (ssget "_X" '((0 . "AECC_COGO_POINT")))) ;selects all cogo points in drawing
    (repeat (setq index (sslength pntSel))
      (or (member (setq pntStyle (vlax-get-property (vlax-get (vlax-ename->vla-object (ssname pntSel (setq index (1- index)))) 'style) 'name)) styleList)
          (setq styleList (cons pntStyle styleList))
      );end or
    );end repeat
  );end if
  (print styleList);used for testing delete before final
  (princ)
) (vl-load-com)

thanks for all your help!

[Tharwat]

Following your way of coding.

(defun c:pointtest (/ selpnt n index pntlist point pntstyle stylelist pntname)
  (if (setq selpnt (ssget "X" '((0 . "AECC_COGO_POINT")))) ;selects the cogo points
    (progn
      (setq n (sslength selpnt))
      (setq index 0)
      (repeat n
        (setq pntlist (entget (ssname selpnt index)))
        (setq point (vlax-ename->vla-object (cdr (assoc -1 pntlist))))
        (setq pntstyle (vlax-get point 'style))
        (setq pntname (vlax-get-property pntstyle 'name))
        (if (not (member pntname stylelist))
          (setq stylelist (cons pntname stylelist))
        )
        (setq index (1+ index))
      )
      (print stylelist)
    )
  )
  (princ)
) (vl-load-com)

[_brxdvs]

Thanks for your help Tharwat!

[Tharwat]

Thanks for your help Tharwat!

You are welcome anytime.

[_brxdvs]

So, opened a new drawing and I am getting this error: ; error: bad argument type: VLA-OBJECT nil when using the code from yesterday.

I think it has to do with some cogo points that don't have styles applied and are set to default, is there a way to exclude nil values?