[编程交流] 将lisp更改为插入文本fro

(defun c:slop (/ pt1 pt2 p h)
 ;; Modified by Tharwat     ;;
 ;; Text object added to codes    ;;
 (and
   (setq pt1 (getpoint "\nSelect first point: "))
   (setq pt2 (getpoint pt1 "\nSelect other point: "))
   (setq p (getpoint "\nSpecify Text Location :"))
   (entmake
     (list
       '(0 . "TEXT")
       (cons 10 p)
       (cons 11 p)
       (cons
         1
         (strcat
           "Slope ="
           (rtos (* (/ (/ (abs (float (- (cadr pt1) (cadr pt2)))) 10.0)
                       (abs (float (- (car pt1) (car pt2))))
                    )
                    1000.0
                 )
                 2
                 3
           )
           "%"
         )
       )
       (cons 40
             (if (zerop (setq h
                               (cdr
                                 (assoc
                                   40
                                   (entget (tblobjname "STYLE" (getvar 'textstyle)))
                                 )
                               )
                        )
                 )
               (getvar 'textsize)
               h
             )
       )
       (cons 7 (getvar 'textstyle))
     )
   )
 )
 (princ)
)