程序出错，大佬帮看一下。

kanxiaokan

(defun c:nn (/ i enbox #cmd #os y_insert_n e len s lst elst s+ ss+ n i_e s_len insert_p insert_p_lst)
  (vl-load-com)
;获取对角点
  (defun enbox (ename / ll ur)
        (vla-getboundingbox (vlax-ename->vla-object ename) 'll 'ur)
        (mapcar 'vlax-safearray->list (list ll ur))
)
;选择集合并
  (defun ss+(ss1 ss2 / a b sl1 sl2 ename)
        (if (= (type ss1) 'PICKSET)(setq a(sslength ss1)))
        (if (= (type ss2) 'PICKSET)(setq b(sslength ss2)))
(cond ((and ss1 ss2)
       (progn
         (setq sl2(sslength ss2))
           (repeat sl2
          (setq ename(ssname ss2 (setq sl2(1- sl2))))
          (setq ss1(ssadd ename ss1)))))
      ((and (not ss1)(not ss2))ss1)
      ((not ss1)ss2)
      ((not ss2)ss1)
      ))
;*******
  (vl-cmdf "_.undo" "be")
  (setq #cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq #os (getvar "osmode"))
  (setvar "osmode" 0)
  (vl-cmdf "-layer" "on" "*" "")
  (setq y_insert_n (vlax-get (vlax-ename->vla-object (car (entsel "\n请选择更换目标符号(块）:"))) 'Name))
  (setq e (car (entsel "\n请选择矩形:")))
  (setq len (vlax-get (vlax-ename->vla-object e) 'Length));请选择矩形:; 错误: ActiveX 服务器返回错误: 未知名称: "LENGTH"
  (setq s (ssget "A" (list (assoc 8 (entget e)))))
  (setq lst nil elst nil s+ nil i 0)
  (repeat (sslength s);选择相同的矩形
    (setq i_e (ssname s i))
    (setq s_len (vlax-get (vlax-ename->vla-object i_e) 'Length));请选择矩形:; 错误: ActiveX 服务器返回错误: 未知名称: "LENGTH"
    (if (= len s_len)(setq lst (cons i_e lst)))
    (setq i (1+ i))
    )
  (foreach x lst      ;选择矩形内的块
    (setq elst (enbox x))
    (setq s (ssget "W" (car lst)(cadr lst) '((0 . "INSERT")(8 . "CHAR"))))
    (setq s+ (ss+ s s+))
    )
  (repeat (setq n (sslength s+))
    (setq insert_p (vlax-get (vlax-ename->vla-object (ssname s+ (setq n (1- n)))) 'Name))
    (setq insert_p_lst (cons insert_p insert_p_lst))
    (entdel (ssname s+ n))
    )
  (foreach x insert_p_lst  ;替换块
    (vl-cmdf "insert" y_insert_n x "1" "" "")
    )
  (setvar "cmdecho" #cmd)
  (setvar "osmode" #os)
  (vl-cmdf "_.undo" "e")
  (princ)
)

程序出现错误，我脑袋糊了，检查不出来
(vl-load-com)已写在开头
提示：请选择矩形:; 错误: ActiveX 服务器返回错误: 未知名称: "LENGTH"
应该是这行
(setq len (vlax-get (vlax-ename->vla-object e) 'Length))
或
(setq s_len (vlax-get (vlax-ename->vla-object i_e) 'Length))

gzhuser

你改成vl-get-Length试下？