31
AutoLISP (Vanilla / Visual) / Re: Help : Move Block
« Last post by Lastknownuser on July 23, 2024, 01:37:16 AM »If I change 10 codes in Block's Entity List, the Text included in Block does not move, so should I move the Text individually?
you need to select block's attribute that has that text (ATTRIB), then change that attribute code 11 to move it to a new position
here is some quick example where you select the block and new point, and it changes position of first attribute text
Code: [Select]
(setq blkename (car (entsel)))
(setq newpt (getpoint))
(setq attename (entnext blkename));first block attribute
(setq attename_lst (entget attename))
(setq attename_lst (subst (cons 11 newpt) (assoc 11 attename_lst) attename_lst))
(entmod attename_lst)