Author Topic: annotative to Non-annotative lisp  (Read 233 times)

0 Members and 1 Guest are viewing this topic.

PM

  • Newt
  • Posts: 44
annotative to Non-annotative lisp
« 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

PM

  • Newt
  • Posts: 44
Re: annotative to Non-annotative lisp
« Reply #1 on: March 23, 2020, 01:56:59 PM »
any ideas?

T.Willey

  • Needs a day job
  • Posts: 5237
Re: annotative to Non-annotative lisp
« Reply #2 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.  
Tim

I don't want to ' end-up ', I want to ' become '. - Me

Please think about donating if this post helped you.

PM

  • Newt
  • Posts: 44
Re: annotative to Non-annotative lisp
« Reply #3 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

T.Willey

  • Needs a day job
  • Posts: 5237
Re: annotative to Non-annotative lisp
« Reply #4 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.
Tim

I don't want to ' end-up ', I want to ' become '. - Me

Please think about donating if this post helped you.