MoveStretchPoint 应用标注对齐

st788796 · 发表于 2013-6-27 17:37:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

对相同角度的标注按基准标注对齐

(defun c:tt (/ d ss pl p3 p4 pts v)
(if (and
(setq d (car (xdrx_entsel "\n基准标注: " '((0 . "Dimension")))))
(setq ss (ssget '((0 . "Dimension"))))
)
(progn
(setq pl (xdrx_entity_getstretchpoint d)
p3 (caddr pl)
p4 (cadddr pl)
)
(ssdel d ss)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(setq pts (xdrx_entity_getstretchpoint e)
v (mapcar
'-
(inters p3 p4 (car pts)(caddr pts) nil)
(caddr pts)
)
)
(xdrx_entity_movestretchpoint e v 0 1 2 3 4 5)
)
)
)
(princ)
)

对线性标注返回5个点，对应是 Dim 的5个夹点，0 1 是标注点， 2 3 是尺寸线两端的点，4 是标注文字夹点

newer · 发表于 2013-6-27 18:50:24

程序在选择实体的时候，是不是在加上一个过滤对齐标注实体更好？否则下面就出错了。

st788796 · 发表于 2013-6-27 19:21:36

newer 发表于 2013-6-27 18:50
程序在选择实体的时候，是不是在加上一个过滤对齐标注实体更好？否则下面就出错了。

那个 100 好像过滤不好用，用遍历

XDSoft · 发表于 2013-6-27 20:16:34

两个地方加点代码就行了

(if (and
(setq d (car (xdrx_entsel "\n基准标注: " '((0 . "Dimension")))))
(=1 (logand (xdrx_getentdxf 70) 1)) ;;;增加判断是否对齐标注
(setq ss (ssget '((0 . "Dimension"))))
)
.....

(while (and (setq e (xdrx_getentdata 0))
(xdrx_object_isA e "AcDbAlignedDimension") ;;判断是否是对齐标注
)
(setq pts (xdrx_entity_getstretchpoint e)
....

lgttblue · 发表于 2013-6-27 20:40:06

新手路过学习:lol

Free-Lancer · 发表于 2013-6-27 20:48:53

objectname也可以判断来自: Android客户端

st788796 · 发表于 2013-6-27 23:54:17

本帖最后由 st788796 于 2013-6-28 00:06 编辑

这个程序应该对这个都有效
0 = 旋转、水平或垂直；1 = 对齐

(= 1 (logand dxf70 1)) 不能包括水平、垂直、旋转标志

包括”AcDbAlignedDimension“ "AcDbRotatedDimension"

/db_自贡黄明儒_ · 发表于 2013-6-28 08:21:16

刚才试了一下你的程序，也只能差不多在一第线上的尺寸才有效

Free-Lancer · 发表于 2013-6-28 09:39:55

要让计算机识别第一道，第二道，第三道尺寸，还需要更多代码去排序，LZ的程序仅是个函数演示来自: Android客户端

账号		自动登录	找回密码
密码			立即注册

[每日一码] MoveStretchPoint 应用标注对齐

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评