'Put' pc3 file to al

Small Fish · 发表于 2022-7-6 11:03:02

Almost there with what I am trying to achieve.
I would like to assign all layout tabs with the same pc3 picked by the user. How would that be done? Is there a function floating around that does that?
thanks for any help!

note: using a Dos_Lib function

copy

 ;some parts by Lee Mac (defun C:SetPC3 (/ doc Pc3Files pc3) (vl-load-com) (vla-RefreshPlotDeviceInfo   (vla-get-ActiveLayout     (setq doc     (vla-get-activedocument       (vlax-get-acad-object))))) (setq Pc3Files (vl-remove-if-not    (function      (lambda (x) (wcmatch x "*.pc3")))    (vlax-invoke      (vla-item (vla-get-layouts doc) "Model")      'GetPlotDeviceNames))) (setq pc3 (dos_listbox      "Assign pc3 file to all tabs"      "Select a pc3 file to assign  to all tab layouts"      Pc3Files  ""  )) (foreach x     (vl-remove "Model" (layoutlist))   (putPc3 x Pc3Files);do I need a function - putPc3         ;or a few lines of extra code? );foreach );defun

alanjt · 发表于 2022-7-6 11:11:18

copy

  (vlax-for x (vla-get-layouts doc)   (or (eq (vla-get-name x) "Model")       (vl-catch-all-apply (function vla-put-configname) (list x pc3))   ) )

However, your code could use a little house cleaning (since it will call the layouts multiple times, etc.).

For the record (layoutlist) does not include "Model".

Small Fish · 发表于 2022-7-6 11:19:33

thanks Alan
but I am not sure whether I should make it a function or where to add it to my above code?

and yes you are correct re: (layoutlist) does not include "Model".

alanjt · 发表于 2022-7-6 11:28:18

Remove all that foreach crap at the bottom and add (if (setq pc3.....) add what I posted here )

copy

(if (setq pc3 (dos_listbox               "Assign pc3 file to all tabs"               "Select a pc3 file to assign  to all tab layouts"               Pc3Files               ""             )   ) (vlax-for x (vla-get-layouts doc)   (or (eq (vla-get-name x) "Model")       (vl-catch-all-apply (function vla-put-configname) (list x pc3))   ) ))

Small Fish · 发表于 2022-7-6 11:35:19

thanks Alan - but I can not get it to work with what you suggested

alanjt · 发表于 2022-7-6 11:38:01

copy

 ;some parts by Lee Mac (defun C:SetPC3 (/ doc Pc3Files pc3) (vl-load-com) (vla-RefreshPlotDeviceInfo   (vla-get-ActiveLayout     (setq doc            (vla-get-activedocument              (vlax-get-acad-object)            )     )   ) ) (if (and (setq Pc3Files (vl-remove-if-not                           (function                             (lambda (x) (wcmatch x "*.pc3"))                           )                           (vlax-invoke                             (vla-item (vla-get-layouts doc) "Model")                             'GetPlotDeviceNames                           )                         )          )          (setq pc3 (dos_listbox                      "Assign pc3 file to all tabs"                      "Select a pc3 file to assign  to all tab layouts"                      Pc3Files                      ""                    )          )     )   (vlax-for x (vla-get-layouts doc)     (or (eq (vla-get-name x) "Model")         (vl-catch-all-apply (function vla-put-configname) (list x pc3))     )   ) ) (princ)) ;defun

alanjt · 发表于 2022-7-6 11:49:15

I'm not sure why you are refreshing the plotter devices to the active layout, but 'get'ing the plotter devices from model. What if you are not in model. Why not just take them from the active layout that you've already defined?

Small Fish · 发表于 2022-7-6 11:51:42

Hey Alan that works brilliant - and I learned something new

I suppose you meant :

copy

              (vlax-for x (vla-get-layouts doc)should be: (vlax-for x (vla-get-layouts *AcadDoc )

just testing me I guess?:wink:

cheers SF

alanjt · 发表于 2022-7-6 12:01:07

Huh? At the beginning of the routine, you defined the active document as doc.Am I missing something?

alanjt · 发表于 2022-7-6 12:08:24

Keep in mind that, while you've successfully assigned a plotter to each layout, nothing else is set properly (sheet size, ctb, etc.). You should really look into using PageSetups. This will avoid a lot of legwork.

[编程交流] 'Put' pc3 file to al

发表回复

精选推荐