Hi robd,
one way to get a selection set with the INSERTS that have the three TAGs and Values...
Untested...
(vl-load-com)
(defun c:demo (/ get_atts att att_lst enm i ss)
;; Function to build a dotted pair list from attributes
;; '((TAG . value)(TAG . value))
(defun get_atts (enm / att obj)
(if (or (and (eq (type enm) 'ENAME)
(setq obj (vlax-ename->vla-object enm))
(eq (vla-get-hasattributes obj) :vlax-true)
)
(and (eq (type enm) 'VLA-OBJECT)
(setq obj enm)
(eq (vla-get-hasattributes obj) :vlax-true)
)
)
(mapcar
'(lambda (att)
(cons (vla-get-TagString att) (vla-get-TextString att))
)
(vlax-invoke obj "GetAttributes")
)
)
)
;; ------- Main code -------
;; test for a valid selection set
(if (setq ss (ssget "_X" '((0 . "INSERT") (66 . 1))))
;; if valid, then
(progn
;;repeat the number of inserts in the ss selection set
(repeat (setq i (sslength ss))
;; get the insert ename using the index i
;; starting from the last and subtracting
;; one in each repetition
(setq enm (ssname ss (setq i (1- i))))
;; get a list with all attributes and values
;; using get_atts and as argument the ename
(setq att_lst (get_atts enm))
;; test if all the three TAGs and Values are not members from the list
(if (not (and (vl-position '("CIRCUIT" . "3") att_lst)
(vl-position '("TCIRCUIT" . "3") att_lst)
(vl-position '("SCIRCUIT" . "3") att_lst)
)
)
;; delet that ename from ss selection set
(ssdel enm ss)
)
)
;; test if selection set length is bigger then 0
(if (> (sslength ss) 0)
;; if true
(progn
;; here you process the selection set
;; I did use the sssetfirst only as a visual aid...
(sssetfirst nil ss)
)
;; if not true
(alert "The current dwg don't have INSERTS with the three TAGs and Values... ")
)
)
;; if there is no valid selection set
(alert "The current dwg don't have INSERTS with ATRIBUTES... ")
)
(princ)
)
Hope this helps,
Henrique
Hi robd,
it's not a list, it is a selection set...
Untested...
(defun c:test (/ chkcircuit circuit ck ct ctr e1 e2 lgth newss sl ss)
(if (and (setq chkcircuit (getstring 2 "\nEnter circuit.. "))
(setq ss (ssget "X" '((0 . "INSERT") (66 . 1))))
)
(progn
(setq sl (sslength ss)
ct 0
ctr 0
;; start a new selection set
newss (ssadd)
)
(repeat sl
(setq e1 (ssname ss ct))
(setq ck 2)
(while (not (equal ck "SEQEND"))
(setq e1 (entnext e1)
e2 (entget e1)
ck (cdr (assoc 0 e2))
)
(if (= (cdr (assoc 2 e2)) "CIRCUIT") ;check for CIRCUIT attribute
(if (= (cdr (assoc 1 e2)) chkcircuit) ;make sure this blocks CIRCUIT is value in chkcircuit
(progn
(ssadd (ssname ss ct) newss) ; add to selection set ss1
(setq lgth (sslength newss))
(print lgth)
(setq ctr (+ ctr 1))
)
)
)
)
(setq ct (+ ct 1))
)
(princ "\n"); new line
(princ ctr)
(princ " Blocks were added to new selection set: ")
;(princ circuit)
)
)
(princ)
)
Hope this helps,
Henrique