社区 › Auto Lisp › 尺寸标注点

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)
;; Alan J. Thompson, 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

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

jan_ek 发表于 2022-7-6 08:21:18

谢谢你的帮助。
msasu-
-对不起，谢谢你的“DXF 10”pBe-这是非常酷，肯定会使用它一次，但这个维度不能使用
塔瓦-我住在这里。我试图用“DXF 10”计算坐标。

Tharwat 发表于 2022-7-6 08:24:01

 
你能更具体地解释一下你的目标吗？

MSasu 发表于 2022-7-6 08:29:20

从图片上看，OP似乎在寻找尺寸线的端点；代码13和14存储延长线的应用点。当然，这些可能与OP正在寻找的点重合，但这只是一个例外。
 
为了计算第二个点，jan_ek应从DXF代码10下存储的点的坐标开始，并检查尺寸类型、方向，如果是，还应检查代码13和14下的点。
 
当做
米尔恰

pBe 发表于 2022-7-6 08:32:46

>>
 
抱歉，伙计们。。。。。
 
我太迟钝了

Tharwat 发表于 2022-7-6 08:35:35

 
当我看到你提供的代码而不注意维度时，这让我在发布前阅读了很多次第一个帖子表单
我的第一个。

pBe 发表于 2022-7-6 08:37:53

 
它不是只有10和极坐标10（角度10 11）（*（距离10 11）2.0）？

查看完整版本: 尺寸标注点