块重命名程序，改名后块有旋转怎么解决？

greatsoul · 发表于 2017-4-29 10:00:55

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

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

×

这是一个网上下的插件，修改块的。bu2块单独命名后，块就会出现旋转，望大家帮忙修改一下，谢谢！！
(defun c:bu2( / e en j new old ss)
(defun dxf(a b)(cdr(assoc a b)))
(command"undo""group")
      (setq ss(ssget '((0 . "INSERT"))))
      (setq new(getstring "\n请输入新块名<字符规范,不要重名>: "))
(if (tblsearch "block" New)
      (alert "已存在重名块，请重新命名!")
   (progn
      (setq old(dxf 2(entget(ssname ss 0))))
      (command "-insert" old '(0 0) "1""1" 0)
      (command "explode"(entlast))
      (command "-block" new '(0 0)"P" "")
      (setq j 0)
      (repeat(sslength ss)
      (setq e(ssname ss j)
         en(entget e)
         en(subst(cons 2 new)(assoc 2 en)en)
   )
   (entmod en)
   (setq j(1+ j))
   )
))(command"undo""end")
      (princ "\n块名已经更改成\"")
      (princ New)
      (princ "")
)

greatsoul · 发表于 2017-4-29 10:13:10

有时会旋转，有时又不会，怎么回事？

marting · 发表于 2017-4-29 11:03:16

greatsoul 发表于 2017-4-29 10:13

块有变化，就说明图中有同名的其他块

greatsoul · 发表于 2017-4-29 14:06:45

marting 发表于 2017-4-29 11:03

重名会退出，不会重新命名的。新建的文件块也不会有重名的问题。

関吣 · 发表于 2017-6-4 23:45:42

块替换旋转的，是不是也是因为有同名块呢？

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

[求助] 块重命名程序，改名后块有旋转怎么解决？

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

相关帖子