EntMake方式生成对齐标注，采用当前标注样式，当前DIMSCALE

YueFeng

2. ;功    能:EntMake 方式生成对齐对标注，默认图层、颜色、标注样式、标注全局比例变量。
   
3. ;调用格式:($YF_EMAligneDim <起点> <终点> <文字基点>)
   
4. ;返 回 值:生成对象图元名。
   
5. ;支持函数:
   
6. ;示    例:($YF_EMAligneDim (Getpoint) (Getpoint) (GetPoint))
   
7. ;整理日期:2015年5月12日
   
8. 
   
9. (Defun $YF_EMAligneDim (SP EP TxtPt / DIMSCALE OScale DD DD2 Result)
   
10.    (EntMake
    
11.       (List
    
12.          '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
    
13.           (Cons 10 Txtpt)
    
14.          '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")
    
15.           (Cons 13 SP) (Cons 14 EP)
    
16.           (List
    
17.                 -3 (List "ACAD"
    
18.                       '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 40) (Cons 1040 (GetVar "DIMSCALE")) '(1002 . "}")))
    
19.          
    
20.       )
    
21.    )
    
22.    (EntLast)
    
23. )
    

;功    能:EntMake 方式生成对齐对标注，默认图层、颜色、标注样式、标注全局比例变量。<br /> ;调用格式:($YF_EMAligneDim <起点> <终点> <文字基点>)<br /> ;返 回 值:生成对象图元名。<br /> ;支持函数:<br /> ;示    例:($YF_EMAligneDim (Getpoint) (Getpoint) (GetPoint))<br /> ;整理日期:2015年5月12日<br /> <br /> (Defun $YF_EMAligneDim (SP EP TxtPt / DIMSCALE OScale DD DD2 Result)<br />    (EntMake<br />       (List<br />          '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")<br />           (Cons 10 Txtpt)<br />          '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")<br />           (Cons 13 SP) (Cons 14 EP) <br />           (List <br />                 -3 (List "ACAD" <br />                       '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 40) (Cons 1040 (GetVar "DIMSCALE")) '(1002 . "}")))<br />           <br />       )<br />    )<br />    (EntLast)<br /> )<br />

st788796

这些从不考虑使用Entmake

2. 
   
3. (defun addDimaligned (p1 p2 p3)
   
4.   (vla-adddimaligned
   
5.     (vla-get-modelspace
   
6.       (vla-get-activedocument (vlax-get-acad-object))
   
7.     )
   
8.     (vlax-3d-point p1)
   
9.     (vlax-3d-point p2)
   
10.     (vlax-3d-point p3)
    
11.   )
    
12. )

<br /> (defun addDimaligned (p1 p2 p3)<br />   (vla-adddimaligned<br />     (vla-get-modelspace<br />       (vla-get-activedocument (vlax-get-acad-object))<br />     )<br />     (vlax-3d-point p1)<br />     (vlax-3d-point p2)<br />     (vlax-3d-point p3)<br />   )<br /> )

YueFeng

st788796 发表于 2015-5-28 20:17
这些从不考虑使用Entmake

你试试，你这个程序与DIMSCALE系统变量相关吗？

革天明

请问标注类70组码的意义是什么，当前遇到了(70 . 32)、(70 . 33)、(70 . 160)这样的组码