lisp de impressão

[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")

[rolando2424]

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

[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 ??

[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.