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

计算中心点1

(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)

)

[multi]set容器是按序排列的,在插入时会调用<TYPE>的比较运行,你所定义的Item_base类没有重载<和==等 *** 作,无法对其进行比较,所以在其容器内部进行比较时因找不到比较函数而停在那....

如果还不会重载 *** 作符,那么不要使用会进行内部排序的[multi]set容器,使用list<??>,<vector>等容器学习就行了.

很简单的例子：

public class NoneClass {

Peoples man = new Peoples(){public void eat(){System.out.println("吃饭")}}

}

interface Peoples{

public void eat()

}

这里的

new Peoples(){public void eat(){System.out.println("吃饭")}}

就创建了个匿名内部类

本来接口interface是不能new的，但是紧跟new Peoples（）｛｝后跟的大括号，表示这个接口有个实现类，其实new的是Peoples这个接口的实现类，但是这个实现类是匿名内部类的形式。

---