abra-CAD-abra 发表于 2022-7-5 15:40:37

布局-vlax for和vla get

全部的
 
 
在AutoCAD 2016中,当在下面的代码中使用vlax for和vla get布局时,我需要切换到其他布局,然后再将新布局名称应用到布局。
 
 
有什么想法吗?
 
 
谢谢

BIGAL 发表于 2022-7-5 16:12:44

错误:自动化错误。无法重命名模型布局需要“如果要检查”选项卡不是模型
 

(defun C:DEMO (/ tab str)
(vl-load-com)
(vlax-for lyt (vla-get-layouts
   (vla-get-activedocument (vlax-get-acad-object))
)
   (setq tab (vla-get-name lyt))
   (setq str (substr tab 1 4))
   (If (/= "Model" tab)
   (vla-put-name lyt (strcat "2" str))
   )
   )
(princ)
)
(c:demo)

abra-CAD-abra 发表于 2022-7-5 16:47:00

 
 
 
 
谢谢BIGAL,
 
 
修复了它。
 
 
SUBSTR从1开始,而不是像NTH这样的其他函数从0开始。
 
 
2
谢谢你的帮助
页: [1]
查看完整版本: 布局-vlax for和vla get