Topic: entity help

[Kerry]

Then have a look at the results of this ..

Code: [Select]

(IF (SETQ ss (SSGET ":S:E" '((0 . "LINE,ARC,CIRCLE"))))
  (SETQ ename   (SSNAME ss 0)
        data    (ENTGET ename)
        enttype (CDR (ASSOC 0 data))
  )
)

[crowellsr]

Thanks Kerry, it now gets the picked point and the type of entity. I can now start woking on the different sections of the program that it is directed to depending on the entity type.

Steve

[CAB]

And to get the pick point with ssget.

Code: [Select]

  (if (setq ss (ssget ":S:E" '((0 . "LINE,ARC,CIRCLE"))))
    (setq ssdata  (ssnamex ss 0)
          ename   (cadar ssdata)
          elist   (entget ename)
          enttype (cdr (assoc 0 data))
          PickPt  (cadr (car (cdddar ssdata)))
    )
  )