;ANY THOUGHTS ..HAVING PROBLEM WITH JUSTIFYING ATTRIBUTE AND MOVING IT...WHAT IS GONG ON?
(defun attributeSearch()
(setq TagSearch (entnext BlkName))
);;defun
(defun c:AM()
(setq blk (ssget "X" '((2 . "MYBLOCKNAME"))))
(setq blkQty (sslength blk))
(setq index 0)
(while (/= index blkqty)
(setq BlkName (ssname blk index))
;UPDATE ANGLE
(attributeSearch)
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
(while (/= FindTag "T1")
(setq TagSearch (entnext Tagsearch))
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
);;while
(setq old (assoc 50 (entget Tagsearch)))
(setq new (cons 50 0))
` (setq NewList (subst new old (entget Tagsearch)))
(entmod NewList)
(entupd (cdr(assoc -1 (entget TagSearch))))
;UPDATE JUSTIFICATION LEFT
(attributeSearch)
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
(while (/= FindTag "T1")
(setq TagSearch (entnext Tagsearch))
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
);;while
(setq old (assoc 72 (entget Tagsearch)))
(setq new (cons 72 0))
` (setq NewList (subst new old (entget Tagsearch)))
(entmod NewList)
(entupd (cdr(assoc -1 (entget TagSearch))))
;UPDATE JUSTIFICATION MIDDLE LEFT
(attributeSearch)
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
(while (/= FindTag "T1")
(setq TagSearch (entnext Tagsearch))
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
);;while
(setq old (assoc 74 (entget Tagsearch)))
(setq new (cons 74 2))
` (setq NewList (subst new old (entget Tagsearch)))
(entmod NewList)
(entupd (cdr(assoc -1 (entget TagSearch))))
;MOVE ATTRIBUTE
(attributeSearch)
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
(while (/= FindTag "T1")
(setq TagSearch (entnext Tagsearch))
(setq FindTag (cdr(assoc 2 (entget TagSearch))))
);;while
(setq oldx (car (cdr (assoc 10 (entget Tagsearch)))));x value
(setq oldy (cadr (cdr (assoc 10 (entget Tagsearch)))));y value
(setq xmove (+ +5.1250 oldx))
(setq ymove (+ -5.1250 oldy))
(SETQ NEW (cons 10 (list 10 xmove ymove 0.0)))
;(setq NewList (subst (list 10 xmove ymove 0.0) old (entget Tagsearch)));NEED FIX THIIS LINE??
(entmod NewList)
(entupd (cdr(assoc -1 (entget TagSearch))))
(setq index (+ index 1))
);;while
);;defun
Edited by: msclout72 on Oct 5, 2009 9:04 AM