如何修改属性快

qiuhai1991

2. (defun K003_1000x()
   
3.   (entmake'((0 . "block")(2 . "K003_1000")(70 . 2)(10 0 0 0)))
   
4.   (entmake'((0 . "LWPOLYLINE")
   
5.                                                  (100 . "AcDbEntity")
   
6.                                                  (8 . "图斑号")(62 . 256)
   
7.                                                  (100 . "AcDbPolyline")
   
8.                                                  (90 . 2)
   
9.                                                  (70 . 128)
   
10.                                                  (43 . 0.0)
    
11.                                                  (38 . 0.0)
    
12.                                                  (39 . 0.0)
    
13.                                                  (10 -2.7 0.0)
    
14.                                                  (10 2.7 0.0)
    
15.                                                  (210 0.0 0.0 1.0)))
    
16. (entmake'((0 . "ATTDEF")
    
17.                                          (100 . "AcDbEntity")
    
18.                                          (8 . "0")(62 . 0)
    
19.                                          (100 . "AcDbText")
    
20.                                          (10 0 0 0)
    
21.                                          (40 . 2)
    
22.                                          (1 . "")
    
23.                                          (50 . 0.0)
    
24.                                          (41 . 1.0)
    
25.                                          (71 . 0)
    
26.                                          (72 . 1)
    
27.                                          (11 0.0 0.0 0.0)
    
28.                                          (210 0.0 0.0 1.0)
    
29.                                          (100 . "AcDbAttributeDefinition")
    
30.                                          (3 . "图斑号")
    
31.                                          (2 . "TBH")
    
32.                                          (70 . 4)
    
33.                                          (73 . 0)
    
34.                                          (74 . 1)))
    
35. (entmake'((0 . "ATTDEF")
    
36.                                          (100 . "AcDbEntity")
    
37.                                          (8 . "0")
    
38.                                          (62 . 0)
    
39.                                          (100 . "AcDbText")
    
40.                                          (10 0 0 0)
    
41.                                          (40 . 2)
    
42.                                          (1 . "0")
    
43.                                          (50 . 0.0)
    
44.                                          (41 . 1.0)
    
45.                                          (71 . 0)
    
46.                                          (72 . 1)
    
47.                                          (11 0.0 -0.4 0.0)
    
48.                                          (210 0.0 0.0 1.0)
    
49.                                          (100 . "AcDbAttributeDefinition")
    
50.                                          (3 . "地类编码")
    
51.                                          (2 . "DLBM")
    
52.                                          (70 . 4)
    
53.                                          (73 . 0)
    
54.                                          (74 . 3)))
    
