TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: PM on March 21, 2020, 07:47:51 PM

Title: annotative to Non-annotative lisp
Post by: PM on March 21, 2020, 07:47:51 PM

Hi. Can any one have a lisp to convert all annotative (blocks,linew,text,mtext,dimensions .....everything) to Non-annotative.

Thanks

Title: Re: annotative to Non-annotative lisp
Post by: PM on March 23, 2020, 01:56:59 PM

any ideas?

Title: Re: annotative to Non-annotative lisp
Post by: T.Willey on March 23, 2020, 03:14:44 PM

Don't have time to code anything up, but look at XData.
Example from text (when annotative)

Code - Lisp: [Select]

1. (-3
2. "AcadAnnotative"
3. (1000 . "AnnotativeData")
4. (1002 . "{")
5. (1070 . 1)
6. (1070 . 1)
7. (1002 . "}")
8. )
9.  

Example from text (when annotative is turned off)

Code - Lisp: [Select]

1. (-3
2. "AcadAnnotative"
3. (1000 . "AnnotativeData")
4. (1002 . "{")
5. (1070 . 1)
6. (1070 . 0)
7. (1002 . "}")
8. )
9.  

Title: Re: annotative to Non-annotative lisp
Post by: PM on March 29, 2020, 09:41:31 AM

Yes for text i use this code but for all blocks , dimensions , linetypes .....alll ?

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / ss )
2.  (if (setq ss (ssget "_X" '((0 . "TEXT,MTEXT"))))
3.    (command "_.change" ss "" "_P" "_A" "_No" "")
4.  )
5.  (princ)
6. )
7.  

Thanks

Title: Re: annotative to Non-annotative lisp
Post by: T.Willey on March 31, 2020, 03:15:34 PM

If you want to change everything, then why not select everything in the ssget call.  (ssget "x")) then you can pass what is returned to the change command.  This might work for you, as I don't use annotative objects and I don't see them very often I'm not sure how well the idea will work.