LISP程序中如何创建一个匿名块

(defun zxd181 (obj / obj ss x y)

 (vla-getboundingbox obj 'x 'y)

 (setq ss (mapcar 'vlax-safearray->list (list x y)))

 (list (mapcar 'car ss) (mapcar 'cadr ss))

)

建立无名块

(defun wmk1815 (ss / ent name pt ss ss1 ss2 ss3 x x1 x2 y1 y2)

 (setq ss1 '())

 (while (setq ent (ssname ss 0)) (setq ss (ssdel ent ss) ss1 (cons ent ss1)) )

 (setq ss2 (mapcar 'zxd181 (mapcar 'vlax-ename->vla-object ss1)))计算坐标

 (setq ss3 (vl-sort (apply 'append (mapcar 'car ss2)) '<) x1 (car ss3) x2 (last ss3))最小x1,最大x2

 (setq ss3 (vl-sort (apply '弊源append (mapcar 'cadr ss2)) '<) y1 (car ss3) y2 (last ss3))最小y1,最大y2

 (setq pt (mapcar '* '(0.5 0.5) 裂此(list (+ x1 x2) (+ y1 y2))))计算中心点完成

 租源态(entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 pt)))

 (mapcar '(lambda (x) (entmake (cdr (entget x)))) ss1)

 (setq name (entmake '((0 . "ENDBLK"))))

 (mapcar 'entdel ss1)

 (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))

)

例

(defun c:tes ( / ss)

 (vl-load-com)

 (princ "\n请选择要变为块的对象")

 (if (setq ss (ssget))

  (wmk1815 ss)变为无名块

 )

 (princ)

)

先把你用 entmake 创建的的一个或多个 entity 放乱扰进一个选择集里面

然后 (command "-block" "<块名称>" <块几点><上面的选择集>

方法二，

直接用 DXF 组码来构造一个 BLOCK 的组码，这个要参阅 vlisp 开发帮助里面的 DXF 参考部分

一个 BLOCK 的 e-list 实际上是多个 entity 的 e-list 序列，主要包括三部分，首先以 BLOCK e-list 开头，后面接着要包括到该 BLOCK 的所有 entity 的 e-list，最后以一个 ENDBLK 的 e-list 来哗盯旦结则迅束