[编程交流] Lisp需要修改。。。

(defun c:hthc (/ ENT ELST BB LL HT P1 P2)
 (while (and (setq ent (car (entsel "Selektiraj donji text")))
             (setq elst (entget ent))
             (= (cdr (assoc 0 elst)) "TEXT")
        )
   (setq bb (textbox (list (assoc -1 elst))))
   (setq ll (cdr (assoc 10 elst))
         ht (cdr(assoc 40 elst))
         p1 (polar ll (/ pi 2) (* ht 1.333))
         p2 (polar p1 0 (abs (- (caadr bb)(caar bb))))
   )
          
   (entmake (list (cons 0 "LINE")
                  (cons 6 "BYLAYER")
                  (cons 8 "linija")
                  (cons 10 p1)
                  (cons 11 p2)
            )
   )
 )
 (princ)
)

(defun c:fract (/ tEnt1 tEnt2 tEnt)
 (vl-load-com)
 (and (setq tEnt1 (car (entsel "\nSelect Upper Text: ")))
      (eq "TEXT" (cdadr (entget tEnt1)))
      (setq tEnt2 (car (entsel "\nSelect Lower Text: ")))
      (eq "TEXT" (cdadr (entget tEnt2)))
      (setq tEnt
        (M-Text '(0 0 0)
          (strcat "\{\\H0.7x;\\S"
            (cdr (assoc 1 (entget tEnt1))) "/"
              (cdr (assoc 1 (entget tEnt2))) ";}")))
      (command "_.move" tEnt "" '(0 0 0) pause))
 (princ))             
(defun M-Text (pt val)
 (entmakex
   (list
     (cons 0 "MTEXT")         
     (cons 100 "AcDbEntity")          
     (cons 100 "AcDbMText")    
     (cons 10 pt)        
     (cons 1 val))))