특정한 반복 과정을 한큐에 실행하게 만든 내부의 프로그램. Macro를 이용하면 모든 단순반복 작업(수치변경-해석)을 단순화 할 수 있다. 최근에 새로 적용된 Optimetiric 옵션은 이러한 MACRO 기능을 메뉴화한 것의 일종이다. MACRO 구조를 이해하고 나면 개체 조절의 많은 부분을 이해할 수 있으므로 잘 공부해두도록 한다.

 

예) 사각형을 하나 그렸을 경우의 Macro 언어 구조

위의 도표를 다시 쉽게 풀어서 설명해보겠다.

 

Assign  변수 GetDouble “ 입력하시오 = ? ”

여기서 Assign은 변수지정 명령어이고, 변수는 원하는 변수이름을 사용자가 정해서 쓰는 것, GetDouble은 실수형으로 변수를 받겠다는 것, " 입력하시오 = ? " 라는 것은 command prompt 상에서 입력받기 위해 출력할 문자이다. 이렇게 추가해주고 나서 변수화하고 싶은 수치를 원하는 변수 이름으로 대치한다.

 

--> 점 (0,5,0)을 기준으로 180*40*50의 box란 이름의 육면체를 만듦.

           수정 : Assign bx GetDouble " case length = ”

                    Box Pos3(0 5 0) bx 40 50 "box”

--> box의 길이를 bx라는 변수로 따로 입력할 수 있음. Macro를

     재실행하면 prompt에서 윗줄의 “  ”안에 있는 문구를 출력함.

입력받은 변수를 Macro 내부에서 재계산 또는 합성하고 싶은 경우 다음과 같은 명령어를 사용한다.

 

말이 필요없이, 아래의 예제를 보도록 한다.

         실제결과 : Dielength + Conlength  = length

        Assign  cap  Div coincide outside

        실제결과 : outside / conicide  = cap

주의할 점은, Div와 Sub 사용시 맨뒤의 변수1과 변수2의 위치를 정확히 기억하고 지켜야 한다. 좀 지저분해 보여도 익숙해지면 그런대로 쓸만은 하다.

 

UseCommandSet "mod3proj"

UseCommandSet "Modeler3"

UseCommandSet "mod3view"

UseCommandSet "Generic Module"

Box Pos3(0 -20 0) 180 50 40 "box"

Cyl Pos3(54 0 0) 2 8 35 "post1"

Select { "+post1" }

DupLine Vec3(36 0 0) 3

Cyl Pos3(180 0 20) 0 3 20 "cnt1"

Cyl Pos3(180 0 20) 0 10 20 "out1"

Cyl Pos3(180 0 20) 0 3 10 "t1"

Cyl Pos3(170 0 20) 0 12 3t "circle1"

Unite { "circle1" "t1" }

Select { "+circle1" "+cnt1" "+out1" }

DupMirror Pos3(180 0 0) Pos3(90 0 0)

Select { "+circle2" "+cnt2" "+out2" }

Move Vec3(-90 0 0)

DeSelect { "*" }

Echo "This is Metal Post Filter for base station"

UseCommandSet "Default"

UseCommandSet "mod3proj"

UseCommandSet "Modeler3"

UseCommandSet "mod3view"

UseCommandSet "Generic Module"

Assign bx GetDouble " case length = "

Assign by GetDouble " case width = "

Assign bz GetDouble " case height = "

Assign stp div by -2

Box Pos3(0 stp 0) bx by bz "box"

Assign pn GetDouble " # of Posts = "

Assign pr GetDouble " post radius = "

Assign ph GetDouble " post height = "

Assign pd GetDouble " gap distance of Posts = "

Assign t1 sub pn 1

Assign t2 mul t1 pd

Assign t3 mul pr pn

Assign t33 mul t3 2

Assign t4 sub bx t33

Assign t5 sub t4 t2

Assign t6 div t5 2

Assign fp add t6 pr

Assign pr2 mul pr 2

Cyl Pos3(fp 0 0) 2 pr ph "post1"

Assign cd add pd pr2

Select { "+post1" }

DupLine Vec3(cd 0 0) pn

Assign pth div bz 2

Assign cnt GetDouble " center conductor radius of connector"

Assign out GetDouble " Dielectric radius of connector"

Assign inr GetDouble " inner conductor raius"

Assign inl GetDouble " inner conductor length"

Assign inlneg mul inl -1

Assign cr GetDouble " plate radius"

Assign ct GetDouble " plate thickness"

Assign ctt mul ct -1

Assign cirpos sub bx inl

Cyl Pos3(bx 0 pth) 0 cnt 20 "cnt1"

Cyl Pos3(bx 0 pth) 0 out 20 "out1"

Cyl Pos3(bx 0 pth) 0 inr inlneg "t1"

Cyl Pos3(cirpos 0 pth) 0 cr ctt "circle1"

Unite { "circle1" "t1" }

Select { "+circle1" "+cnt1" "+out1" }

Assign half div bx 2

DupMirror Pos3(bx 0 0) Pos3(half 0 0)

Select { "+circle2" "+cnt2" "+out2" }

Assign mv mul bx -1

Move Vec3(mv 0 0)

DeSelect { "*" }

Select { "+box" "+cnt1" "+cnt2" "+circle1" "+circle2" }

DefColor 0 0 255

ColorSel

Select { "+out1" "+out2" }

DefColor 255 128 128

ColorSel

이렇게 만들어진 Macro를 이용하면, 하나의 Macro 라이브러리로 아래와 같이 같은 스타일의 구조물을 다양한 형태로 몇십개라도 간편히 수치입력만으로 그릴 수 있다.