entmake标注关联-直线起点关联

edata

标注关联有的时候比较方便，最近研究了下，精力有限，基本了解了标注关联原理。
先创建词典DICTIONARY对象，再创建关联非实体对象DIMASSOC，
再修改DICTIONARY的组码360，更新标注DIMENSION对象的关联反应器组码，更新直线对象的关联反应器组码。
理论上其他应该类似。
以下是直线标注关联测试代码。

1. (defun c:tt(/ dic_list dim1 dim_assoc dim_dic dim_list l1 l1_list l2 l2_list p1 p2 p3 p4 pt pt1 pt2)
   
2.   (setq p1(getpoint "\n第1点:")
   
3.   p2(getpoint p1 "\n第2点:")
   
4.   p3(getpoint  "\n第3点:")
   
5.   p4(getpoint p3 "\n第4点:")
   
6.   )
   
7.   (setq pt1 p1
   
8.   pt2 p3
   
9.   pt(polar pt2(+ (angle pt1 pt2) (* pi 1.5)) 1 )
   
10.   )
    
11.   (setq l1(entmakex(list '(0 . "line")(cons 10 p1)(cons 11 p2))))
    
12.   (setq l2(entmakex(list '(0 . "line")(cons 10 p3)(cons 11 p4))))
    
13.   (setq dim1(entmakex (list '(0 . "DIMENSION")
    
14.           '(100 . "AcDbEntity")
    
15.           '(100 . "AcDbDimension")
    
16.           (cons 10 pt)
    
17.           '(70 . 32)
    
18.           '(1 . "")
    
19.           '(100 . "AcDbAlignedDimension")
    
20.           (cons 13 pt1)
    
21.           (cons 14 pt2)
    
22.           '(50 . 1.5708)
    
23.           '(100 . "AcDbRotatedDimension")
    
24.           )
    
25.           )
    
26.   )
    
27.   (setq dim_dic(entmakex (list '(0 . "DICTIONARY")
    
28.              '(100 . "AcDbDictionary")
    
29.              '(280 . 1)
    
30.              '(281 . 1)
    
31.        )
    
32.          ))
    
33.   (setq dim_assoc(entmakex (list  '(0 . "DIMASSOC")
    
34.           '(102 . "{ACAD_REACTORS")
    
35.           (cons 330 dim_dic)
    
36.           '(102 . "}")
    
37.           (cons 330 dim_dic)
    
38.           '(100 . "AcDbDimAssoc")
    
39.           (cons 330 dim1)
    
40.           '(90 . 3) '(70 . 0) '(71 . 0)
    
41.           '(1 . "AcDbOsnapPointRef")
    
42.           '(72 . 13)
    
43.           (cons 331 l1)
    
44.           '(73 . 2) '(91 . 0) '(40 . 0.0) '(10 0.0 0.0 2.0e+050) '(75 . 0)
    
45.           '(1 . "AcDbOsnapPointRef")
    
46.           '(72 . 13)
    
47.           (cons 331 l2)
    
48.           '(73 . 2) '(91 . 0)
    
49.           '(40 . 0.0)
    
50.           '(10 0.0 0.0 2.0e+050)
    
51.           '(75 . 0))
    
52.          )
    
53.   )
    
54.   (setq dic_list(entget dim_dic)
    
55.   dic_list(append dic_list (list '(3 . "ACAD_DIMASSOC")
    
56.                (cons 360 dim_assoc))))
    
57.   (entmod dic_list)         
    
58.   (setq dim_list(entget dim1)
    
59.   dim_list(append (list(car dim_list)(cadr dim_list)(cadddr dim_list))
    
60.            (list '(102 . "{ACAD_XDICTIONARY")
    
61.            (cons 360 dim_dic)
    
62.            '(102 . "}")
    
63.            '(102 . "{ACAD_REACTORS")
    
64.            (cons 330 dim_assoc)
    
65.            '(102 . "}")
    
66.            (caddr dim_list)
    
67.            )      
    
68.        (cddddr dim_list)
    
69.       )
    
70.   )
    
71.   (entmod dim_list)
    
72.   (setq l1_list(entget l1)
    
73.   l1_list(append (list(car l1_list)(cadr l1_list)(cadddr l1_list))
    
74.            (list '(102 . "{ACAD_REACTORS")
    
75.            (cons 330 dim_assoc)
    
76.            '(102 . "}")
    
77.            (caddr l1_list)
    
78.            )
    
79.            (cddddr l1_list)
    
80.            )
    
81.   )
    
82.   (setq l2_list(entget l2)
    
83.   l2_list(append (list(car l2_list)(cadr l2_list)(cadddr l2_list))
    
84.            (list '(102 . "{ACAD_REACTORS")
    
85.            (cons 330 dim_assoc)
    
86.            '(102 . "}")
    
87.            (caddr l2_list)
    
88.            )
    
89.            (cddddr l2_list)
    
90.            )
    
91.   )
    
92.   (entmod l1_list)
    
93.   (entmod l2_list)   
    
94.   (princ)
    
95. )

(defun c:tt(/ dic_list dim1 dim_assoc dim_dic dim_list l1 l1_list l2 l2_list p1 p2 p3 p4 pt pt1 pt2)<br />   (setq p1(getpoint "\n第1点:")<br />   p2(getpoint p1 "\n第2点:")<br />   p3(getpoint  "\n第3点:")<br />   p4(getpoint p3 "\n第4点:")<br />   )<br />   (setq pt1 p1<br />   pt2 p3<br />   pt(polar pt2(+ (angle pt1 pt2) (* pi 1.5)) 1 )<br />   )<br />   (setq l1(entmakex(list '(0 . "line")(cons 10 p1)(cons 11 p2))))<br />   (setq l2(entmakex(list '(0 . "line")(cons 10 p3)(cons 11 p4))))<br />   (setq dim1(entmakex (list '(0 . "DIMENSION")<br />           '(100 . "AcDbEntity")<br />           '(100 . "AcDbDimension")<br />           (cons 10 pt)<br />           '(70 . 32)<br />           '(1 . "")<br />           '(100 . "AcDbAlignedDimension")<br />           (cons 13 pt1)<br />           (cons 14 pt2)<br />           '(50 . 1.5708)<br />           '(100 . "AcDbRotatedDimension")<br />           )<br />           )<br />   )<br />   (setq dim_dic(entmakex (list '(0 . "DICTIONARY")<br />              '(100 . "AcDbDictionary")<br />              '(280 . 1)<br />              '(281 . 1)<br />        )<br />          ))<br />   (setq dim_assoc(entmakex (list  '(0 . "DIMASSOC")<br />           '(102 . "{ACAD_REACTORS")<br />           (cons 330 dim_dic)<br />           '(102 . "}")<br />           (cons 330 dim_dic)<br />           '(100 . "AcDbDimAssoc")<br />           (cons 330 dim1)<br />           '(90 . 3) '(70 . 0) '(71 . 0)<br />           '(1 . "AcDbOsnapPointRef")<br />           '(72 . 13)<br />           (cons 331 l1)<br />           '(73 . 2) '(91 . 0) '(40 . 0.0) '(10 0.0 0.0 2.0e+050) '(75 . 0)<br />           '(1 . "AcDbOsnapPointRef")<br />           '(72 . 13)<br />           (cons 331 l2)<br />           '(73 . 2) '(91 . 0)<br />           '(40 . 0.0)<br />           '(10 0.0 0.0 2.0e+050)<br />           '(75 . 0))<br />          )<br />   )<br />   (setq dic_list(entget dim_dic)<br />   dic_list(append dic_list (list '(3 . "ACAD_DIMASSOC")<br />                (cons 360 dim_assoc))))<br />   (entmod dic_list)          <br />   (setq dim_list(entget dim1)<br />   dim_list(append (list(car dim_list)(cadr dim_list)(cadddr dim_list))<br />            (list '(102 . "{ACAD_XDICTIONARY")<br />            (cons 360 dim_dic)<br />            '(102 . "}")<br />            '(102 . "{ACAD_REACTORS")<br />            (cons 330 dim_assoc)<br />            '(102 . "}")<br />            (caddr dim_list)<br />            )      <br />        (cddddr dim_list)<br />       )<br />   )<br />   (entmod dim_list)<br />   (setq l1_list(entget l1)<br />   l1_list(append (list(car l1_list)(cadr l1_list)(cadddr l1_list))<br />            (list '(102 . "{ACAD_REACTORS")<br />            (cons 330 dim_assoc)<br />            '(102 . "}")<br />            (caddr l1_list)<br />            )<br />            (cddddr l1_list)<br />            )<br />   )<br />   (setq l2_list(entget l2)<br />   l2_list(append (list(car l2_list)(cadr l2_list)(cadddr l2_list))<br />            (list '(102 . "{ACAD_REACTORS")<br />            (cons 330 dim_assoc)<br />            '(102 . "}")<br />            (caddr l2_list)<br />            )<br />            (cddddr l2_list)<br />            )<br />   )<br />   (entmod l1_list)<br />   (entmod l2_list)    <br />   (princ)<br /> )

lucas_3333

E大, 这么晚还是操劳, 辛苦了

664571221

E大你好，你这个好像有问题，画了好几段，只标注关联了一段