Winkelflächen ändern

[Gino4732984723ç°]

Hallo an alle, Ich machte ein Makro, das einen Teil in verschiedenen Formaten exportiert, einschließlich Schritt, iges, sat und unter ihnen auch in stl.
nur, dass das Makro den Teil kopieren sollte und im kopierten Objekt den Winkel der Gesichter auf 2 einstellen und dann die Datei mit der Stl-Erweiterung exportieren sollte.
tut alles, nur das ändert nicht den Winkel der Gesichter und Blätter, die standardmäßig eingestellt..
Ich überlasse Ihnen den Code der Lispe:

(in Package :salva)
(Verpackung :oli)

(setq cam (Format nil "~a/salvataggi automatici annotation/cam" oli:*bizzotto-temp*)

(sd-defdialog 'salva_file_cam)
:dialog-title "salva-Datei pro cam"
:toolbox-button t
:variables '(
(particolare :selection (*sd-assembly-seltype* *sd-part-seltype*)
:multiple-items t
:show-select-menu t
: Titel "parte/gruppo"
:nach Eingang
(progn (setf lista (list))
(dolistisch (x particolare)
(wenn (string= "nil" (write-to-string (sd-inq-obj-contents-name x)))
(Progn (sd-display-error "una delle parti selezionate non e' codificata!")
(clear_vp (oli:sd-inq-current-vp))
(add_to_vp_drawlist (oli:sd-inq-current-vp) x)
(fit_vp (oli:sd-inq-current-vp) update_screen)
(sd-display-error "questa e' la parte non codificata!
n.b: questa parte non sara' esportata!")
(Push x lista))))

("Formato")

(Schritt : Winkeltyp : Weitwinkel
:titel "step"
:push-action (dolist (nome lista)
(step_export :select nome :filename (Format nil "~a/~a.step" cam (sd-inq-obj-contents-name nome)))

(Leere : Kniebeuge)
: Titel "iges"
:push-action (dolist (nome lista)
(native_cad_out :cad_system :igesdek :parts nome :filename (Format nil "~a/~a.igs" cam (sd-inq-obj-contents-name nome)))

(sat : toggle :wide toggle)
:titel "sat"
:push-action (dolist (nome lista)
(save_sat :select nome :filename (Format nil "~a/~a.sat" cam (sd-inq-obj-contents-name nome)))

;07/09/2022 - toniolo s. - aggiunta export in formato .stl

(stl : toggle :wide toggle)
: Titel "stl"
:push-action (dolist (nome lista)
(sd-call-cmds (create_multiple_pa :copy)
: ein Niveau
:Quelle particolare
:Besitzer /)
)
:the_part :start (sd-inq-curr-part)
:
;(stl :parts_assemblies(sd-inq-curr-part) :yes :file (Format nil "~a/~a.stl" cam (sd-inq-obj-contents-name nome))))))
))
:lokal-Funktionen '()
:ok-action '()
:Hilfeaktion '()

 

[Kaji]

Da ich große Bewunderung für diejenigen empfinde, die lisp erstellen können, kann ich nicht einmal ändern, die ich online finde, Ich muss sagen, dass bei der Definition von stl-Format kann nicht unverzichtbar sein, die Anzahl der Gesichter oder sein Winkel (die alten Surftab-Variablen von autocad); Ich versuche, mich besser zu erklären: in der Tat habe ich das stl-Format nur verwendet, um Dateien, die mit dem 3d-Druck kompatibel waren, obwohl die Einstellung der stl-Datei geänderte rechte Größe ändern.
Daher glaube ich, dass, wenn der Stl-Export für den 3d-Druck dient, der Ausfall dieses Lisp-Teils nicht grundlegend ist.

 

[Gino4732984723ç°]

Hi.