CAD Forum discussion (EN) : text width lisp help https://www.cadforum.cz/forum_en/ Fri, 12 Jun 2026 14:20:42 +0000 Tue, 06 Oct 2015 05:28:25 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum_en/RSS_post_feed.asp?TID=11391 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[text width lisp help : in reply to john, it does happen...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30544&title=text-width-lisp-help#30544 Author: marcus007
Subject: 11391
Posted: 06.Oct.2015 at 05:28

in reply to john, it does happen from time to time and since i am putting in the effort i might as well get it perfect and thx to kent it is perfect.
thx kent
]]> Tue, 06 Oct 2015 05:28:25 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30544&title=text-width-lisp-help#30544 <![CDATA[text width lisp help : Anywhere in that (repeat) function...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30542&title=text-width-lisp-help#30542 Author: Kent Cooper
Subject: 11391
Posted: 05.Oct.2015 at 19:00

Anywhere in that (repeat) function after the (setq obj ...), put this in, to override the width factor [called the ScaleFactor VLA Property] of plain Text objects only:

(if (= (vla-get-ObjectName obj) "AcDbText") (vla-put-ScaleFactor obj 1.0))
]]> Mon, 05 Oct 2015 19:00:18 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30542&title=text-width-lisp-help#30542 <![CDATA[text width lisp help : So you are getting a lot of third-party...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30528&title=text-width-lisp-help#30528 Author: John Connor
Subject: 11391
Posted: 05.Oct.2015 at 11:55

So you are getting a lot of third-party drawings where the author has purposely changed the text width?  I think I can count on one finger the number of times I've run into something like that.  I think the vast majority of CAD techs accept the default of 1.0 for text width.  Is this really such a problem that it needs to be addressed in a lisp routine?
]]> Mon, 05 Oct 2015 11:55:12 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30528&title=text-width-lisp-help#30528 <![CDATA[text width lisp help : ok so the deal is i handle a lot...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30526&title=text-width-lisp-help#30526 Author: marcus007
Subject: 11391
Posted: 05.Oct.2015 at 03:38

ok so the deal is i handle a lot of third party drawings, i convert the drawings to my layers, text styles, text heights and text widths. I have tweaked the following lisp program i found online to convert text and mtext to my layer "htext", my textstyle "htext" and set the text height to 0.15625 multiplied by the current ltscale. the problem is with text width, my text style "htext" width is set to 1.0, i know that when you change an existing text's text style that piece of text takes on all the properties of the style. but in this program it only changes mtext width and not old fashioned single dtext. can you help a brother out?

(defun c:c2Htext (/ textstyle layer selectionset integer selectionsetname obj)
  (setq sc (getvar "ltscale"))
  (setq newht (* sc 0.15625))
  (vl-load-com)
  (if (tblsearch "style" "Romand")
    (setq textstyle t)
    (princ "\n Text Style <Romand> is not existed ")
  )
  (if (tblsearch "LAYER" "Htext")
    (setq layer t)
    (princ "\n Layer <Htext> is not existed ")
  )
  (if (setq selectionset (ssget "_:L" '((0 . "TEXT,MTEXT"))))
    (repeat (setq integer (sslength selectionset))
      (setq selectionsetname
             (ssname selectionset
                     (setq integer (1- integer))
             )
      )
      (setq obj (vlax-ename->vla-object selectionsetname))
      (vla-put-height obj newht)
      (vla-put-color obj 256)
      (if textstyle
        (vla-put-stylename obj "Romand")
      )
      (if layer
        (vla-put-layer obj "Htext")
      )
    )
    (princ)
  )
  (princ)
)
]]> Mon, 05 Oct 2015 03:38:01 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=11391&PID=30526&title=text-width-lisp-help#30526