Print Page | Close Window

some often use lisps.

Printed From: CAD Forum
Category: EN
Forum Name: CAD - general
Forum Description: General discussion about CAD, formats, standards, management, licensing, networking, harware, other CAD applications
URL: https://www.cadforum.cz/forum_en/forum_posts.asp?TID=10837
Printed Date: 30.Sep.2026 at 10:00


Topic: some often use lisps.
Posted By: lijinsong
Subject: some often use lisps.
Date 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" rel="nofollow - 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"))
   )
)
  


Print Page | Close Window