[编程交流] Lisp程序。。。。

(defun c:dimrct (/ p1 p2 p3 md ds st)
 ;; Tharwat - 26.Jan.2017 ;;
 (and
   (setq p1 (getpoint "\nSpecify first corner :"))
   (setq p2 (getcorner "\nOpposite corner :" p1))
   (setq p3 (list (car p1) (cadr p2) 0.))
   (setq md (mapcar '(lambda (j k) (/ (+ j k) 2.)) p1 p2))
   (vl-cmdf "_.rectang" "_non" p1 "_non" p2)
   (setq ds (/ (distance p1 p3) 10.))
   (setq st p1)
   (foreach
      pt (list p3 p2)
     (vl-cmdf
       "_.dimlinear"
       "_non"
       st
       "_non"
       pt
       "_non"
       (polar st (angle st md) ds)
       )
     (setq st pt)
     )
   )
 (princ)
 )