EntMake 方式 生成对齐标注

YueFeng

生成时采用当前 标注样式 当前 DIMSCALE

YueFeng

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

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

tranney

留个记号，以后再来

oistre

楼主真是高手，什么都是浮云啊

YueFeng

考虑DIMSCALE DIMLTFAC 两个变量的值。

1. ;函数名称:YF_EMAligneDim
   
2. ;函数功能:EntMake方式生成对齐标注，默认当前层、颜色、标注样式、标注全局比例变量。
   
3. ;调用格式YF_EMAligneDim <起点> <终点> <文字标注侧基点>)
   
4. ;返 回 值:图元名，否则返回nil。
   
5. ;示    例YF_EMAligneDim (Getpoint) (Getpoint) (GetPoint))
   
6. ;整理日期:2016年4月11日
   
7. 
   
8. (defun YF_EMAligneDim (SP EP TxtPt)
   
9.    (if
   
10.       (entmake
    
11.          (append
    
12.             (list
    
13.                '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 (trans TxtPt 1 0)) '(70 . 33) '(1 . "")
    
14.                '(100 . "AcDbAlignedDimension") (cons 13 (trans SP 1 0)) (cons 14 (trans EP 1 0))
    
15.             )
    
16.             (cond
    
17.                (
    
18.                   (and (/= (getvar "DIMSCALE") 1.0)(/= (getvar "DIMLFAC") 1.0))
    
19.                   (list (list -3 (list "ACAD" '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 40) (cons 1040 (getvar "DIMSCALE")) '(1070 . 144) (cons 1040 (getvar "DIMLFAC"))'(1002 . "}"))))
    
20.                )
    
21.                (
    
22.                   (and (/= (getvar "DIMSCALE") 1.0)(= (getvar "DIMLFAC") 1.0))
    
23.                   (list (list -3 (list "ACAD" '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 40) (cons 1040 (getvar "DIMSCALE")) '(1002 . "}"))))
    
24.                )
    
25.                (
    
26.                   (and (= (getvar "DIMSCALE") 1.0)(/= (getvar "DIMLFAC") 1.0))
    
27.                   (list (list -3 (list "ACAD" '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 144) (cons 1040 (getvar "DIMLFAC"))'(1002 . "}"))))
    
28.                )
    
29.             )
    
30.          )
    
31.          
    
32.       )
    
33.       (entlast)
    
34.    )
    
35. )

;函数名称:YF_EMAligneDim<br /> ;函数功能:EntMake方式生成对齐标注，默认当前层、颜色、标注样式、标注全局比例变量。<br /> ;调用格式<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />YF_EMAligneDim <起点> <终点> <文字标注侧基点>)<br /> ;返 回 值:图元名，否则返回nil。<br /> ;示    例<img src="static/image/smiley/default/sad.gif" smilieid="2" border="0" alt="" />YF_EMAligneDim (Getpoint) (Getpoint) (GetPoint))<br /> ;整理日期:2016年4月11日<br /> <br /> (defun YF_EMAligneDim (SP EP TxtPt)<br />    (if<br />       (entmake<br />          (append<br />             (list<br />                '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 (trans TxtPt 1 0)) '(70 . 33) '(1 . "")<br />                '(100 . "AcDbAlignedDimension") (cons 13 (trans SP 1 0)) (cons 14 (trans EP 1 0)) <br />             )<br />             (cond<br />                (<br />                   (and (/= (getvar "DIMSCALE") 1.0)(/= (getvar "DIMLFAC") 1.0))<br />                   (list (list -3 (list "ACAD" '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 40) (cons 1040 (getvar "DIMSCALE")) '(1070 . 144) (cons 1040 (getvar "DIMLFAC"))'(1002 . "}"))))<br />                )<br />                (<br />                   (and (/= (getvar "DIMSCALE") 1.0)(= (getvar "DIMLFAC") 1.0))<br />                   (list (list -3 (list "ACAD" '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 40) (cons 1040 (getvar "DIMSCALE")) '(1002 . "}"))))<br />                )<br />                (<br />                   (and (= (getvar "DIMSCALE") 1.0)(/= (getvar "DIMLFAC") 1.0))<br />                   (list (list -3 (list "ACAD" '(1000 . "DSTYLE") '(1002 . "{") '(1070 . 144) (cons 1040 (getvar "DIMLFAC"))'(1002 . "}"))))<br />                )<br />             )<br />          )<br />          <br />       )<br />       (entlast)<br />    )<br /> )