重命名布局LISP。需要广告

tmelancon · 发表于 2022-7-5 18:18:27

我有一个例程，我们时不时地运行，将布局选项卡名称从Layout1更改为Drawing1，从Layout2更改为Drawing2。。等等等等。有人能建议如何在同一代码中添加其他布局可能性吗。例如，如果我们碰巧打开了一个包含DWG1的图形，该图形需要是Drawing1。我知道代码很简单，但请看一下：

copy


(defun C:rere ()
(setvar "cmdecho" 0)
 (command "layout" "r" "Layout1" "Drawing1")
  (PRIN1))

非常感谢您的帮助。谢谢

BIGAL · 发表于 2022-7-5 18:37:49

您需要更多的代码来检查布局名称，您可能需要下载lee mac parse number，这样您就可以读取布局编号Layout1=1，现在为“DWG1”

您可以进行初始化并设置一些预定义的答案，如简单示例1 dwg 2 Drawing 3 Layout 4 DXX，然后使用COND查看您选择了什么描述，这会阻止打字等

copy


;;-------------------=={ Parse Numbers }==--------------------;;
;;                                                            ;;
;;  Parses a list of numerical values from a supplied string. ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;

copy


; this is bits of a big routine
; it is not working code just an example of how to do it.
(defun ah:sheetupdate1 ( / ss1 lay plotabs tabname dwgname)
(setq doc (vla-get-activedocument (vlax-get-acad-object)))
(vlax-for lay (vla-get-Layouts doc)
 (setq plotabs (cons (vla-get-name lay) plotabs)) ; a list of all the layout tabs
)
(setq plotabs (vl-sort plotabs '<))
(setq len (length plotabs))
; now go through plotabs and rename the example here is hard coded for DXX
(repeat len
; if less than 10
(if (< (car dwgnum) 10.0) 
     (setq newstr2 (strcat dwgname "-D0"  (rtos sheetnum 2 0)))
     (setq newstr2 (strcat dwgname "-D"  (rtos sheetnum 2 0)))
)
(command "layout" "r" (nth x plotab ) newstr2)
(setq x (+ x 1))
)

pBe · 发表于 2022-7-5 18:44:55

还有一种方法：
（defun c:rere（/itm lst ord）（vlax for lay（vla get layouts（vla get activedocument（vlax get acad object））（if（=：vlax false（vla get modeltype lay））（progn（vla put name lay（vla get handle lay））（setq lst（cons lay lst）ord（cons（vla get taborder lay）ord））））（setq itm 0）（foreach idx（vl-sort-i ord’