안녕하세요.
"파일 경로"를 활성화하고 "파일 이름"을 활성화하면 해결해야 합니다.
ilogic과는 조금 더 복잡해, 당신은 부속의 나무 안쪽에 "자전거"에 가지고 있습니다
나는 또한 그것을 할 코드 부분을 첨부합니다.
로그인 _ 로그인
nome_file=thisdoc.filename(true) 확장 없이 확장(false)
nome_file_no_est=thisdoc.filename(false) 확장 없이 확장(false)
percorso=이 문서.path
estensione = 오른쪽 (nome_file,3)
tipo=iproperties.value("project", "document subtype")'{e60f81e1-49b3-11d0-93c3-7e0706000000} x assieme
if tipo <> "{e60f81e1-49b3-11d0-93c3-7e0706000000}"다음
messagebox.show("eseguire il comando da un file di assieme (.iam).", "!!attenzione!!")
출구 sub
이름 *
끝 면
전화 : +86 592 0571-85586753
집합 문서로 dim oasmdoc
oasmdoc = thisapplication.activedocument
oasmname = left(oasmdoc.displayname, len(oasmdoc.displayname) -4)'nome 파일 privo di . ed estensione (no .iam)
메시지 박스 = messagebox.show
"ciclo su tutti icomponenti 델 gruppo" _
& vblf & "questo comando potrebbe richiedere un pò di tempo.", "www.mc-cad.it",messageboxbuttons.yesno)
if rusure = vbno 그때
이름 *
이름 *
끝 면
전화 : +86 592 0571-85586753
'crea il 파일 di testo per il report dei file (stesso nome dell'assieme ma .txt)
owrite = system.io.file.createtext(thisdoc.pathandfilename(false) & ".txt")
owrite.닫기()
전화 : +86 592 0571-85586753
'esaminare i 파일 di riferimento l'assembly
documentenumerator로 dim orefdocs
orefdocs = oasmdoc.allreferenced 문서
문서로 dim orefdoc
orefdocs의 각 orefdoc에 대한
원본 내부 참조에 전체 파일 경로
oorigrefname = orefdoc.fullfilename의 경우
'마지막 backslash의 자세를 정의
fnamepos = instrrev (oorigrefname, "", -1)
'파일 확장 파일 이름
name = right(oorigrefname, len(oorigrefname) - fnamepos) - 이름
'파일 이름 ( 연장 없이)
짧은 이름 = 왼쪽 (이름, len(이름) - 4)
'파일을 포함하는 폴더의 경로
folder_location=왼쪽(oorigrefname, len(oorigrefname) - len(name)
'____open 및 기존 텍스트 파일에 추가_______
system.io.streamwriter로 디엠 oappend
ofile = thisdoc.pathandfilename(false) & ".txt"
oappend = io.file.appendtext(파일)
oappend.writeline(oorigrefname)'nome dile 파일 3d
oappend.flush()에
oappend.닫기()
이름 *
- - - - - - - - - - - - - -
thisdoc.launch(ofile)'apertura del file di testo txt con 메모장 디 윈도우
