alxG88
Guest
안녕하세요.
내 작업에서 나를 용이하게하기 위해 나는 작업이 가장 자주 작동하는 고체 가장자리에 대한 일련의 매크로를 작성하고 있습니다.
제출하려는 문제는 다음과 같습니다. 나는 개인이 dfts를 열고, 그들 각각에 대한 매크로를 작성하려고, 특정 디렉토리 내에서 dxf 형식으로 pdf 형식과 dxf 형식으로 사본을 저장.
나는 이전 시간에 dft와 동일한 작업을 실행 매크로를 작성했지만 지금은이 개념을 모든 오픈 dfts로 확장 할 수 없습니다.
나는 내가 쓴 코드를 넣어:
당신이 볼 수 있듯이 나는 주기까지 do...loop를 만들기 위해 노력할 수 있습니다 그래서 그는 시간에서 시간까지 열린 dfts를 찾고, 그러나 그것은 작동하지 않습니다: 결과는 단지 저에게 첫번째 활동적인 dft를 저장하고 그 후에, 각 파일을 위한 매크로를 다시 시작시키기 위하여 나를 강제합니다.
나를 도울 수 있습니까? 어디 잘못?
감사합니다.
뚱 베어
내 작업에서 나를 용이하게하기 위해 나는 작업이 가장 자주 작동하는 고체 가장자리에 대한 일련의 매크로를 작성하고 있습니다.
제출하려는 문제는 다음과 같습니다. 나는 개인이 dfts를 열고, 그들 각각에 대한 매크로를 작성하려고, 특정 디렉토리 내에서 dxf 형식으로 pdf 형식과 dxf 형식으로 사본을 저장.
나는 이전 시간에 dft와 동일한 작업을 실행 매크로를 작성했지만 지금은이 개념을 모든 오픈 dfts로 확장 할 수 없습니다.
나는 내가 쓴 코드를 넣어:
Code:
모듈 모듈
dim objapp 으로 solidedgeframework. 제품정보
hardedgedraft.draftdocument로 디엠 objdft
dim 파일명 문자열
dim pathname_1 로 문자열
dim pathname_2 로 문자열
하위 메인()
오류는 다음을 다시 시작합니다.
objapp = getobject(, "solidedge.application") '은 특정 특성을 가진 응용 프로그램을 만듭니다.
if objapp 이다 아무것도 그때
msgbox("solid edge는 열리지 않습니다! 열린 단단한 가장자리.", vbcritical, "attention")
출구 sub
끝 면
objapp.activedocumenttype < solidedgeframework.documenttypeconstants.igdraftdocument 다음 것
msgbox("n 초안 문서가 열립니다! 초안을 엽니다.", vbinformation, "attention")
출구 sub
끝 면
objdft = objapp.activedocument
objdft가 아무것도 없다면
msgbox("open document!", vbinformation, "attention")
출구 sub
끝 면
'가열한 초안으로 주기를 따르십시오.
call objdft.save() '라는 이름으로 넣어, 새 파일에 대해 제대로 이름을 줄 것을 요청
filename = left(objdft.name, len(objdft.name) - 4)' derives 파일명
pathname_1 = "s:\ug\dxf" 경로 파일 dxf
pathname_2 = "s:\ug\dati" 파일 경로 pdf
objapp.displayalerts = false '파일을 호출하지 않고 같은 이름으로 자동으로 삭제
call objdft.saveas(pathname_1 + filename + "." + "dxf") 이름에 의해 저장
call objdft.saveas(pathname_2 + filename + "." + "pdf") 이름에 의해 저장
objapp.displayalerts = true 'reactive windows alert 메시지
call objdft.close() '파일을 닫으면 pdf 및 dxf를 생성했습니다.
objdft = 아무것도
objapp = 아무것도
objapp.activedocumenttype <> 단단한edgeframework.documenttypeconstants까지 반복. igdraft 문서
이름 *
끝 단위나를 도울 수 있습니까? 어디 잘못?
감사합니다.
뚱 베어