某些rot中没有关联代码信息乐筑天下

MSasu 发表于 2022-7-6 00:39:23

抱歉，这不是对齐的维度。一个对齐的将跟随应用点，其DXF代码50将为0.0。似乎这是关于线性的，在这种情况下，所述DXF代码将承受尺寸线的角度。

别担心，图像很好。你删除了之前的帖子，所以看起来我是在回复塔尔瓦特。因为这个原因，我也移动了我的职位。

LauKwokFai 发表于 2022-7-6 00:45:50

事实上，我想做的lisp是在我们公司，人们用一种非常混乱的方式制作尺寸，到处都是尺寸界线，附加的JPG只显示一个尺寸，但通常是一堆连续的尺寸和这些不均匀的尺寸界线。我想做的是根据我指定的位置排列所有尺寸界线（排列所有DXF 14和13）。因此我需要角度。

Tharwat 发表于 2022-7-6 00:47:35

你发现我之前的帖子在这方面有什么帮助吗？

LauKwokFai 发表于 2022-7-6 00:53:05

MSasu，谢谢，你是对的，我刚刚意识到只有第一个维度是一个对齐的维度，DXF 50 0.0，其余的连续维度是线性的。

MSasu 发表于 2022-7-6 00:53:29

请不要错过对齐尺寸，如果您调整代码13和14，这将弄乱尺寸线方向和测量值！

LauKwokFai 发表于 2022-7-6 00:59:12

Tharwat，非常感谢，但它似乎只有在13、14对齐时才起作用

是的，这似乎是令人头痛的部分。

Lee Mac 发表于 2022-7-6 01:02:16

此函数应返回所需的点：
(defun dimpoints ( ent / g10 g13 vec )
(setq ent (entget ent)
      g10 (cdr (assoc 10 ent))
      g13 (cdr (assoc 13 ent))
      vec (trans (mapcar '- g10 (cdr (assoc 14 ent))) 0 1)
)
(list g10
   (trans
      (inters
            (trans g10 0 1) (mapcar '+ (trans g10 0 1) (list (- (cadr vec)) (car vec)))
            (trans g13 0 1) (mapcar '+ (trans g13 0 1) vec)
            nil
      )
      1 0
   )
)
)
使用维度实体名称调用：
(dimpoints <dimension-entity>)
返回WCS中的点。

页: 1 [2]

乐筑天下's Archiver