안산드레아스

ODB++ 에 대해 궁금하면 아래를 참고.

https://ansan-survivor.tistory.com/194

ODB++는 Gerber보다 더 많은 데이터를 갖고 있어 효율적으로 여러 PCB업체가 제조에 있어 사용할 수 있다.

대부분의 PCB설계툴은 제작을 위해 ODB++ 포맷으로 Export 할 수 있다. (마치 거버파일처럼)

그리고 이를 무료로 볼 수 있도록 공식 ODB++ 사이트에서 뷰어를 제공하고, 기업 개인 모두 공짜로 쓸 수 있다.

링크 : https://odbplusplus.com/design/download/odb-viewer/

설치하면 아이콘은 아래와 같이 생김.

실행 후 Import눌러 ODB++ 포맷을 가져오면 된다.

ODB++ 포맷은 압축파일 형태로 (.zip, .tar, .Z 등등) 일 수 있고, 또는 압축을 푼 폴더 형태로 가져올 수 있다.

그러 폴더 하위 구조가 아래와 같으면 된다.

열고자 하는 모델명을 더블클릭하면 실행된다.

왼쪽 필요한 Layer을 켜고 끄며 우측에 모양을 볼 수 있다.

아래와 같이 3개 줄로 나뉜 Text파일이 있다.

구분자는 Comma (쉼표) 으로 되어있다.

이 Text파일을 읽고 Line을 각 Array으로 가져온다.

코드를 미리 분석하면 아래 data 변수는 각 줄을 하나의 묶음 List 으로 내보낸다.

Split을 이용해 comma를 기준으로 각 항목을 잘라서 List으로 저장하여 2차 배열 (Array)으로 내보낸다.

함수로 return하여 새로운 변수 ColLines에 담았다.

이 ColLines는 각 줄의 정보가 하나씩 담겨있고 (1차 배열)

위와같이 For Each으로 3개의 줄을 하나씩 나눠서 또 data(0), data(1), data(2), data(3)  으로 각각의 값을 확인할 수 있다.

코드

Function readFilereturnLineList(file_path)
    Dim fso, inputFile, line, lines, data
    
    ' 파일 시스템 객체 생성
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 입력 파일 열기
    Set inputFile = fso.OpenTextFile(file_path, 1)
    
    ' 파일 내 각 줄을 읽어서 리스트에 추가합니다
    Do Until inputFile.AtEndOfStream
        line = inputFile.ReadLine()
        If Len(Trim(line)) > 0 Then
            lines = lines & line & vbCrLf
        End If
    Loop
    
    ' 각 줄을 하나의 리스트로 만듭니다
    data = Split(lines, vbCrLf)
    For i = 0 To UBound(data)
        data(i) = Split(data(i), ",")
    Next
    
    ' 결과 리스트를 반환합니다
    readFilereturnLineList = data
    
    ' 파일 닫기
    inputFile.Close
End Function

Dim colLines, data
colLines = readFilereturnLineList("output.txt")

For Each data In colLines
    If UBound(data) >= 0 Then
        MsgBox data(0)
        MsgBox data(1)
        MsgBox data(2)
        MsgBox data(3)
    End If
Next

결과는 msgbox로 출력되고, 만약 data(0)만 출력한다면 아래와 같다.

즉, 아래와 같이 첫번째 항목만 뽑았다고 보면 된다.

아래와 같이 파일 존재 유무 확인가능.

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.FileExists("C:\example\file.txt")

If objFile = True Then
    WScript.Echo "파일이 존재합니다."
Else
    WScript.Echo "파일이 존재하지 않습니다."
End If

파이썬 코드 작성시 유용한 파이참. 개발환경 구축은 아래를 참고.

https://ansan-survivor.tistory.com/134

설치후 처음 상태. (죄다 영어다)

구축 후, 언어설정을 한글로 하면 편리하다.

방법은 아래와 같다.

1. File - Settings

2. Plugins - 검색창에 "Korean" 입력 - Install 설치

3. 설치가 완료되면 Restart IDE가 뜬다. 이를 클릭

4. Restart으로 툴을 껐다가 켠다.

결과

여러 원격창을 한번에 켜고 상단 탭으로 바꿔가며 쉽게 볼 수 있다.

Free software으로 개인/기업 모두 무료로 쓸 수 있다.

공식링크는 아래 있고, 설치도 가능.

공식 링크:

https://mremoteng.org/

설치링크 : 

https://mremoteng.org/download

아래와 같이 여러 Connection을 만들고, 리눅스, 윈도우 등 원하는 연결을 상단탭으로 간단하게 띄어서 볼 수 있다.

* 추가로 Tip을 주자면, 여러 모니터를 사용시 해상도 변경이 일어나면 Connection이 끊길 수 있다.

이때 해상도를 고정시키면 된다.

함수 만들 때 Input인자의 변수명을 숫자로 시작하는 이름을 넣었다가 저 에러로 삽질했다.

아래와 같이 시작 text를 숫자로 기입하면 안된다.

엑셀에서 상단 Header 에 필터를 생성시켜 하위 항목들을 필터링 가능.

1. 상단 탭에서 "데이터" 클릭 - "필터" 클릭

2. 자동으로 필터 언더스코프 항목이 생긴다.

3. 원하는 값을 필터링한다.

엑셀을 생성하고 Cell에 값을 쓰는것은 아래를 참고.

https://ansan-survivor.tistory.com/1897

결과부터 보면 아래와 같이 외곽선을 찐하게 칠할 수 있다.

코드)

' 엑셀 obj를 생성
Set objExcel = CreateObject("Excel.Application")
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Sheets(1)



' 해더 부분, 첫번째 줄
objWorksheet.Cells(1,1).Value = "Name"
objWorksheet.Cells(1,2).Value = "Age"

objWorksheet.Cells(1,4).Value = "Hello"
' Cell의 가로 길이 늘리기
objWorksheet.Columns(4).ColumnWidth = 30
objWorksheet.Rows(2).RowHeight = 30


' 2번째 줄
objWorksheet.Cells(2,1).Value = "John"
objWorksheet.Cells(2,2).Value = "30"

' 3번째 줄
objWorksheet.Cells(3,1).Value = "Jane"
objWorksheet.Cells(3,2).Value = "25"

' rng에 영역에 경계선 나타내기
Set rng = objWorksheet.Range("A1:K2")
Const xlThin = 2
With rng.Borders
    .LineStyle = xlContinuous
    .Weight = xlThin
    .ColorIndex = xlAutomatic
End With


' 저장할 경로 지정, 위 데이터를 쓰고 저장됨.
objWorkbook.SaveAs "C:\_workspace\example.xlsx"

' 엑셀 obj를 종료함
objExcel.Quit

아래 부분이 경계선을 만드는 부분.