点到直线的标注问题

supperbaobao

在CAD中我们要标注一个点到一条直线间的垂直距离，而且垂点在直线的延长线上面，标出后标注线与直线就要有一段距离是空白的，没有办法只能够通过加尺寸线层的延长线来代替加长尺寸线，如果让尺寸线直接与所要标的直线相接而且还是标的垂直距离？

钱爷

没有很好的办法解决这个问题，只能先标注一个转角标注，然后再采用旋转命令将这个尺寸标注旋转到需要的角度（采用参照旋转），再用栅格编辑命令把尺寸标注点拉到需要标注的线段的端点。

woaishuijia

想达到这样的效果,就必须使用转角标注而不能用对齐标注.具体实现的方法:一是首先把直线和线外的点一起旋转到直线在当前坐标系中的角度为90度的整数倍,用转角标注后,再把直线,线外的点连同转角标注一起旋转回原来的角度;二是首先把坐标系绕Z轴旋转到新用户坐标系的X轴与直线的角度为90度的整数倍,用转角标注后,再把坐标系转回世界坐标系.

SunVei

这个小程序可适用一些情况
, J/ B( ]) Q" s% O4 H' Y) b可依这个思路修订补强来符合更多的情况
/ I3 o& ?9 ~! @( }4 W) X
# f* @2 C3 |8 M(defun C:fDotDim ()
9 x6 y9 V( q+ A6 |$ C   (setq pt (getpoint "\n 标注基点: ")
2 O1 U* m: {  ?4 U& @7 c* l$ c2 c3 l         ee (entsel "\n 选取垂线: ")             ; 靠近 pt  
* E* S4 i, a) e         p1 (Osnap (cadr ee) "End")
% f; }" J+ f' A6 F         p5 (Osnap (cadr ee) "Mid")
         p2 (vlax-curve-getClosestPointTo (car ee) pt T)
   )
   (command "Line" p1 p5 "")
/ @: X0 W; r6 Q" b% ]3 A3 D, U   (setq ee (entlast))
7 P( b5 i% L/ x   (command "UCS" "Object" ee)
# g/ ~4 m! p# p- T/ @   (command "Dim" "Ver" (trans p1 0 1) (trans pt 0 1) pause "" "E")
   (entdel ee)
6 x) ^2 E9 T" G" w! e& A; s: x. H% l   (command "UCS" "W")
2 q( a% R  l3 ~6 }! V- h% l)  
. L1 T' Y: @+ m, _1 Y
% ]2 x& E$ P0 T: j; For test only