求助，entmake制作矩形的块。

6224jjyy

自己解决了，entmake坐标搞错了，太菜了哈哈。

(defun c:x2()
(setq name (getvar "CLAYER"))
(setq zz (getstring "请输入文字值(string): "))
  (while (setq pt (getpoint "\n指定文字位置: "))
    (setq p1 (polar (polar (list 0 0) (angtof "180") 85) (angtof "90") 30))
    (setq p2 (polar (polar (list 0 0) (angtof "0") 85) (angtof "90") 30))
    (setq p3 (polar (polar (list 0 0) (angtof "0") 85) (angtof "270") 30))
    (setq p4 (polar (polar (list 0 0) (angtof "180") 85) (angtof "270") 30))
    (entmake (list '(0 . "BLOCK") (cons 2 name) '(10 0 0 0) '(70 . 0)))
    (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") '(100 . "AcDbPolyline") '(90 . 4) '(70 . 1) (cons 10 p1) (cons 10 p2) (cons 10 p3) (cons 10 p4)))
    (entmake '((0 . "ENDBLK")))
    (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
    (entmake (list '(0 . "TEXT") (cons 1 zz) (cons 10 pt) (cons 11 pt) '(40 . 38) '(72 . 4)))
  )
)

革天明

支持一下，错的多了就有经验了