KnowHow – Page 6 – Form Follows Energy

2017/11/122021/01/04

[vba] CAD도면 작성 – Line 그리기(DXF)

DXF를 사용하면 고품질의 CAD 파일을 출력할 수 있다. 즉 VBA를 통하여 자동으로 도면을 그릴 수 있다. DXF는 AutoCAD와 호환이 되도록 설계된 파일형식이다.

작성의도 : 도면 작성 자동화

아래의 코드는 여기에 있는 DXF파일을 출력하는 코드이다.

Sub WriteDXFFileTest()
    Dim fileNum As Integer
    Dim fileName As String
    '
    fileNum = FreeFile
    fileName = "C:\DXFTest.dxf"
    '
    Open fileName For Output As #fileNum
    '
    Print #fileNum, Format(999, "@@@")
    Print #fileNum, "Created by SolarView"
    '
    Print #fileNum, Format(0, "@@@")
    Print #fileNum, "SECTION"
    '
    Print #fileNum, Format(2, "@@@")
    Print #fileNum, "ENTITIES"
    '
    Call WriteDXFLine(fileNum, 0, 4, 12.5, 13.5, 0, 100.7, 101.7, 0)
    '
    Print #fileNum, Format(0, "@@@")
    Print #fileNum, "ENDSEC"
    '
    Print #fileNum, Format(0, "@@@")
    Print #fileNum, "EOF"
    '
    Close #fileNum
    '
End Sub

Sub WriteDXFFileTest()

Dim fileNum As Integer

Dim fileName As String

fileNum = FreeFile

fileName = "C:\DXFTest.dxf"

Open fileName For Output As #fileNum

Print #fileNum, Format(999, "@@@")

Print #fileNum, "Created by SolarView"

Print #fileNum, Format(0, "@@@")

Print #fileNum, "SECTION"

Print #fileNum, Format(2, "@@@")

Print #fileNum, "ENTITIES"

Call WriteDXFLine(fileNum, 0, 4, 12.5, 13.5, 0, 100.7, 101.7, 0)

Print #fileNum, Format(0, "@@@")

Print #fileNum, "ENDSEC"

Print #fileNum, Format(0, "@@@")

Print #fileNum, "EOF"

Close #fileNum

End Sub

LINE명령어를 처리하는 함수는 다음과 같이 작성할 수 있다.

Sub WriteDXFLine(FileNumber As Integer, Layer As String, Color As Integer, _
                 X1 As Double, Y1 As Double, Z1 As Double, _
                 X2 As Double, Y2 As Double, Z2 As Double)
    '
    '"Line" entity
    Print #FileNumber, Format(0, "@@@")
    Print #FileNumber, "LINE"
    '
    'Layer Name
    Print #FileNumber, Format(8, "@@@")
    Print #FileNumber, Layer
    '
    'Line Color
    Print #FileNumber, Format(62, "@@@")
    Print #FileNumber, Color
    '
    'x coordinate of start point
    Print #FileNumber, Format(10, "@@@")
    Print #FileNumber, X1
    '
    'y coordinate of start point
    Print #FileNumber, Format(20, "@@@")
    Print #FileNumber, Y1
    '
    'z coordinate of start point
    Print #FileNumber, Format(30, "@@@")
    Print #FileNumber, Z1
    '
    'x coordinate of end point
    Print #FileNumber, Format(11, "@@@")
    Print #FileNumber, X2
    '
    'y coordinate of end point
    Print #FileNumber, Format(21, "@@@")
    Print #FileNumber, Y2
    '
    'z coordinate of end point
    Print #FileNumber, Format(31, "@@@")
    Print #FileNumber, Z2
    '
End Sub

Sub WriteDXFLine(FileNumber As Integer, Layer As String, Color As Integer, _

X1 As Double, Y1 As Double, Z1 As Double, _

X2 As Double, Y2 As Double, Z2 As Double)

'"Line" entity

Print #FileNumber, Format(0, "@@@")

Print #FileNumber, "LINE"

'Layer Name

Print #FileNumber, Format(8, "@@@")

Print #FileNumber, Layer

'Line Color

Print #FileNumber, Format(62, "@@@")

Print #FileNumber, Color

'x coordinate of start point

Print #FileNumber, Format(10, "@@@")

Print #FileNumber, X1

'y coordinate of start point

Print #FileNumber, Format(20, "@@@")

Print #FileNumber, Y1

'z coordinate of start point

Print #FileNumber, Format(30, "@@@")

Print #FileNumber, Z1

'x coordinate of end point

Print #FileNumber, Format(11, "@@@")

Print #FileNumber, X2

'y coordinate of end point

Print #FileNumber, Format(21, "@@@")

Print #FileNumber, Y2

'z coordinate of end point

Print #FileNumber, Format(31, "@@@")

Print #FileNumber, Z2

End Sub

