JoeyG_77 发表于 2022-7-5 16:45:05

口齿不清。。。。

大家好，
我有一个惯例，如果是Lisp程序的话，那就太好了。。。我画了一个矩形，然后使用当前的标注样式。在矩形内标注X和Y。。。有人知道这样的代码吗？

Tharwat 发表于 2022-7-5 17:14:34

你好
 
像这样的？

(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)
)

JoeyG_77 发表于 2022-7-5 17:34:25

太棒了。。。。谢谢您！！！

Tharwat 发表于 2022-7-5 17:59:01

很好，不客气。
页: [1]
查看完整版本: Lisp程序。。。。