CAD Forum discussion (EN) : The title underline alignment text. https://www.cadforum.cz/forum_en/ Sun, 05 Apr 2026 11:16:54 +0000 Sun, 07 Dec 2014 09:18:01 +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=10836 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[The title underline alignment text. : (defun c:la ( ) (vl-load-com)...]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=10836&PID=28621&title=the-title-underline-alignment-text#28621 Author: lijinsong
Subject: 10836
Posted: 07.Dec.2014 at 09:18

(defun c:la ( )

   (vl-load-com)

   (setq  stn    (ssget)  

          stnl   (sslength stn) 

          pntlst nil

          n      0

   )

   (repeat stnl 

      (setq stnn (ssname stn n) 

            stnt (cdr(assoc 0 (entget stnn)))

      )

      (if (= stnt "TEXT") (progn

           (setq stnh (cdr(assoc 40 (entget stnn)))) 

           (setq stno (vlax-ename->vla-object stnn)) 

           (vla-getboundingbox stno 'minpnt 'maxpnt)

           (setq minpnt (vlax-safearray->list minpnt) 

                 maxpnt (vlax-safearray->list maxpnt)

           )

      ))

      (setq n(1+  n) )

   )

   (setq n 0)

   (repeat stnl

       (setq stnn (ssname stn n) 

             stnt (cdr(assoc 0 (entget stnn)))

       )

       (if (= stnt "LINE") (progn

           (setq ;stnc (cdr(assoc 62 (entget stnn))) 

                 stny (cdr(assoc 8 (entget stnn)))

           )

           (setq stno (vlax-ename->vla-object stnn)) 

           (vla-getboundingbox stno 'minp 'maxp)

          

           (setq minp (vlax-safearray->list minp) 

                 maxp (vlax-safearray->list maxp)

                 

                 minp(list(car minpnt)(cadr minp))

                 maxp(list(car maxpnt)(cadr minp))

                 

           ) 

           (setq pntlst(cons (list minp maxp stnn) pntlst))

       ))

       (setq n(1+ n))

   )

   (foreach pnt pntlst

       (entmake 

                   (list     

                             (cons 0 "LINE")

    (cons 10 (car pnt))

    (cons 11 (cadr pnt))

    (cons 62 7)

                             (cons 8 stny)

  )

      )

      (entdel (caddr pnt))

   )

) 


]]> Sun, 07 Dec 2014 09:18:01 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=10836&PID=28621&title=the-title-underline-alignment-text#28621