이와 같은 요령으로 AutoCAD의 line뿐만 아니라 circle, arc, pline 등 모든 도면 요소(drawing entities)를 그릴 수 있다.

2017/10/122021/01/03

[VBA]파일 쓰기

[문제]
-엑셀에서 계산 결과를 텍스트 파일로 저장하고 싶다.

[해법1] Write 함수를 사용 (큰따옴표로 묶인 문자열)

자료의 문자열을 큰따옴표가 있는 텍스트 파일로 쓴다.

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\test.txt"
fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.  
textData ="Hello World!"
Open fileName For Output As #fileNo
Write #fileNo, textData
Close #fileNo

Dim fileName As String, textData As String, textRow As String, fileNo As Integer

fileName = "C:\test.txt"

fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.

textData ="Hello World!"

Open fileName For Output As #fileNo

Write #fileNo, textData

Close #fileNo

이 프로그램의 실행결과는 다음과 같다.

"Hello, World!"

1	"Hello, World!"

문자열을 큰따옴표로 묶인다는 점을 잊지 말자.

[해법2] Print 함수를 사용 (큰따옴표가 없는 문자열)

Dim fileName As String, textData As String, textRow As String, fileNo As Integer
fileName = "C:\test.txt"
fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.    
textData ="Hello World!"
Open fileName For Output As #fileNo
Print #fileNo, textData
Close #fileNo

Dim fileName As String, textData As String, textRow As String, fileNo As Integer

fileName = "C:\test.txt"

fileNo = FreeFile '사용하지 않는 파일 번호를 가져온다.

textData ="Hello World!"

Open fileName For Output As #fileNo

Print #fileNo, textData

Close #fileNo

이 프로그램의 실행결과는 다음과 같다.

Hello, World!

1	Hello, World!

아마도 Print함수를 쓸 경우가 많을 것이다.

[참고]
Excerpted from http://analystcave.com/vba-write-file-vba/

2017/09/27

[ubuntu]IP setup

[문제]
서버로 사용하던 컴퓨터를 교체하였다. 그 컴퓨터를 다른 네트워크에 물려서 검사하려 했다. 서버일 때는 고정 IP를 사용하였으나, 자동 IP를 사용해야 했다.

[해결]
ubuntu에서 IP 설정하기

$sudo ifdown eth0
$sudo vi /etc/network/interfaces

auto lo
iface lo inet loopback
 
auto eth0
iface eth0 inet dhcp

$sudo ifup eth0

$sudo ifdown eth0

$sudo vi /etc/network/interfaces

auto lo

iface lo inet loopback

auto eth0

iface eth0 inet dhcp

$sudo ifup eth0

2017/09/27

How to know the size of a file, a directory, or a disk

https://askubuntu.com/questions/1224/how-do-i-determine-the-total-size-of-a-directory-folder-from-the-command-line

ls -l, which only displays the size of the individual files in a directory, nor
df -h, which only displays the free and used space on my disks.

The command du “summarizes disk usage of each FILE, recursively for directories,” e.g.,

du -hs /path/to/directory
-h is to get the numbers “human readable”, e.g. get 140M instead of 143260 (size in KBytes)
-s is for summary (otherwise you’ll get not only the size of the folder but also for everything in the folder separately)

2017/09/262017/10/25

migration from ubuntu to mac mini

[문제1]
우분투 서버가 계속 문제를 일으켰다. 하드웨어 문제인 것으로 추정된다.
[해결1]
다른 하드웨어로 옮기기로 했다. 현재 보유중인 맥미니로 옮기기로 했다.

[문제2]
우분투 서버의 database를 백업하기
[해결2]
-ubuntu mysql설치 위치

/var/lib/mysql

1	/var/lib/mysql

우분투 서버의 /home/mysql 폴더에 데이터파일들을 두고 실행 폴더 안에 링크를 걸어둔 상태였다.
혹시 내부적인 permission이 문제가 될까봐 sudo 명령으로 폴더를 아래와 같이 묶었다.

$sudo tar -cvf mysql.tar /home/mysql

1	$sudo tar -cvf mysql.tar /home/mysql

[문제3]
데이터베이스를 맥서버로 옮기기
[해결3]
1.맥서버에서 터미널을 통해서 scp로 복사를 한다. 복사할 곳에서 아래 명령어를 실행한다.

$scp archer@architecture.kunsan.ac.kr:/home/archer/mysql.tar .

1	$scp archer@architecture.kunsan.ac.kr:/home/archer/mysql.tar .

2.묶어둔 것을 푼다.

$sudo tar -xvf mysql.tar

1	$sudo tar -xvf mysql.tar

3.맥서버에는 mysql소유자가 _mysql이므로, 소유자를 변경한다.

$sudo chown -R _mysql /home/mysql

1	$sudo chown -R _mysql /home/mysql

4.macOS mysql설치 위치에 데이터베이스가 복사된 곳의 링크를 걸어둔다.

