[求助]用lisp如何把页面设置使用到当前布局???

vkzhang

用lisp如何把页面设置使用到当前布局???希望高手们帮帮小弟啊

xj6019

e2002 发表于 2019-12-10 12:21
mac版本已经内置此功能，我以前是自己写的程序处理。希望win版本尽快补上这个功能。

您好，这个命令是怎么运行的啊，没看懂用什么命令呢，年代久远的代码了，现在有更好的了吗，求指教，接到图纸文件打印设置和自己电脑不同的时候，需要每个布局调一遍，如果能设置一个，然后自动加载到所有，也是挺方便的，我现在是直接在发布里面统一改，不过有时候一忘了，就白打印了，又得调好再重新发布一次，坏处是每次都得调，如果代码可以做到自动把设置加载到所有的布局，就会方便多了，期待您帮忙解决一下这个问题好吗，谢谢！

xj6019

andyzha 发表于 2019-12-15 19:20
一般都是设置好第一个布局以后，余下的布局都是从第一个布局复制后修改过来的，相当于把布局的打印设置什么 ...

呵呵  这我当然知道  但是你接到的图纸是几十个布局已经做好了的  但是布局打印设置和电脑预存的不同呢  该怎么办   只改第一个  后面是不会读取第一个的    没法子的哦   只能挨个去读取  那也是很麻烦的

xj6019

vkzhang 发表于 2007-9-26 12:52
本帖最后由 作者 于 2007-9-26 13:58:16 编辑  谢谢alin了,问题已经解决了把答案写到这里,希望能帮助同样 ...

不好意思 能教我一下怎么用的吗，我没看到用什么命令调用啊

vkzhang

自己顶起来,一般这个问题很少涉及到的,希望哪位高手帮帮忙哦

vkzhang

难道就没人知道怎么解决吗??

alin

你指的页面设置是否已赋名？如果是，考虑COPYFROM方法

alin

http://discussion.autodesk.com/thread.jspa?messageID=2027779

vkzhang

谢谢alin了,问题已经解决了
把答案写到这里,希望能帮助同样遇到这个的朋友.
(defun putPagesetup (document layout setup)
  (if
    (vl-catch-all-error-p
      (vl-catch-all-apply
        (function
          (lambda ()
            (vla-copyfrom
              (vla-item (vla-get-layouts document) layout)
              (vla-item (vla-get-plotconfigurations document) setup)
            )
          )
        )
      )
    )
     nil
     t
  )
)

(setq *doc* (vla-get-activedocument (vlax-get-acad-object)))
;;1,应用到所有布局
(foreach x (layoutlist) (putPagesetup *doc* x "test"));;;test为要使用的页面设置名称
;;2,应用到当前布局
(setq CTAB (getvar "CTAB"))
(putPagesetup *doc* CTAB "test");;;test为要使用的页面设置名称

jialiang168

vkzhang 发表于 2007-9-26 12:52
本帖最后由 作者 于 2007-9-26 13:58:16 编辑  谢谢alin了,问题已经解决了把答案写到这里,希望能帮助同样遇 ...

謝謝啦我正好用到了

teykmcqh

我研究一下，很实用功能

e2002

mac版本已经内置此功能，我以前是自己写的程序处理。希望win版本尽快补上这个功能。