尺寸标注点

jan_ek · 发表于 2022-7-6 08:07:29

你好
我有个问题。如何获得Lisp指示的点的值。
http://www.fotosik.pl/pokaz_obrazek/d10bcfe75613bb78.html

MSasu · 发表于 2022-7-6 08:13:28

您应该检查DXF代码10，该代码存储您正在查找的一个点；第二个可以使用所述点计算。

第二，请把你的照片贴在这里而不是那个网站。

当做
米尔恰

pBe · 发表于 2022-7-6 08:14:28

(defun AT:GetVertices (e / p l)
 ;; Return point at each vertex of curve
 ;; e - curve to evaluate (Arc, Line, *Polyline, Spline)
 ;; [b]Alan J. Thompson,[/b] 09.30.10
 (if e
   (if (eq (setq p (vlax-curve-getEndParam e)) (fix p))
     (repeat (setq p (1+ (fix p)))
       (setq l (cons (vlax-curve-getPointAtParam e (setq p (1- p))) l))
     )
     (list (vlax-curve-getStartPoint e) (vlax-curve-getEndPoint e))
   )
 )
)

Alanjt的荣誉

Tharwat · 发表于 2022-7-6 08:20:04

copy


(defun c:TesT (/ ent e )
 (if (and (setq ent (car (entsel "\n Select a dim :")))
          (eq (cdr (assoc 0 (setq e (entget ent)))) "DIMENSION")
     )
   (progn
     (princ (cdr (assoc 13 e)))
     (princ (cdr (assoc 14 e)))
   )
   (princ)
 )
 (princ)
)