（XD::Slide:Rename）幻灯库中幻灯片改名

marting · 发表于 2018-4-9 16:53:07

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

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

×

(defun XD::Slide:Rename (slb old new / name names ret)
  (if (and (setq slb (findfile slb)) (xd::file:open slb 1))
(progn (setq header (xd::file:read 32))
         (if (= (xd::file:bin2str header)
               "AutoCAD Slide Library 1.0\r\n\032"
            )
         (progn (setq names nil)
                  (while (/= "" (setq name (xd::file:bin2str (xd::file:read 32))))
                  (setq names (cons (list name (setq pos (- (xd::file:position) 32)))
                                    names
                              )
                  )
                  (xd::file:seek (+ pos 4))
                  )
                  (if (setq old (assoc (strcase old) names))
                  (progn
                     (if (not (assoc (strcase new) names))
                        (progn (setq addr (cadr old))
                              (xd::file:seek addr)
                              (xd::file:write (xd::file:str2bin (strcase new) 32))
                              (xd::file:save slb)
                              (setq ret 0)
                        )
                        (setq ret 2)
                     )
                  )
                  (setq ret 1)
                  )
         )
         )
         (xd::file:close)
)
  )
  ret
)

sachindkini · 发表于 2018-8-13 01:40:34

dear sir great

fy1005 · 发表于 2019-12-21 14:32:53

学习一下，谢谢提供函数。。。

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

[幻灯片] （XD::Slide:Rename）幻灯库中幻灯片改名

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