새 매크로 폴더 만들기

[samurai76]

안녕하세요, 미안하지만 혼란을 피하기 위해 나는 다음에 나를 연결하여 다른 토론을 열었다 :
https://www.cad3d.it/forum1/threads/esportazione-automatica-idw-to-pdf-dxf.42618/나는 pdf와 dxf에 idw 파일을 수출하는 매크로를 사용하고 완벽하게 작동합니다 (ringrazio 카테고리) 그러나 지금 나는 laziness를 필요로했다. 나는 idw가, subfolder (e.g. ...\dxf-pdf... 아직 존재하는)가 매크로의 출력을 저장하는 디렉토리에서 생성하고 싶습니다.
아래 코드를 할 수 있습니다. (내가 어디를 기억하고 doc에 편집하지 마십시오) ilogic 규칙으로 삽입하지만 위의 매크로를 입력 할 수 없습니다.

구문 편집기 코드 snippetopath = thisdoc. 계정 정보
inilename = thisdoc.filename(false) 확장 없이
'orevnum = iproperties.value("프로젝트", "revision number")
'orevnum = iproperties.value("project", "checked by")
opdfaddin = thisapplication.applicationaddins.itembyid _ 한국어
( "{0ac6fd96-2f4d-42ce-8be0-8aea580399e4}")
odocument = 이application.activedocument
ocontext = thisapplication.transientobjects.createtranslationcontext
ocontext.type = iomechanismenum.kfilebrowseiomechanism
ooptions = thisapplication.transientobjects.createnamevaluemap
odatamedium = thisapplication.transientobjects.createdatamedium
현재 상태 = string.format("{0: mm.dd.yyyyyy}",datetime.now)

opdfaddin.hassavecopyasoptions(odocument, ocontext, ooptions)가 있다면
ooptions.value("all_color_as_black") = 0
ooptions.value("remove_line_weights") = 1개
ooptions.value("vector_resolution") = 400
ooptions.value("sheet_range") = inventor.printrangeenum.kprintallsheets
'ooptions.value("custom_begin_sheet") = 2'ooptions.value("custom_end_sheet") = 4
끝 면

'get pdf 대상 폴더 경로
ofolder = thisdoc.path & "\pdfs" "k:\dwg\pdf"의 상응

'pdf 폴더를 검사하고 존재하지 않는 경우 만들
system.io.directory.exists(폴더)가 아닌 경우
system.io.directory.createdirectory(폴더)
끝 면

'pdf 대상 파일 이름을 설정
odatamedium.filename = ofolder & "" & ofilename & _
"_rev" & 최신 & ".pdf"

비밀번호
opdfaddin.savecopyas (odocument, ocontext, ooptions, odatamedium)

감사합니다.
인기 카테고리