如何用lisp实现块的批量替换

aming001

请高手指点！！

alin

;;--------------------------------------------------------------------
(defun C:RPB  (/ en obj obj1 ss cnt idx blknom)
  (setq en (car (entsel "\nSelect a source block: ")))
  (if en
    (progn
      (setq obj (vlax-ename->vla-object en))
      (VLA-HIGHLIGHT OBJ :VLAX-TRUE)
      (if (and (= (vla-get-objectname obj) "AcDbBlockReference")
               (not (vlax-property-available-p obj 'path)))
        (progn
          (setq blknom (vla-get-name obj))
          (princ "\nSelect the target blocks: ")
          (setq cnt 0)
          (while (setq ss (ssget))
            (VLA-HIGHLIGHT OBJ :VLAX-FALSE)
            (setq idx 0)
            (repeat (sslength ss)
              (setq obj1 (vlax-ename->vla-object (ssname ss idx)))
              (if (and (= (vla-get-objectname obj1) "AcDbBlockReference")
                       (not (vlax-property-available-p obj1 'path)))
                (progn
                  (vla-put-name obj1 blknom)
                  (setq cnt (1+ cnt))
                  ) ;progn
                ) ;endif
              (setq idx (1+ idx))
              ) ;repeat
            ) ;while
          (if (> cnt 0)
            (princ
              (strcat "\n" (itoa cnt) " blocks have been replaced!"))
            (princ "\nNone block found!")
            ) ;endif
          ) ;progn
        (princ "\nThat's NOT a block!")
        ) ;endif
      (vlax-release-object obj)
      (if obj1
        (vlax-release-object obj1))
      ) ;progn
    (princ "\nFunction has been cancelled!")
    ) ;endif
  (princ)
  )

flowerson

属性性块是否可以不改名呢？

tudou121

很好用，感谢分享

古镇画板设计@林

好用，感谢分享！