Gino4732984723ç°
Guest
hello to all, 나는 단계, iges, sat를 포함하여 다른 형식의 일부를 내보내는 매크로를 만들었습니다. 또한 stl에서.
stl의 일부에만, 매크로는 부분을 복사하고 복사 된 객체에서 얼굴의 각도를 2에 조정하고 그 다음 stl 확장 파일 내보내기.
모든 것을, 단지 얼굴의 각도를 변경하지 않고 기본적으로 설정 잎. .
나는 lisp의 코드를 떠나 :
stl의 일부에만, 매크로는 부분을 복사하고 복사 된 객체에서 얼굴의 각도를 2에 조정하고 그 다음 stl 확장 파일 내보내기.
모든 것을, 단지 얼굴의 각도를 변경하지 않고 기본적으로 설정 잎. .
나는 lisp의 코드를 떠나 :
Code:
(패키지:salva)
(사용 패키지 : 올리)
(setq 캠 (format nil "~a/salvataggi automatici annotation/cam"oli::*bizzotto-temp*))
(sd-defdialog 'salva_file_cam)에 대 한
:dialog-title "salva 파일 당 캠"
:툴박스 버튼 ₢ 킹
:variables의 '(
(particolare : 선택 (*sd-assembly-seltype* *sd-part-seltype*)
: 멀티 피스 t
: 쇼-선택-menu ₢ 킹
:제 "parte/gruppo"
: 후 입력
(progn (setf lista (리스트)))
(도리스트 (x particolare)
(문자= "nil" (문자-to-string (sd-inq-obj-contents-name x)))
(progn (sd-display-error " 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 비 codificata!
n.b: questa parte non sara' esportata!")
(진료 x lista))))
("formato")
(단계:toggle 유형: 넓은 toggle
:제목 "단계"
:push-action (도리스트)
(step_export :select nome :filename (format nil "~a/~a.step"캠 (sd-inq-obj-contents-name nome)) :overwrite))
(게시물 :toggle-type :wide-toggle
:제목 "게이지"
:push-action (도리스트)
(native_cad_out :cad_system :igesdek :parts nome :filename (format nil "~a/~a.igs" cam (sd-inq-obj-contents-name nome) :overwrite))))
(sat:toggle 유형: 넓은 toggle
:제목 "sat"
:push-action (도리스트)
(save_sat :select nome :filename (format nil "~a/~a.sat"캠 (sd-inq-obj-contents-name nome)) :overwrite)
;07/09/2022 - toniolo s. - 형식의 aggiunta 수출 .stl
(stl:toggle 유형: 넓은 toggle
:제목 "stl"
:push-action (도리스트)
(sd-call-cmds (create_multiple_pa : 복사)
: 1단계 :
: 자원 particolare
: 소유자 /)
·
:the_part :스타트(sd-inq-curr-part) :select_done
: ang_err 2
;(stl :parts_assemblies(sd-inq-curr-part) :yes :file (format nil "~a/~a.stl"캠 (sd-inq-obj-content-name nome)) :overwrite))))
)))
:현지기능 '()
:ok-action '()
:help-action '()