[分享]：块的快速替换

dezhang · 发表于 2005-8-15 23:13:54

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

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

×

1、选取需要替换的标的
2、选取新标的
3、在新标的上选取一个新、旧标的共有的插入点
OK！

(defun c:qa()
(command "ucs" "w")
(command "setvar" "osmode" "5")
(prompt "\nSelect older:")
(setq s (ssget) sclen (sslength s) i 0)
(prompt "\nSelect newer:")
(setq b (ssget))
(setq p1 (getpoint "\nSelect insertpoint(newer):"))
(while (< i sclen)
(progn
(setq se (cdr (assoc 10 (entget (ssname s i)))))
(command "copy" b "" p1 se "")
(setq i (+ i 1))
)
)
(command "erase" s "")
(command "ucs" "p")
(command "setvar" "osmode" "39")
(princ)
)

yybu · 发表于 2005-8-16 10:05:28

对旋转的块不能以相同角度替换！

dezhang · 发表于 2005-8-16 23:08:59

是的，这是一个缺陷。它不仅可替换块，其它标的都可替换

acoff · 发表于 2005-8-17 20:11:48

谢楼主无私奉献.

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

[分享]：块的快速替换

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

相关帖子