i have a very useful lisp routine that helps me increment the numbers in the selected tag.
i just want to make it choose the tag ("BAR_MARK") automatically..
(meaning that clicking on the block wil do the work and its not necessary to click on the tag)
can anyone help?
Solved! Go to Solution.
quick mode on the code
here's a snippet, [refer to the attached file]
(while (and (/= fin 1) (not (or (= id "Pause") (= id "TEXT") (= id "MTEXT") Tag_found )))
((/= obj nil) (setq objid (entget (car obj))) (setq id (cdr (assoc 0 objid))) (setq Tag_found (if (and (= id "INSERT") (= (cdr (assoc 66 objid)) 1) (setq obj (vl-remove-if-not '(lambda (j) (eq (vla-get-tagstring j) "BAR_MARK") ) (vlax-invoke (setq vl_obj (vlax-ename->vla-object (car obj))) 'Getattributes) )) (setq obj (list (vlax-vla-object->ename (car obj))))) T nil)) )
Log into access your profile, ask and answer questions, share ideas and more. Haven't signed up yet? Register