[编程交流] 计算人孔坡度

(defun c:TesT (/ *error* acdoc ss1 ss2 l n str e)
; TharwaT 20. 04. 2011
 (vl-load-com)
 (defun *error* (msg)
      (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **"))
   )
   (princ)
 )
 (setq acdoc (vla-get-ActiveDocument (vlax-get-acad-object)))
 (vla-StartUndoMark acdoc)
 (if
   (and
     (setq ss1 (entsel "\n First numerical Text :"))
     (setq ss2 (entsel "\n Second numerical Text :"))
     (setq l (entsel "\n Select Line :"))
   )
    (progn
      (setq n (- (atof (cdr (assoc 1 (entget (car ss1)))))
                 (atof (cdr (assoc 1 (entget (car ss2)))))
              )
      )
      (setq
        str (/ (distance (cdr (assoc 10 (setq e (entget (car l)))))
                         (cdr (assoc 11 e))
               )
               n
            )
      )
      (entmakex (list (cons 0 "TEXT")
                      (cons 10 (getpoint "\n Text Location:"))
                      (cons 40 (getvar 'textsize))
                      (cons 1 (strcat "1:" (rtos str 2 3)))
                )
      )
    )
    (princ)
 )
 (vla-EndUndoMark acdoc)
 (c:TesT)
 (princ)
)

Command: sl
Initializing...
Pipe size & type: 8" PVC
Specify 1st point:
Specify 1st elevation: 25.25
Specify 2nd point:
Specify 2nd elevation: 26
177 LF 8" PVC @ 0.42%