尺寸标注点

jan_ek · 发表于 2022-7-6 08:40:09

这是关于图片中所示的确切点，或者不是“13,14”。我还有一个问题。是否可以读取指示尺寸的刻度？

MSasu · 发表于 2022-7-6 08:44:10

@pBe：恐怕不行，只有当标签在中间，居中在垂直方向时才是这样。如果标签与其中一条尺寸界线对齐和/或位于尺寸线上方，或者用户只是将其移动到完全任意的位置，情况会如何？

当做
米尔恰

MSasu · 发表于 2022-7-6 08:48:06

尺寸特征由DIMSCALE系统变量控制。如果是关于线性尺寸的值，请检查DIMLFAC。

当做
米尔恰

pBe · 发表于 2022-7-6 08:51:21

(defun c:pointd  (/ _dxf _list ss ent)
     (setq _dxf (lambda (dx en) (cdr (assoc dx (entget en)))))
     (setq _list (lambda (p1 p2)
                       (polar p1
                              (angle p1 p2)
                              (* (distance p1 p2) 2))))
     (setq ss (ssget '((0 . "DIMENSION"))))
     (repeat (sslength ss)
           (setq ent (ssname ss 0))
           (print (list (_dxf 10 ent)
                        (_list (_dxf 10 ent) (_dxf 11 ent)))
                  )
           )
     (princ)
     )

MSasu · 发表于 2022-7-6 08:54:23

很好的方法，但请检查12号帖子。

当做
米尔恰

pBe · 发表于 2022-7-6 08:54:56

哦，我没看到那个帖子。。。我想你是对的。。随便。我明天再试一次，GTG
干杯

jan_ek · 发表于 2022-7-6 09:01:14

我不理解这个代码是如何工作的。在这里，我结合了“sincos tan cot”，这里是一个很好的和干净的。
但对我来说，这段代码工作不正常。第一个点显示正常，但第二个点远离尺寸

MSasu · 发表于 2022-7-6 09:02:31

pBe发布的解决方案适用于DIMTAD=0和DIMJUST=0。

当做
米尔恰

pBe · 发表于 2022-7-6 09:05:41

当我坐公共汽车的时候。我一直在想这个帖子。。我快疯了。所以我一回到家就写了这个

copy

(defun c:pointd  (/ _dxf  ss en ent pts)
     (setq _dxf (lambda (dx en)
                      (cdr (assoc dx
                                  (if (listp en)
                                        en
                                        (entget en))))))
     (if  (setq ss (ssget "_:S:E" '((0 . "DIMENSION"))))
          (progn
                  (setq en (ssname ss 0))
                  (setq ent (tblobjname "BLOCK" (_dxf 2 en)))
                  (repeat 3 (setq ent (entnext ent)))
                  (setq pts (list (_dxf 10 (setq ln (entget ent)))
                        (_dxf 11 ln)))
                  )
            ) pts
         )

. 此外，我还使用了与张贴的图片相同的箭头结构标记，这使得代码更容易编写

干杯Mircea。。。去睡觉

marko_ribar · 发表于 2022-7-6 09:07:55

但是你的第一个代码还可以。。。只涉及未命中距离（\u dxf 42 ent）以及（\u dxf 13 ent）和（\u dxf 14 ent）。。。

copy


(defun c:pointd  (/ _dxf _list ss ent li)
     (setq _dxf (lambda (dx en) (cdr (assoc dx (entget en)))))
     (setq _list (lambda (p1 p2 p3) (polar p1 (angle p2 p3) (_dxf 42 ent))))
     (setq ss (ssget "_+.:E:S" '((0 . "DIMENSION"))))
     (if (equal (assoc 100 (reverse (entget (setq ent (ssname ss 0))))) (cons 100 "AcDbAlignedDimension"))
           (progn
           (setq li (entmakex (list '(0 . "LINE") (cons 10 (_dxf 10 ent)) (cons 11 (_list (_dxf 10 ent) (_dxf 14 ent) (_dxf 13 ent))) '(62 . 1))))
           (print (list (_dxf 10 li) (_dxf 11 li)))
           (entdel li)
           )
           (prompt "\nWrong type of dimension picked - you must pick Aligned dimension")
     )
     (princ)
)

M.R。

[编程交流] 尺寸标注点

发表回复

精选推荐