55. (entmake'((0 . "ENDBLK"))))
    
56. 
    
57. 
    
58. (defun k003_1000(p xm bh bili)
    
59.   (entmake(list'(0 . "INSERT");建块
    
60.                                                 '(100 . "AcDbEntity")
    
61.                                                 '(100 . "AcDbBlockReference")
    
62.                                                 '(62 . 256)
    
63.                                                 (cons 66 1)
    
64.                                                 (cons 2 "K003_1000")
    
65.                                                 (cons 41 bili)
    
66.                                                 (cons 42 bili)
    
67.                                                 (cons 43 bili)
    
68.                                                 (cons 10 p)))
    
69.   (entmake(list'(0 . "ATTRIB")
    
70.                                                 '(100 . "AcDbEntity")
    
71.                                                 '(100 . "AcDbText")
    
72.                                                 '(62 . 0)
    
73.                                                 '(8 . "地块标识")
    
74.                                                 '(10 0 0 0)
    
75.                                                 (cons 40 (* 2 bili))
    
76.                                                 (cons 1 xm)
    
77.                                                 '(7 . "standard")
    
78.                                                 '(72 . 1)
    
79.                                (cons 11 p)
    
80.                                                 '(100 . "AcDbAttribute")
    
81.                                                 '(2 . "CBR")
    
82.                                                 '(70 . 0)
    
83.                                                 '(74 . 1)))
    
84.   (entmake(list'(0 . "ATTRIB")
    
85.                                                 '(100 . "AcDbEntity")
    
86.                                                 '(100 . "AcDbText")
    
87.                                                 '(62 . 0)
    
88.                                                 '(8 . "地块标识")
    
89.                                                 '(10 0 0 0)
    
90.                                                 (cons 40 (* 2 bili))
    
91.                                                 (cons 1 bh)
    
92.                                                 '(7 . "standard")
    
93.                                                 '(72 . 1)
    
94.                        (list 11(car p)
    
95.                                          (-(cadr p)0.4)0)
    
96.                                                 '(100 . "AcDbAttribute")
    
97.                                                 '(2 . "ZDBH")
    
98.                                                 '(70 . 0)
    
99.                                                 '(74 . 3)))
    
100.   (entmake'((0 . "SEQEND")))
     
101. )
     
102. 
     
103. 
     
104. (K003_1000x)
     
105. (command "INSERT" "k003_1000" (getpoint) 1 1 0 "1111""2222" "1111""2222")

(defun K003_1000x()<br />   (entmake'((0 . "block")(2 . "K003_1000")(70 . 2)(10 0 0 0)))<br />   (entmake'((0 . "LWPOLYLINE")<br />                                                  (100 . "AcDbEntity")<br />                                                  (8 . "图斑号")(62 . 256)<br />                                                  (100 . "AcDbPolyline")<br />                                                  (90 . 2)<br />                                                  (70 . 128)<br />                                                  (43 . 0.0)<br />                                                  (38 . 0.0)<br />                                                  (39 . 0.0)<br />                                                  (10 -2.7 0.0)<br />                                                  (10 2.7 0.0)<br />                                                  (210 0.0 0.0 1.0)))<br /> (entmake'((0 . "ATTDEF")<br />                                          (100 . "AcDbEntity")<br />                                          (8 . "0")(62 . 0)<br />                                          (100 . "AcDbText")<br />                                          (10 0 0 0)<br />                                          (40 . 2)<br />                                          (1 . "")<br />                                          (50 . 0.0)<br />                                          (41 . 1.0)<br />                                          (71 . 0)<br />                                          (72 . 1)<br />                                          (11 0.0 0.0 0.0)<br />                                          (210 0.0 0.0 1.0)<br />                                          (100 . "AcDbAttributeDefinition")<br />                                          (3 . "图斑号")<br />                                          (2 . "TBH")<br />                                          (70 . 4)<br />                                          (73 . 0)<br />                                          (74 . 1)))<br /> (entmake'((0 . "ATTDEF")<br />                                          (100 . "AcDbEntity")<br />                                          (8 . "0")<br />                                          (62 . 0)<br />                                          (100 . "AcDbText")<br />                                          (10 0 0 0)<br />                                          (40 . 2)<br />                                          (1 . "0")<br />                                          (50 . 0.0)<br />                                          (41 . 1.0)<br />                                          (71 . 0)<br />                                          (72 . 1)<br />                                          (11 0.0 -0.4 0.0)<br />                                          (210 0.0 0.0 1.0)<br />                                          (100 . "AcDbAttributeDefinition")<br />                                          (3 . "地类编码")<br />                                          (2 . "DLBM")<br />                                          (70 . 4)<br />                                          (73 . 0)<br />                                          (74 . 3)))<br /> (entmake'((0 . "ENDBLK"))))<br /> <br /> <br /> (defun k003_1000(p xm bh bili)<br />   (entmake(list'(0 . "INSERT");建块<br />                                                 '(100 . "AcDbEntity")<br />                                                 '(100 . "AcDbBlockReference")<br />                                                 '(62 . 256)<br />                                                 (cons 66 1)<br />                                                 (cons 2 "K003_1000")<br />                                                 (cons 41 bili)<br />                                                 (cons 42 bili)<br />                                                 (cons 43 bili)<br />                                                 (cons 10 p)))<br />   (entmake(list'(0 . "ATTRIB")<br />                                                 '(100 . "AcDbEntity")<br />                                                 '(100 . "AcDbText")<br />                                                 '(62 . 0)<br />                                                 '(8 . "地块标识")<br />                                                 '(10 0 0 0)<br />                                                 (cons 40 (* 2 bili))<br />                                                 (cons 1 xm)<br />                                                 '(7 . "standard")<br />                                                 '(72 . 1)<br />                                (cons 11 p)<br />                                                 '(100 . "AcDbAttribute")<br />                                                 '(2 . "CBR")<br />                                                 '(70 . 0)<br />                                                 '(74 . 1)))<br />   (entmake(list'(0 . "ATTRIB")<br />                                                 '(100 . "AcDbEntity")<br />                                                 '(100 . "AcDbText")<br />                                                 '(62 . 0)<br />                                                 '(8 . "地块标识")<br />                                                 '(10 0 0 0)<br />                                                 (cons 40 (* 2 bili))<br />                                                 (cons 1 bh)<br />                                                 '(7 . "standard")<br />                                                 '(72 . 1)<br />                        (list 11(car p)<br />                                          (-(cadr p)0.4)0)<br />                                                 '(100 . "AcDbAttribute")<br />                                                 '(2 . "ZDBH")<br />                                                 '(70 . 0)<br />                                                 '(74 . 3)))<br />   (entmake'((0 . "SEQEND")))<br /> )<br /> <br /> <br /> (K003_1000x)<br /> (command "INSERT" "k003_1000" (getpoint) 1 1 0 "1111""2222" "1111""2222")

这样创建一个属性快之后，有什么办法可以修改里面的直线的起点，或者读取到直线的端点

tryhi

• (setq en(vlax-vla-object->ename(vla-item (vla-item (vla-get-blocks(vla-get-activedocument(vlax-get-acad-object))) (vla-get-name (vlax-ename->vla-object (car(entsel))))) 0)))
• (entget en)
  

qiuhai1991