用Entmake创建属性块时碰到问题！搞测绘的有没有？请教个问题【已解决】

skg123

2. (defun C:tt ()
   
3.   (setq in_point(getpoint "\n请选择标注点："))       
   
4.         (setq high (getstring "\n输入点号"))
   
5.   (gxl-cs:gcd in_point high 0.5)
   
6.         (princ)
   
7. )
   
8. ;;;by Gu_xl
   
9. (defun gxl-cs:gcd (inspt height scale / pt blkdef obj);展高程点函数(inspt:插入点,heitht:高程值,scale:缩放比例,xsws:高程注记位数)
   
10.   (setvar "CMDECHO" 0)
    
11.   (command "layer" "m" "ZDH" "c" "3" "" "L" "CONTINUOUS" ""  "")
    
12.   (if height
    
13.     (setq height high);
    
14.     (setq height "")
    
15.   )
    
16.   (regapp "SOUTH")
    
17.   
    
18.   ;;;检查字体 "HZ" 是否存在
    
19.   (if (not (tblobjname "style" "HZ"))
    
20.     (command "style" "HZ" "rs.shx,hztxt.shx" 0 1 0 "" "" "")
    
21.   )
    
22.   ;;;检查是否存在高程点图块定义
    
23.   (if (not (tblobjname "block" "DH200"))
    
24.     (progn
    
25.           (entmake (list '(0 . "POINT")
    
26.                                                                                  '(100 . "AcDbEntity")
    
27.                                                                                  '(100 . "AcDbPoint")
    
28.                                                           '(62 . 3)
    
29.                                               (cons 10 inspt)
    
30.                                     )
    
31.           )
    
32.                         (setq ENDBLK (entmake (entget (entlast))))
    
33.     )
    
34.   )
    
35.   ;;;插入块
    
36.   (entmake (list
    
37.              '(0 . "INSERT")
    
38.              '(100 . "AcDbEntity")
    
39.              '(100 . "AcDbBlockReference")
    
40.              '(66 . 1);;;属性跟随标志,1跟随，0不跟随
    
41.               (cons 2 "DH200")
    
42.               (cons 10 inspt)
    
43.               (cons 41 scale)
    
44.               (cons 42 scale)
    
45.               (cons 43 scale)
    
46.               (list -3 '("SOUTH" (1000 . "202101")))
    
47.            )
    
48.   )
    
49.   ;;;插入属性
    
50.   (entmake (list
    
51.              '(0 . "ATTRIB")
    
52.              '(100 . "AcDbEntity")
    
53.              '(100 . "AcDbText")
    
54.               (cons 10 (setq pt (polar inspt 0 (* 1.0 scale))))
    
55.               (cons 40 (* 2.0 scale))
    
56.               (cons 50 0)
    
57.               (cons 41 0.8)
    
58.               (cons 51 0)
    
59.               (cons 1 height)
    
60.               (cons 7 "HZ")
    
61.               (cons 62 1)
    
62.               (cons 72 0)
    
63.               (cons 11 pt)
    
64.               '(100 . "AcDbAttribute")
    
65.               (cons 2 "height")                                                 
    
66.               (cons 70  0)
    
67.               (cons 74 2)
    
68.            )
    
69.    )
    
70.    
    
71.        
    
72.    ;;;结束标志
    
73.    (entmake '((0 . "SEQEND")))
    
74.    (princ)
    
75. )

(defun C:tt ()<br />   (setq in_point(getpoint "\n请选择标注点："))        <br />         (setq high (getstring "\n输入点号"))<br />   (gxl-cs:gcd in_point high 0.5)<br />         (princ)<br /> )<br /> ;;;by Gu_xl<br /> (defun gxl-cs:gcd (inspt height scale / pt blkdef obj);展高程点函数(inspt:插入点,heitht:高程值,scale:缩放比例,xsws:高程注记位数)<br />   (setvar "CMDECHO" 0)<br />   (command "layer" "m" "ZDH" "c" "3" "" "L" "CONTINUOUS" ""  "")<br />   (if height<br />     (setq height high);<br />     (setq height "")<br />   )<br />   (regapp "SOUTH")<br />   <br />   ;;;检查字体 "HZ" 是否存在<br />   (if (not (tblobjname "style" "HZ"))<br />     (command "style" "HZ" "rs.shx,hztxt.shx" 0 1 0 "" "" "")<br />   )<br />   ;;;检查是否存在高程点图块定义<br />   (if (not (tblobjname "block" "DH200"))<br />     (progn<br />           (entmake (list '(0 . "POINT") <br />                                                                                  '(100 . "AcDbEntity") <br />                                                                                  '(100 . "AcDbPoint")<br />                                                           '(62 . 3)<br />                                               (cons 10 inspt)<br />                                     )<br />           )<br />                         (setq ENDBLK (entmake (entget (entlast))))<br />     )<br />   )<br />   ;;;插入块<br />   (entmake (list<br />              '(0 . "INSERT")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbBlockReference")<br />              '(66 . 1);;;属性跟随标志,1跟随，0不跟随<br />               (cons 2 "DH200")<br />               (cons 10 inspt)<br />               (cons 41 scale)<br />               (cons 42 scale)<br />               (cons 43 scale)<br />               (list -3 '("SOUTH" (1000 . "202101")))<br />            )<br />   )<br />   ;;;插入属性<br />   (entmake (list<br />              '(0 . "ATTRIB")<br />              '(100 . "AcDbEntity")<br />              '(100 . "AcDbText")<br />               (cons 10 (setq pt (polar inspt 0 (* 1.0 scale))))<br />               (cons 40 (* 2.0 scale))<br />               (cons 50 0)<br />               (cons 41 0.8)<br />               (cons 51 0)<br />               (cons 1 height)<br />               (cons 7 "HZ")<br />               (cons 62 1)<br />               (cons 72 0)<br />               (cons 11 pt)<br />               '(100 . "AcDbAttribute")<br />               (cons 2 "height")                                                 <br />               (cons 70  0)<br />               (cons 74 2)<br />            )<br />    )<br />    <br />         <br />    ;;;结束标志<br />    (entmake '((0 . "SEQEND")))<br />    (princ)<br /> )