gogozb 发表于 2023-2-2 21:56:21

图块替换

(defun c:inbt (/ sb en en1 i m name ss)
(setq i 0)
(if (and (setq sb (entsel "\nSelect source Block :"))
   (setq en (entget (car sb)))
   (= (cdr (assoc 0 en)) "INSERT")
      )
    (progn
       (setq ss (ssget '((0 . "INSERT"))))
    (repeat (sslength ss)
      (setq name (ssname ss i))
      (setq en1 (entget name))
      (setq m (cdr (assoc 2 en1)))
      (if(= m "要替换的块名")
      (entmod (subst (assoc 2 en) (assoc 2 en1) en1))
      )
      (setq i (1+ i))
    )
    )
)
(princ)
)

烟盒迷唇 发表于 2023-2-3 07:45:17

不要老是发别人的作品，要发自己写的代码。

VBALISPER 发表于 2023-2-3 08:35:55

没有文字说明

e2002 发表于 2023-2-3 09:04:05

实际上还需要增加对DynamicBlock的支持。

F海市蜃楼 发表于 2023-2-3 10:14:15

貌似没用..........
页: [1]
查看完整版本: 图块替换