绑定并另存关闭图形

huangyusen2000 · 发表于 2013-11-30 18:53:58

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

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

×

(defun C:bd (/ a b)
  (gc)

  (command "-xref" "bind" "*")
  (command "vports" "SI")

  (setq a (getvar "DWGPREFIX"))
  (setq b
   (vl-string-right-trim
   ".dwg"
   (getvar
      "dwgname"
   )
   )
  )
  (vl-load-com)
  (command "saveas"
   "2004"
   (strcat a
   b
   "-绑定.dwg"
   ) ;strcat
  )

  (command "qsave" "close")
)

zeiss · 发表于 2016-1-25 17:55:49

好贴！可以作为协同设计提资的基本操作

tmwall · 发表于 2016-8-12 22:01:52

好程序，真好用得着

zeiss · 发表于 2016-9-21 18:48:25

要是能加上保存路径就更完美了

xvjiex · 发表于 2021-10-3 00:06:05

感谢分享绑定并另存关闭图形

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

[每日一码] 绑定并另存关闭图形

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