空间线的标注

st788796

Acad 中 Dimension 一般是在 XY 平面标注，如果是一个空间 Line，需要将此 Line 设定到一个被 XY 平面包含的 UCS 后再使用 标注命令，用下面的程序可以完成设定 UCS ，标注 Line

2. 
   
3. (defun c:tt (/ e sp ep p0 xdir ydir zdir)
   
4.   (if (setq e (xdrx_entsel "\nPick Line: " '((0 . "line"))))
   
5.     (progn
   
6.       (mapcar 'set
   
7.               '(sp ep)
   
8.               (xdrx_getpropertyvalue (car e) "startPoint" "endPoint")
   
9.       );_获取直线的起点、终点
   
10.       (xdrx_ucs_set sp (mapcar '- ep sp) );_设置一个临时 UCS，该直线作为 Z 轴，任意轴算法下，该坐标系是唯一的
    
11.       (mapcar 'set
    
12.               '(p0 xdir ydir zdir)
    
13.               (XD::UCS:CoordSys)
    
14.       );_取出该 UCS 的 x y z 信息
    
15.       (xdrx_ucs_set p0 zdir xdir);_重新设置一个坐标系，将直线作为 x 轴，上一个UCS的 x 轴作为 Z 轴
    
16.       (vla-AddDimAligned
    
17.         (vla-get-modelspace
    
18.           (vla-get-activedocument (vlax-get-acad-object))
    
19.         )
    
20.         (vlax-3d-point sp)
    
21.         (vlax-3d-point ep)
    
22.         (vlax-3d-point sp)
    
23.       );_在 UCS 下生成 标注，这里 xdrx_dimension_makexxx 不适用 ucs 情况
    
24.       (command "ucs" "w")
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

<br /> (defun c:tt (/ e sp ep p0 xdir ydir zdir)<br />   (if (setq e (xdrx_entsel "\nPick Line: " '((0 . "line"))))<br />     (progn<br />       (mapcar 'set<br />               '(sp ep)<br />               (xdrx_getpropertyvalue (car e) "startPoint" "endPoint")<br />       );_获取直线的起点、终点<br />       (xdrx_ucs_set sp (mapcar '- ep sp) );_设置一个临时 UCS，该直线作为 Z 轴，任意轴算法下，该坐标系是唯一的<br />       (mapcar 'set<br />               '(p0 xdir ydir zdir)<br />               (XD::UCS:CoordSys)<br />       );_取出该 UCS 的 x y z 信息<br />       (xdrx_ucs_set p0 zdir xdir);_重新设置一个坐标系，将直线作为 x 轴，上一个UCS的 x 轴作为 Z 轴<br />       (vla-AddDimAligned<br />         (vla-get-modelspace<br />           (vla-get-activedocument (vlax-get-acad-object))<br />         )<br />         (vlax-3d-point sp)<br />         (vlax-3d-point ep)<br />         (vlax-3d-point sp)<br />       );_在 UCS 下生成 标注，这里 xdrx_dimension_makexxx 不适用 ucs 情况<br />       (command "ucs" "w") <br />     )<br />   )<br />   (princ)<br /> )

xiejeff2008

爱死你了，这几天一直在愁这个，感谢感谢！