重命名布局

issammesk · 发表于 2022-7-5 15:23:17

嗨，先生
如果你能帮我，请
我有一张布局名称从
BWSIP-2R-DD-TP-M01至BWSIP-2R-DD-TP-M10
现在我从这张纸上复制，但我想从E 01重命名布局名称。。10
至BWSIP-2R-DD-TP-M02至BWSIP-2R-DD-TP-M20

BIGAL · 发表于 2022-7-5 15:32:05

在计算lisp所需的时间内，可以重命名它们，只需单击最后一个并使用“重命名”选项。如果您的lisp超过10个，并且这种情况一直存在，请确认。

issammesk · 发表于 2022-7-5 15:39:40

谢谢你的重播
真的是的，我们总是有项目的一段时间更多的70布局在表上
我们复制用于其他设计

Dadgad · 发表于 2022-7-5 15:40:57

你应该看看http://www.lee-mac.com/layoutfield.html作者：李·麦克。

谢谢李！

我自己没有用过，但它看起来很不错。
并不是说我们对李的期望会降低！

BIGAL · 发表于 2022-7-5 15:49:51

找到几分钟，试试这个，它没有错误检查布局名称和数字内。

copy


(vl-load-com)
(defun renumlayout ( / doc tabs len tabsnewnum lenstr layname)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(setq tabs  (vla-get-Layouts doc))
(setq len (vla-get-count tabs))
(alert (rtos len 2 0))
(setq newnum (getint "input last layout number"))
(if (> newnum len)
(vlax-for layname tabs
(setq tabname  (vla-get-name layname))
(if (= "Model" tabname)
(princ)
(progn
(setq lenstr (strlen tabname))
(setq tabname (substr tabname 1 (- lenstr 2)))
(vla-put-name layname (strcat  tabname (rtos newnum 2 0)))
)
)
(setq newnum (- newnum 1))
)
)
(princ)
)
(renumlayout)

SLW210 · 发表于 2022-7-5 15:55:21

我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛。

ronjonp · 发表于 2022-7-5 15:56:39

下面是一个快速示例：

copy

(defun c:foo (/ i l n o)
 ;; Prefix
 (setq pre "BWSIP-2R-DD-TP-M")
 ;; Start number
 (setq n 1)
 ;; Get all paperspace layouts
 (vlax-for x (setq lo (vla-get-layouts (vla-get-activedocument (vlax-get-acad-object))))
   (cond ((> (vla-get-taborder x) 0) (setq o (cons x o))))
 )
 ;; Sort left to right
 (setq o (vl-sort o '(lambda (r j) (< (vla-get-taborder r) (vla-get-taborder j)))))
 ;; Apply a temp name to avoid duplicates
 (foreach l o (vla-put-name l (rtos (/ (getvar 'cdate) (vla-get-taborder l)) 2 12)))
 ;; Renumber
 (foreach l o
   (setq i (cond ((< n 10) (strcat "0" (itoa n)))
          ((itoa n))
    )
   )
   (vla-put-name l (strcat pre i))
   (setq n (1+ n))
 )
 (princ)
)
(vl-load-com)