帮小弟写个自动标注多段线程序，谢谢哦！

惊寒

帮小弟写个自动标注多段线程序，谢谢哦！ 问题还没解决呢

wowan1314

尝试写个，还不完善。 楼主 自己 去完善下吧。

2. ;;标注的两边长
   
3. (defun c:t11 nil
   
4.     (mapcar
   
5.         '(lambda(x)
   
6.             (entmake
   
7.                 (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
   
8.                     (cons 10 (car x))
   
9.                     '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")
   
10.                     (cons 13 (car x)) (cons 14 (cadr x))
    
11.                 )
    
12.             )
    
13.             (entmake
    
14.                 (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")
    
15.                     (cons 10 (cadr x))
    
16.                     '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")
    
17.                     (cons 13 (cadr x)) (cons 14 (caddr x))
    
18.                 )
    
19.             )
    
20.         )
    
21.         (mapcar
    
22.             '(lambda(a)
    
23.                 (mapcar 'cdr
    
24.                     (vl-remove-if
    
25.                         '(lambda (b)
    
26.                             (/= (car b) 10)
    
27.                         )
    
28.                         (entget a)
    
29.                     )
    
30.                 )
    
31.             )
    
32.             (vl-remove-if-not
    
33.                 '(lambda(c) (= (type c) 'ename))
    
34.                 (mapcar
    
35.                     'cadr
    
36.                     (ssnamex (ssget '((0 . "LWPOLYLINE")(70 . 1))
    
37.                         )
    
38.                     )
    
39.                 )
    
40.             )
    
41.         )
    
42.     )
    
43. )

;;标注的两边长<br /> (defun c:t11 nil <br />     (mapcar<br />         '(lambda(x)<br />             (entmake<br />                 (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")<br />                     (cons 10 (car x))<br />                     '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")<br />                     (cons 13 (car x)) (cons 14 (cadr x))<br />                 )<br />             )<br />             (entmake<br />                 (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension")<br />                     (cons 10 (cadr x))<br />                     '(70 . 33) '(1 . "") '(100 . "AcDbAlignedDimension")<br />                     (cons 13 (cadr x)) (cons 14 (caddr x))<br />                 )<br />             )<br />         )<br />         (mapcar<br />             '(lambda(a)<br />                 (mapcar 'cdr<br />                     (vl-remove-if<br />                         '(lambda (b)<br />                             (/= (car b) 10)<br />                         )<br />                         (entget a)<br />                     )<br />                 )<br />             )<br />             (vl-remove-if-not<br />                 '(lambda(c) (= (type c) 'ename))<br />                 (mapcar<br />                     'cadr<br />                     (ssnamex (ssget '((0 . "LWPOLYLINE")(70 . 1))<br />                         )<br />                     )<br />                 )<br />             )<br />         )<br />     )<br /> )

52幕墙设计

什么多段线？ 只标注矩形两边？

惊寒

52幕墙设计 发表于 2013-7-26 02:19
什么多段线？ 只标注矩形两边？

是的

hooboxu

怎么用~~~~~~~~~