某些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

此函数应返回所需的点：

copy

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

使用维度实体名称调用：

copy

(dimpoints <dimension-entity>)

返回WCS中的点。

[编程交流] 某些rot中没有关联代码信息

发表回复

精选推荐