con la speranza di Fare cosa gradita, qui sotto riporto la "sub main" modificata da sovrascrivere nella 매크로,
in verde trovi i commenti e le spiegazioni per le righe aggiunte, se non è chiaro fammi 사파이어:
하위 메인()
sldworks로 dim swapp. 관련 링크
sldworks.modeldoc2로 디엠 swmodel
sldworks.assemblydoc로 디엠 swassy
sldworks.configuration로 디엠 swconf
sldworks.component2로 디엠 swrootcomp
dim nstart 단 하나
dim bret 로 불린
swapp = 응용 프로그램 설정. 관련 링크
설정 swmodel = swapp.activedoc
설정 swconf = swmodel.getactiveconfiguration
swrootcomp를 설정 = swconf.getrootcomponent3 (true)
debug.print "파일 = " & swmodel. 이름 *
'''' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' '' ' ' '' ' ' ' '' ' ' '' ' '' ' '' '' '' '' ' '' ' '' '' ' '' '' ' '' ' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
'''' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' '' ' ' '' ' ' ' '' ' ' '' ' '' ' '' '' '' '' ' '' ' '' '' ' '' '' ' '' ' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
수출 dxf-dwg를 위한 조정 지역
이름 *
'in this part of code 부과 설정 때문에 solidworks 나를 표시하지 않습니다
'모든 구조 dwg\dxf mapping 설정 마스크dim bshowmap 로 불린
mapping 파일 사용bshowmap = 스왑.getuserpreferencetoggle(swuserpreferencetoggle_e.swdxfdontshowmap)
bshowmap = false 그 후 bshowmap = true 다른 bshowmap = true
swapp.setuserpreferencetoggle을 설정 swuserpreferencetoggle_e.swdxfdontshowmap, 거짓 이름 * 이 부분은 이미 설정한 경우 mapping 파일을 변경하기 전에 옵션입니다.
'Save in the variable the string of the mapping file 그래서 그것이 매크로의 끝 후에 다시 시작할 수 있도록dim old_mapping_file 로 문자열
이전_mapping_file = swapp.getuserpreferencestringlistvalue(swdxfmappingfiles) ' mi ritorna 광고 esempio "c:\...\mio_file.dat" 이름 *
'now step to the pointing string of mapping 파일
흰색 앞에, 즉, 문swapp.setuserpreferencestringlist값 swuserpreferencestringlistvalue_e.swdxfmappingfiles, ""를 Whitening 매핑 문자열
'지금은 나중에 구출을 참조해야 할지도 파일을 부과swapp.setuserpreferencestringlist값 swuserpreferencestringvalue_e.swdxfmappingfiles, "c:\...\mia_mappatura.dat"를 'mposed mapping 파일
'Dxf\dwg을 저장하는 동안 옵션 아래에서 찾을 수있는 커튼을 컴파일 한 문자열로 내 드롭 다운 라인 인덱스를 통과해야swapp.setuserpreferenceinteger값 엠에디터 플러그 인 참조:Swdxfmappingfileindex 0 댓글 '나는 첫 번째 목록에서 다음 0
이름 * 이 명령은 선택적, 나는 구조 버전을 설정하려고swapp.setuserpreferenceinteger값 swuserpreferenceintegervalue_e.swdxfversion, 3을 ' 수출 출시 부과 "es.r2000-2002"
이름 *
' 수출 dxf-dwg에 대한 미세 설정 영역트래버스 구성 요소 swrootcomp, 1
이 두 줄을 삽입하는 사이클을 완료하면 초기 매핑 파일을 복원합니다.swapp.setuserpreferencestringlist값 swuserpreferencestringlistvalue_e.swdxfmappingfiles, ""를
swapp.setuserpreferencestringlist값 swuserpreferencestringlistvalue_e.swdxfmappingfiles, old_mapping_files, 구문 'mposed mapping 파일
'''' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' '' ' ' '' ' ' ' '' ' ' '' ' '' ' '' '' '' '' ' '' ' '' '' ' '' '' ' '' ' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''
'''' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ' '' '' '' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' ' '' ' '' ' '' ' ' '' ' ' ' '' ' ' '' ' '' ' '' '' '' '' ' '' ' '' '' ' '' '' ' '' ' '' '' '' '' '' ' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' ''msgbox (" 수출 완료!")
이름 *
