API教学移动 Dim 夹点

st788796 · 发表于 2013-11-17 20:50:10

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

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

×

本帖最后由 st788796 于 2013-11-17 20:56 编辑

API中 XDRX_entity_getstretchpoint 在 Dim 实体中各 Stretchpoint 位置如图示，具体应用如下

;;获取 Dim 的夹点
(setq e (car (entsel)))
(setq pts (xdrx_entity_getstretchpoint e))
;;给定拉伸点
(setq p (getpoint "\nNew Position: "))
;;计算 1 3
(setq p1 (car pts)
p3 (nth 2 pts)
an (angle p1 p3)
)
;;计算一个位移向量
(setq inpt (inters p (polar p (+ an (/ pi 2)) 1.) p1 p3 nil)
v (mapcar '- p inpt)
)
;;拉伸 1 3 点
(xdrx_entity_movestretchpoint e v 0 2)

st788796 · 发表于 2013-11-17 21:15:01

对齐标注

(defun c:tt (/ e ss pts p1 p2)
(if (and (setq
e (car (xdrx_entsel "\n选择基准标注: " '((0 . "dimension"))))
)
(progn
(princ "\n选择对齐标注....")
(setq ss (ssget '((0 . "dimension"))))
)
)
(progn
(setq pts (xdrx_entity_getstretchpoint e)
p1 (nth 2 pts)
p2 (nth 3 pts)
)
(mapcar '(lambda (x / ptl p10 p11 inpt v)
(setq ptl (xdrx_entity_getstretchpoint x)
p10 (car ptl)
p11 (nth 2 ptl)
inpt (inters p10 p11 p1 p2 nil)
v (mapcar '- inpt p11)
)
(xdrx_entity_movestretchpoint x v 2 3 4)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

(defun c:tt (/ e ss pts p1 p2) 
  (if (and (setq 
             e (car (xdrx_entsel "\n选择基准标注: " '((0 . "dimension")))) 
           ) 
           (progn 
             (princ "\n选择对齐标注....") 
             (setq ss (ssget '((0 . "dimension")))) 
           ) 
      ) 
    (progn 
      (setq pts        (xdrx_entity_getstretchpoint e) 
            p1        (nth 2 pts) 
            p2        (nth 3 pts) 
      ) 
      (mapcar '(lambda (x / ptl p10 p11 inpt v) 
                 (setq ptl  (xdrx_entity_getstretchpoint x) 
                       p10  (car ptl) 
                       p11  (nth 2 ptl) 
                       inpt (inters p10 p11 p1 p2 nil) 
                       v    (mapcar '- inpt p11) 
                 ) 
                 (xdrx_entity_movestretchpoint x v 2 3 4) 
               ) 
              (xdrx_pickset->ents ss) 
      ) 
    ) 
  ) 
  (princ) 
)

st788796 · 发表于 2013-11-17 21:25:35

割齐标注

(defun c:tt (/ p1 p2 ss)
(if (and (setq p1 (getpoint "\nFirst Point: "))
(setq p2 (getpoint p1 "\nSecond Point: "))
(setq ss (ssget "F" (list p1 p2) '((0 . "Dimension"))))
)
(progn
(mapcar '(lambda (x / pts inpt1 inpt2 v1 v2)
(setq pts (xdrx_entity_getstretchpoint x))
(mapcar 'set '(dp0 dp1 dp2 dp3) pts)
(setq inpt1 (inters dp0 dp2 p1 p2 nil)
inpt2 (inters dp1 dp3 p1 p2 nil)
v1 (mapcar '- inpt1 dp0)
v2 (mapcar '- inpt2 dp1)
)
(xdrx_entity_movestretchpoint x v1 0)
(xdrx_entity_movestretchpoint x v2 1)
)
(xdrx_pickset->ents ss)
)
)
)
(princ)
)

金鹅起飞 · 发表于 2013-11-18 08:00:36

楼主的程序是好东东呀！这么先进，这么方便！

liuyj · 发表于 2013-11-18 09:15:50

奇怪了，我的割齐标注怎么是这样的？

st788796 · 发表于 2013-11-18 09:44:03

liuyj 发表于 2013-11-18 09:15
奇怪了，我的割齐标注怎么是这样的？

正常，你用的是Aligndimendion，演示的是RotatedDimension，align拉完标注点还需要再拉标注线回原位

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

[教学] API教学移动 Dim 夹点

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

点评

[教学] API教学 移动 Dim 夹点

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

点评

[教学] API教学移动 Dim 夹点