[求助]：请版主修正制作带属性的圆环块程序

changyq

想用entmake画出直径为1个单位的实心圆环，然后追加属性。但圆环似乎为“多义线”，不知道代码该如何写。请版主给予指点。
[php]
(defun C:TT ()
  (entmake (list '(0 . "BLOCK")
                 '(2 . "CD")
                 '(70 . 2)
                 (cons 10 '(0 0 0))
           )
  )
(entmake
    (list '(0 . "lwpolyline")
          (cons 8 "测点符号")
          (cons 100 "acdbentity")
          (cons 100 "acdbpolyline")
            (cons 43 0.25)
          (cons 67 0)

    )
)
(entmake
    (list '(0 . "vertex")
          (cons 10 '(-0.125 0))
          (cons 40 0.25)
          (cons 41 0.25)
          (cons 42 1.0)
    )
)
(entmake
    (list '(0 . "vertex")
        (cons 10 '(0.125 0))
          (cons 40 0.25)
          (cons 41 0.25)
          (cons 42 1.0)
)
)
(entmake '((0 . "seqend")))

(entmake (list
             '(0 . "ATTDEF")
             '(100 . "AcDbEntity")
             (cons 8 "0")
             '(100 . "AcDbText")
             (cons 10 '(5 5))
             (cons 40 4)
             (cons 1 "qingxiang")
             (cons 2 "标高")
             (cons 3 "标高值")
             '(70 . 0)
           )
  )
  (entmake '((0 . "endblk")))
)
[/php]

xyp1964

entmake虽然速度快，但太烦琐。
方法优先顺序：command→lisp→vlisp

2. [FONT=courier new](defun c:test ()
   
3.   (command "layer" "m" "测点符号" "c" 3 "测点符号" "")
   
4.   (command "DONUT" 0 1 '(0 0) "")
   
5.   (setq s1 (entlast))
   
6.   (command "-attdef" ""        "标高" "标高值"        "qingxiang" "j"        "bc" '(0 1) 4 "")
   
7.   (setq s2 (entlast))
   
8.   (command "block" "CD" '(0 0 0) s1 s2 "")
   
9.   (princ)
   
10. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (command "layer" "m" "测点符号" "c" 3 "测点符号" "")<br />   (command "DONUT" 0 1 '(0 0) "")<br />   (setq s1 (entlast))<br />   (command "-attdef" ""        "标高" "标高值"        "qingxiang" "j"        "bc" '(0 1) 4 "")<br />   (setq s2 (entlast))<br />   (command "block" "CD" '(0 0 0) s1 s2 "")<br />   (princ)<br /> )[/FONT]