TheSwamp
Code Red => AutoLISP (Vanilla / Visual) => Topic started by: mohan on August 09, 2023, 11:34:53 AM
Title:
Profile text setting
Post by:
mohan
on
August 09, 2023, 11:34:53 AM
Help to have a small lisp as below Image:
Attached a AutoCAD file also
Thanks
Title:
Re: Profile text setting
Post by:
mohan
on
August 23, 2023, 08:38:46 AM
I have work this match, minor error was there !
Code - Auto/Visual Lisp:
[Select]
(
defun
c:heeraprofile
(
/
ss ss1 e
)
(
if
(
setq
ss
(
ssget
"_:L"
'
(
(
0
.
"TEXT"
)
)
)
)
(
Progn
(
setq
ss1
(
command
"TXT2MTXT"
ss
""
)
)
(
repeat
(
setq
i
(
sslength
ss1
)
)
(
setq
e
(
ssname
ss1
(
setq
i
(
1-
i
)
)
)
)
(
setpropertyvalue e
"Width"
70
)
(
setpropertyvalue e
"DefinedHeight"
0
)
(
setpropertyvalue e
"TextHeight"
3.75
)
)
)
)
(
princ
)
)