Değişen açı yüz yüze yüz yüze

[Gino4732984723ç°]

Her şeye merhaba, farklı formatlarda bir parça ihracat yapan bir makro yaptım, adım, iges, oturdu ve aralarında da stl.
Sadece stl'ın bir parçasında, makro bölümü kopya etmeli ve kopyalanan nesnede yüzlerin açısını 2'ye ayarlamalı ve sonra dosyayı stl uzantılı ile ihraç etmelidir.
Her şey, sadece yüzlerin açısını değiştirmez ve varsayılan olarak belirlenen yaprakları bırakır. .
Seni lisp kodu bırakıyorum:

(in-package:salva)
(use-package:oli)

(setq kamera (format nil "~a/salvataggi otomatiki annotasyon/cam" oli:*bizzotto-temp*)

(sd-defdialog ‘salva_file_cam_cam
:dialog-title "salva file per cam"
:toolbox-button t t t t
:
(particolare:selection (*sd-assembly-seltype* * *)
:multiple-items t
:show-select-menu t t t t
Adı "parte/gruppo"
Sonra:
(progn (setf lista (list)
(dolist (x katılımcıcolare)
(If (string= "nil" (en-to-string (sd-inq-obj-contents-name x)))
(progn (sd-display-error "una delle part selezionate non e' codificata!")
(eski_vp (oli:)
(add_to_vp_drawlist (oli:sd-inq-current-vp) x) x)
(fit_vp (oli:sd-inq-current-vp) update_screen)
(sd-display- Terror "questa e' la parte un codificata!
n.b: Calla parte non sara' esportata!"
(progn(push x lista)))))

("formato")

(step:toggle-type: Worldwide-toggle-type:
Adı "step"
:push-action (dolist (nome lista)
(step_export:select nome:filename (format nil "~a/~a.step" cam (sd-inq-obj-contents-name nome) :over write)

(iges:toggle-type:wide-toggle
Adı "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) :overwrite))

(sat:toggle-type:wide-toggle
Adı "sat"
:push-action (dolist (nome lista)
(save_sat:select nome:filename (format nil "~a/~a.sat" cam (sd-inq-obj-contents-name nome) :over write)

;07/09/2022 - toniolo s. - formato .stl

(stl:toggle-type:wide-toggle
Adı "stl"
:push-action (dolist (nome lista)
(sd-call-cmds (create_multiple_pa:copy
: Bir seviye:on
:kaynak katılımcıcolare
Sahibi /)
)
:The_part :start (sd-inq-curr-part) :select_done
:ang_err 2
(stl:parts_assemblies(sd-inq-curr-part) :yes :file (format nil "~a/~a.stl" cam (sd-inq-obj-contents-name nome) :overwrite))
)
:local-functions '()
:ok-action '()
:help-action '()

 

[Kaji]

Online bulduğum şeyleri bile değiştirebileceğim için büyük hayranlığı hissediyorum, daha iyi açıklamaya çalışıyorum: Aslında 3d yazıcı ile uyumlu dosyaları aynı zamanda ihracat sırasında ve aynı zamanda yüksek veya daha az tanımına bağlı olarak dosya boyutunu elde edemem.
Bu yüzden sonunda, ihraç 3d baskı için hizmet ederse, bu lisp parçasının başarısızlığı temel değildir.

 

[Gino4732984723ç°]

Merhaba.