lisp modification help (automatic attribute selection)

[Anonymous]

hey

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?

[pbejse · Accepted 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))
					 )

[Anonymous]

thank you!!

[pbejse]

---

@Anonymous wrote:

thank you!!

---

You are welcome vahe.holtian.keep on coding.

Cheers