[原创]：批量修改详图图号

hnfsf · 发表于 2009-11-7 22:02:42

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

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

×

(defun c:gth ( / dxf n ss txt1 txt2)
  (if (setq txt1(getstring "\n输入旧图号：")
ss (ssget (list (cons 4 txt1))))
(progn
   (setq txt2 (getstring "\n输入新图号："))
   (setq n -1)
   (repeat (sslength ss)
      (setq en (ssname ss (setq n (1+ n)))
            dxf (entget en))
      (entmod (subst (cons 4 txt2) (cons 4 txt1) dxf))
   )
)
  )
  (Princ)
)

大清 · 发表于 2009-11-9 19:36:57

怎么用，没有调试出来！

史大林 · 发表于 2009-11-11 13:04:33

楼主到处发这个，应该把适用哪个版本说清楚，高于5的版本试过没用的。

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

[原创]：批量修改详图图号

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

相关帖子