CAD Forum discussion (EN) : some often use lisps. https://www.cadforum.cz/forum_en/ Tue, 29 Sep 2026 02:44:46 +0000 Sun, 07 Dec 2014 10:25:09 +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=10837 <![CDATA[CAD Forum discussion (EN)]]> https://www.cadforum.cz/forum_en/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum_en/ <![CDATA[some often use lisps. : because i can not find word document....]]> https://www.cadforum.cz/forum_en/forum_posts.asp?TID=10837&PID=28622&title=some-often-use-lisps#28622 Author: lijinsong
Subject: 10837
Posted: 07.Dec.2014 at 10:25

because i can not find word document. only pictures.can not upload,only zip file.
  1trim short linehead.
  2 scale text and dimension .do not change text's and dimension's contain string.
  
uploads/520799/picfile1.rar

  3 Different writing brush picture word height   (principle: Continue to exclude the narrow range of options)
  
(defun c:tt(/)
   (setq s(ssget (LIST (CONS 0  "*text") ) )
   )
   (while s
      (setq en(ssname s 0)
            h(cdr(assoc 40 (entget en)))
            s2(ssget "p" (LIST (CONS 40  h) ) )
            sl2(sslength s2)
            i  0 
      )
      (alert (strcat "current text high is : " (RTOS h 2 2) "\nReturn  selected corresponding standard word high text\n"))
      (if (setq en2 (car(entsel "Choose the corresponding standard word high text:")))
       (progn
          (setq h2 (cdr(assoc 40 (entget en2))))
            (repeat sl2
              (setq en3(ssname s2 i)
                    enl(entget en3)
                    i(1+ i)
               )
              (entmod(subst(cons 40 h2)(assoc 40 enl)enl))
            )
       )
      )
      (command "select" s "R" s2 "" ) 
      (setq s (ssget "P"))
   )
)
  
]]> Sun, 07 Dec 2014 10:25:09 +0000 https://www.cadforum.cz/forum_en/forum_posts.asp?TID=10837&PID=28622&title=some-often-use-lisps#28622