在Lisp中,可以使用命令(setq ent (entget entname))获取CAD实体的所有信息,然后提取其中的位置信息,实现实体居中的代码可以是:(setq ent (entget entname))(setq mid_x (/ (+ (cdr (assoc 10 ent)) (cdr (assoc 11 ent))) 2))(setq mid_y (/ (+ (cdr (assoc 20 ent)) (cdr (assoc 21 ent))) 2))(entmod (subst (cons 10 mid_x) (subst (cons 20 mid_y) ent)))