Jump to content
VANTZEN

lisp de impressão

Recommended Posts

VANTZEN

Dúvida como faço o comando defun  para entrar nos dados (cdr (assoc 10 (entget ent))) preciso de ajuda

(command "-plot" 
       "y" ; Enter a layout name or [?] <Model>: 
       "" ;model 
       "DWG To PDF.pc3" ;Enter an output device name or [?] <DWG To PDF.pc3>: 
       "ISO expand A4 (210.00 x 297.00 MM)";Enter paper size or [?] <ISO expand A4 (210.00 x 297.00 MM)>: 
       "m" ;Enter paper units [inches/Millimeters] <Inches>: m 
       "p";Enter drawing orientation [Portrait/Landscape] <Portrait>: 
       "n";Plot upside down? [Yes/No] <No>: n 
       "w";Enter plot area [Display/Extents/Limits/View/Window] <Window>: 
       (cdr (assoc 10 (entget ent))) ;Enter lower left corner of window <695610.406630,7190979.290469>: 
       "@42,59.4" ;Enter upper right corner of window <695652.406630,7191038.690469>: 
       5 ;Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <5=1>: 
       "0,0" ;Enter plot offset (x,y) or [Center] <0.00,0.00>: 
       "y" ;Plot with plot styles? [Yes/No] <Yes>: 
       "PARALLELA.ctb" ;Enter plot style table name or [?] (enter . for none) <PARALLELA.ctb>: 
       "Y" ;Plot with lineweights? [Yes/No] <Yes>: 
       "a" ;Enter shade plot setting [As displayed/Wireframe/Hidden/Visual styles/Rendered] <As displayed>: 
       (strcat "d:\\" (getvar "dwgname") ".pdf") ;nome e caminho do plt 
       "" ;proceder 
       "y";salvar a configuração 
       "y" 
       ) 

(command "qsave") 
(command "close")

Share this post


Link to post
Share on other sites
rolando2424

Eu não percebi a tua pergunta. O que é que queres dizer com "entrar nos dados"?


Não me responsabilizo por qualquer dano ocorrido no seguimento dos meus conselhos. Prontos, a minha pessoa está oficialmente protegida legalmente :D

Share this post


Link to post
Share on other sites
VANTZEN

Essa lisp eu peguei num site mas ela está incompleta unica coisa que falta é a primeira linha comando ''DEFUN'' como se faz a primeira linha com o comando  (defun c:rodatodos () por exemplo. Pois está dando erro nesse comando  (cdr (assoc 10 (entget ent)) essa lisp é de Auto cad. Eu não entendo de programação lisp alguem pode me ajudar ??

Share this post


Link to post
Share on other sites
rolando2424

Para teres acesso à variável ent precisas de escrever o defun desta forma:

(defun c:rodatodos (ent)

No final o código deverá ficar algo parecido com este:

(defun c:rodatodos (ent)
  (command "-plot"
         "y" ; Enter a layout name or [?] <Model>:
         "" ;model
         "DWG To PDF.pc3" ;Enter an output device name or [?] <DWG To PDF.pc3>:
         "ISO expand A4 (210.00 x 297.00 MM)";Enter paper size or [?] <ISO expand A4 (210.00 x 297.00 MM)>:
         "m" ;Enter paper units [inches/Millimeters] <Inches>: m
         "p";Enter drawing orientation [Portrait/Landscape] <Portrait>:
         "n";Plot upside down? [Yes/No] <No>: n
         "w";Enter plot area [Display/Extents/Limits/View/Window] <Window>:
         (cdr (assoc 10 (entget ent))) ;Enter lower left corner of window <695610.406630,7190979.290469>:
         "@42,59.4" ;Enter upper right corner of window <695652.406630,7191038.690469>:
         5 ;Enter plot scale (Plotted Millimeters=Drawing Units) or [Fit] <5=1>:
         "0,0" ;Enter plot offset (x,y) or [Center] <0.00,0.00>:
         "y" ;Plot with plot styles? [Yes/No] <Yes>:
         "PARALLELA.ctb" ;Enter plot style table name or [?] (enter . for none) <PARALLELA.ctb>:
         "Y" ;Plot with lineweights? [Yes/No] <Yes>:
         "a" ;Enter shade plot setting [As displayed/Wireframe/Hidden/Visual styles/Rendered] <As displayed>:
         (strcat "d:\\" (getvar "dwgname") ".pdf") ;nome e caminho do plt
         "" ;proceder
         "y";salvar a configuração
         "y"
         )
  
  (command "qsave")
  (command "close"))

Atenção que eu nunca programei em autolisp (o lisp usado pelo Autocad) mas pelo que vi neste tutorial, pelo menos a parte de definir a função deve funcionar. Quanto ao comando de impressão, não sei se funciona ou não.


Não me responsabilizo por qualquer dano ocorrido no seguimento dos meus conselhos. Prontos, a minha pessoa está oficialmente protegida legalmente :D

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.