Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
annotative to Non-annotative lisp
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: annotative to Non-annotative lisp (Read 1551 times)
0 Members and 1 Guest are viewing this topic.
PM
Guest
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
Logged
PM
Guest
Re: annotative to Non-annotative lisp
«
Reply #1 on:
March 23, 2020, 01:56:59 PM »
any ideas?
Logged
T.Willey
Needs a day job
Posts: 5251
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]
(
-
3
"AcadAnnotative"
(
1000
.
"AnnotativeData"
)
(
1002
.
"{"
)
(
1070
.
1
)
(
1070
.
1
)
(
1002
.
"}"
)
)
Example from text (when annotative is turned off)
Code - Lisp:
[Select]
(
-
3
"AcadAnnotative"
(
1000
.
"AnnotativeData"
)
(
1002
.
"{"
)
(
1070
.
1
)
(
1070
.
0
)
(
1002
.
"}"
)
)
Logged
Tim
I don't want to ' end-up ', I want to ' become '. - Me
Please think about donating if this post helped you.
PM
Guest
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]
(
defun
c:test
(
/
ss
)
(
if
(
setq
ss
(
ssget
"_X"
'
(
(
0
.
"TEXT,MTEXT"
)
)
)
)
(
command
"_.change"
ss
""
"_P"
"_A"
"_No"
""
)
)
(
princ
)
)
Thanks
Logged
T.Willey
Needs a day job
Posts: 5251
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.
Logged
Tim
I don't want to ' end-up ', I want to ' become '. - Me
Please think about donating if this post helped you.
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
annotative to Non-annotative lisp