« previous next »
Pages: [1] |   Go Down

Author Topic: Profile text setting  (Read 1177 times)

0 Members and 1 Guest are viewing this topic.

mohan

  • Newt
  • Posts: 98
Profile text setting
« on: August 09, 2023, 11:34:53 AM »
Help to have a small lisp as below Image:
Attached a AutoCAD file also

Thanks
Logged
"Save Energy"

mohan

  • Newt
  • Posts: 98
Re: Profile text setting
« Reply #1 on: August 23, 2023, 08:38:46 AM »
I have work this match, minor error was there !
Code - Auto/Visual Lisp: [Select]
  1. (defun c:heeraprofile (/ ss ss1 e)
  2. (if (setq ss (ssget "_:L" '((0 . "TEXT"))))
  4. (setq ss1 (command "TXT2MTXT" ss ""))
  5. (repeat (setq i (sslength ss1))
  6. (setq e (ssname ss1 (setq i (1- i))))
  7. (setpropertyvalue e "Width" 70)
  8. (setpropertyvalue e "DefinedHeight" 0)
  9. (setpropertyvalue e "TextHeight" 3.75)))) (princ))
« Last Edit: August 23, 2023, 08:52:11 AM by mohan »
Logged
"Save Energy"
Pages: [1] |   Go Up
« previous next »