$cd /usr/local/mysql
$sudo ln -s /Volumes/SolarData/home/mysql data

1 2	$cd /usr/local/mysql $sudo ln -s /Volumes/SolarData/home/mysql data

[문제4]
웹문서를 맥서버로 옮기기
[해결4]
0.우분투서버에서 홈페이지를 tar로 묶는다.

$sudo tar -cvf www.tar /home/www

1	$sudo tar -cvf www.tar /home/www

1.맥서버에서 터미널을 통해서 scp로 복사를 한다. 복사할 곳에서 아래 명령어를 실행한다.

$scp archer@architecture.kunsan.ac.kr:/home/archer/www.tar .

1	$scp archer@architecture.kunsan.ac.kr:/home/archer/www.tar .

2.묶어둔 것을 푼다.

$sudo tar -xvf www.tar

1	$sudo tar -xvf www.tar

3.맥서버에는 웹문서소유자가 _www이므로, 소유자를 변경한다.

$sudo chown -R _www /home/www

1	$sudo chown -R _www /home/www

2017/09/26

[ubuntu]boot log files

[문제]
서버에 자꾸 다운되면서 작동을 하지 않는다. 무엇이 문제인지 부팅과정부터 확인하고 싶다.

[해결]
부팅할 때 시스템 차원의 경고나 오류가 발생했는지 확인한다. 확인할 파일은 다음과 같다.

/var/log/boot.log  ---  System boot log

/var/log/dmesg     ---  print or control the kernel ring buffer

/var/log/boot.log --- System boot log

/var/log/dmesg --- print or control the kernel ring buffer

cat /var/log/boot.log | more
...
...
cat /var/log/dmesg | more

cat /var/log/boot.log | more

...

cat /var/log/dmesg | more

2017/09/192017/09/19

[wp]File Upload Error

[문제 1]
워드프레스에서 파일이 업로드가 안 된다. Media Library에 파일을 올리려니 다음과 같은 메시지가 떴다.

Unable to create directory wp-content/uploads/2017/09. Is its parent directory writable by the server?

1	Unable to create directory wp-content/uploads/2017/09. Is its parent directory writable by the server?

[해법 1]
많은 웹사이트에서 파일의 허가 permission의 문제라고 한다.

[문제 2]
과거 서버에서는 문제가 없었다. 그래서 과거로 사용한 컴퓨터와 현재 사용한 서버가 어떻게 다른가 비교를 했다.
여기서 “@”와 “+”와 같은 문자가 다른 것을 발견했다.

[해법 2]
이 둘의 차이는 다음과 같았다.
https://apple.stackexchange.com/questions/42177/what-does-signify-in-unix-file-permissions

[문제 3]
실제 차이는 파일의 소유주가 달랐다. 과거 서버 디렉토리와 파일의 소유자는 _www였고, 현재 서버 디렉토리와 파일의 개인사용자였다.

[해법 3]
그래서 서버 홈 디렉터리 소유자를 _www로 바꾸었다.

sudo chown -R _www www

1	sudo chown -R _www www

[문제 4]
사진 용량이 커서 업로드가 안 된다.

[해법 4]
https://catchthemes.com/wordpress-tutorials/increase-maximum-file-upload-size-wordpress/

2017/08/102017/08/10

Arduino Shields

아두이노 쉴드는 아두이노의 기능을 확장시켜주는 기판(board)을 말한다. 어떤 쉴드를 추가하느냐에 따라 확장되는 기능이 달라지게 된다.

2017/08/102017/08/10

맥 미니 활용

미디어 서버
1. ServeToMe
2. How to Turn a Mac mini into a media server with Plex
3. Serviio
4. Darwin Streaming Server

2017/07/032018/05/28

맥 서버(smb)를 네트워크 드라이브로 연결하기

[문제]
맥서버(server.app이용)의 폴더를 smb로 공유하여, PC 윈도우에서 네트워크 드라이브로 연결하기

[상황]
– 맥 서버 : macOS Sierra 10.12.5, Server app 5.3.1
– PC : Windows 10 Education x64

[해법]
1. 맥서버와 동일한 네트워크로 연결한다.
– 맥서버에 있는 “설정->공유->인터넷 공유”를 통하여 “Ethernet”을 공유하여 “Ethernet2″를 PC를 연결함
2. 윈도우 10에서 로그인 옵션에서 “암호”로 하면 드라이브 연결이 됨.
– 윈도우 10에서 로그인 옵션에서 “PIN”으로 하면 드라이브 연결이 안 됨.
– 윈도우 10을 새로 설치함. (ㅠ.ㅠ)

[교훈]
생각보다 파일공유가 까다롭다!

[후기]
7월 3일 작성이었음
7월 14일 학내 전산원 이메일에 의하면, 그 동안 SMB를 막았다고 한다. 그래서 안 됐나? 아흑
같은 학내 네트워크에서도 SMB가 안 되었다.