[LISP程序]：CAD块替换lsp

hsdsjb · 发表于 2009-6-6 14:13:28

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:rp ( / ent_lst ss x)
(while
  (progn
(initget 2 "R")
(= 'STR (type (setq ss (entsel (if del? "\n选择源块:[删除被替换块,设置(R)]:""\n选择源块:[不删除被替换块,设置(R)]:" )))))
  )
  (setq del? (not del?))
)
(if  ss
  (vl-remove nil
(mapcar '(lambda (x)
   (if (= (type  (cadr x)) 'ENAME)
(progn
(setq ent_lst (entget (cadr x)))
(setq ent_lst (subst (cons 2 (cdr (assoc 2 (entget (car ss))))) (assoc 2 ent_lst) ent_lst))
(if del? (entmod ent_lst) (entmake ent_lst))
)
   )
)
   (ssnamex (ssget '((0 . "INSERT"))))
)
  ))
(prin1)
)

dlsdy · 发表于 2009-6-9 01:32:39

谢谢楼主。。

ap0307227 · 发表于 2009-6-24 17:21:46

不错，蛮好用的呢！

zhuquanmao · 发表于 2009-7-4 23:58:16

很好用支持下

爱玫瑰的刺猬 · 发表于 2009-7-10 22:42:19

下载试用！谢谢楼主！值得表扬！

w379106181 · 发表于 2018-2-8 11:00:10

下载试用！谢谢楼主！值得表扬！
下载试用！谢谢楼主！值得表扬！
下载试用！谢谢楼主！值得表扬！
下载试用！谢谢楼主！值得表扬！

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：CAD块替换lsp

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子