页面设置Lisp

Tripledot · 发表于 2022-7-5 18:19:12

可能包括所有设置，例如纸张大小、绘图仪。。。。。等等，但没有任何设置名称

那太好了

BlackBox · 发表于 2022-7-5 18:27:23

这可能有助于-

这是一种自定义LispFunction方法，用于将命名页面设置设置设置为活动状态，并与ODBX配合使用：

http://forums.augi.com/showthread.php?80461-页面设置管理器&p=1219546&viewfull=1#post1219546

例子：

copy


(foreach layoutname (layoutlist)
 ([color="blue"]vla-SetActivePageSetup[/color] layoutname “[color="red"]YourPageSetupName[/color]”)
)

干杯

Steven P · 发表于 2022-7-5 18:30:12

这就是我的计划，我已经做了很多，但是我做的有些地方不是最好的。我目前正在努力解决页面方向的问题，很确定在某个地方会有人能够解决如何将页面方向更改为LISP中的一行。

Blackbox，现在是周末，所以我可以在周一查看，但这不就是复制整个布局，而不仅仅是改变页面方向吗？

BlackBox · 发表于 2022-7-5 18:34:09

没有-是什么给你留下这样的印象？

vla SetActivePageSetup LispFunction只做了这一点；对于给定布局，将（命名）页面设置设置为活动。

干杯

Steven P · 发表于 2022-7-5 18:37:36

发现这似乎接近我想要做的：

copy

(defun c:setlayoutname()
 (setq layoutname (vla-get-name (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object )))))
 (setq AD (vla-get-activedocument (vlax-get-acad-object )))  ;;AD Active Document
 (setq AL (vla-get-ActiveLayout AD))  ;;AL Active Layout
)
(defun c:getplotrotation()
 (c:setlayoutname)
 (vla-get-PlotRotation AL)
;;; alt. (ac0degrees ac90degrees ac180degrees ac270degrees)
 (vla-put-PlotRotation AL ac0degrees)
(princ (VLA-get-PlotRotation AL))
)

从autodesk论坛：
http://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/using-activex-lisp-to-get-set-plot-configuration/td-p/883677

[编程交流] 页面设置Lisp

发表回复

精选推荐