変更の角度の表面

[Gino4732984723ç°]

こんにちは、私は、ステップ、ジェージュ、サット、そしてそれらの間でまたstlで、異なるフォーマットの一部をエクスポートするマクロを作りました。
stl の部分だけに、マクロは部分をコピーし、コピーされたオブジェクトでは顔の角度を 2 に調整し、stl 延長でファイルをエクスポートする必要があります。
デフォルトで設定された顔や葉の角度を変更しないだけでなく、すべてを行います。 .
lisp のコードを残します。

(パッケージ内 :salva)
(使用パッケージ:oli)

(setq cam (フォーマット nil "~a/salvataggi autoi annotation/cam" oli:*bizzotto-temp*))))

(sd-defdialog の salva_file_cam)
:dialog-title "salva file per cam" のタイトル
:toolboxボタン ツイート
:変数 '()
(particolare : selection (*sd-assembly-seltype* *sd-part-seltype*)))
:複数の項目t
:ショー選択メニュー ツイート
:タイトル "parte/gruppo"
:後入力
(progn (setf lista) )
(ドリスト(xparticolare))
(文字列= "nil" (write-to-string (sd-inq-obj-contents-name x)))))
(progn (sd-display-error "na 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 非コディフィサー!)
n.b: questaparte非sara' esportata!)
(progn(push x lista))))))))))

("formato")

(ステップ:toggle-type):ワイドトグル
:タイトル「ステップ」
:push-action (dolist) (nome lista) (nome lista) :push-action (dolist (nome lista)) :push-action (dolist (nome lista) (nome lista)) :push-action (dolist (nome lista) (nome lista) :push-action (dolist (nome lista)
(step_export : nome :filename (format nil "~a/~a.step" cam (sd-inq-obj-contents-name nome))) :overwrite))))

(ges :toggle-type):ワイドトグル
:タイトル "iges"
:push-action (dolist) (nome lista) (nome lista) :push-action (dolist (nome lista)) :push-action (dolist (nome lista) (nome lista)) :push-action (dolist (nome lista) (nome lista) :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):ワイドトグル
:タイトル "sat"
:push-action (dolist) (nome lista) (nome lista) :push-action (dolist (nome lista)) :push-action (dolist (nome lista) (nome lista)) :push-action (dolist (nome lista) (nome lista) :push-action (dolist (nome lista)
(save_sat : nome :filename (format nil "~a/~a.sat" cam (sd-inq-obj-contents-name nome))) :overwrite))))

;07/09/2022 - toniolo s. - formato .stl の aggiunta のエクスポート

(stl :toggle-type):ワイドトグル
:タイトル "stl"
:push-action (dolist) (nome lista) (nome lista) :push-action (dolist (nome lista)) :push-action (dolist (nome lista) (nome lista)) :push-action (dolist (nome lista) (nome lista) :push-action (dolist (nome lista)
(sd-call-cmds) (create_multiple_pa :copy)
:onelevel :on
:ソースparticolare
:所有者/)
)
: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))))))
)))
:ローカル関数 '()
:ok-action '()
:help-action '()

 

[Kaji]

私はlispを作成することができる人のために素晴らしい賞賛を感じると、私はオンラインで見つけたものを変更することはできません、私はstlフォーマットの定義では、顔やその角度(オートカドの古いsurftab変数)の数が不可欠であることができないと言う必要があります。 私は自分自身をよりよく説明しようとします:実際には、私は3dプリンタと互換性のあるファイルを生成するために使用されるだけでなく、エクスポート時にstlファイルの設定を変更し、また、異なるファイルのサイズに応じて変更された3Dプリンタと異なるファイルを選択すると、同じように変更しました。
つまり、stl エクスポートが 3d 印刷に役立っている場合、その lisp 部分の失敗は根本的ではありません。

 

[Gino4732984723ç°]

こんにちは。