최초 커밋
This commit is contained in:
root
Binary file not shown.
|
After Width: | Height: | Size: 15 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 5.7 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.4 MiB |
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 2.4 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 15 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 5.7 MiB |
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 11 KiB |
+1595004
File diff suppressed because it is too large
Load Diff
Binary file not shown.
|
After Width: | Height: | Size: 461 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 15 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.4 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 5.7 MiB |
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 1.0 MiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 628 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 2.4 MiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 343 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 1.0 MiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 131 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 35 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 85 KiB |
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 204 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 60 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 17 KiB |
Executable
BIN
Binary file not shown.
BIN
Binary file not shown.
|
After Width: | Height: | Size: 103 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 2.2 MiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 178 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 4.7 MiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 5.2 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 28 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 177 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 98 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 116 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 149 KiB |
BIN
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 3.7 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 2.6 MiB |
BIN
Binary file not shown.
BIN
Binary file not shown.
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 1.6 MiB |
Binary file not shown.
|
After Width: | Height: | Size: 298 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 102 KiB |
Executable
BIN
Binary file not shown.
BIN
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 46 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 580 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 367 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 307 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 27 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 683 KiB |
Binary file not shown.
|
After Width: | Height: | Size: 233 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 22 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 76 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 175 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 121 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 151 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 346 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 408 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 647 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 827 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 126 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 921 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 369 KiB |
Executable
BIN
Binary file not shown.
|
After Width: | Height: | Size: 318 KiB |
BIN
Binary file not shown.
|
After Width: | Height: | Size: 43 KiB |
BIN
Binary file not shown.
BIN
Binary file not shown.
|
After Width: | Height: | Size: 91 KiB |
Executable
BIN
Binary file not shown.
+722
@@ -0,0 +1,722 @@
|
||||
;; ------------------------------------파 일 정 보------------------------------------
|
||||
;; 본 선 종류 정의 파일(KOSDIC.lin)은 건설CALS/EC 전자도면 작성표준의 선 목록에 정의된 선 유형을
|
||||
;; AutoCAD 사용자에게 제공하기 위해 제작되었습니다.
|
||||
;;
|
||||
;; 표준버전 : 건설CALS/EC 전자도면 작성표준 V1.1(2006.12)
|
||||
;; 제공기관 : 건설CALS/EC 전담기관 한국건설기술연구원
|
||||
;;
|
||||
;; 형상원칙 : 1/1 축척시 문자크기 2.0mm를 상대 참조한 크기를 적용함
|
||||
;; LIB 원칙 : AutoCAD의 ANSI기준(기존 사용패턴의 고려)을 충족키 위해 1/10로 정의함
|
||||
;; (예) 길이 및 간격 형상이 2mm이면 0.2unit로 정의
|
||||
;; 사용원칙 : 실무도면에 사용할 경우 형상정의 원칙에 부합되려면 선종류축척은 10배를 설정함
|
||||
;; (예) LTSCALE=10 (보통 8~10배), 도면축척이 1/5 이면 LTSCALE=5x10배=50
|
||||
;;
|
||||
;; ISO공식 규격 15종
|
||||
// 이하 AutoCAD ISO를 25.4배수로 나누어 재 정의
|
||||
*A-ISONS01,ISO 국제규격 01 Continuous ________________________________
|
||||
A,1,1
|
||||
*A-ISONS02,ISO 국제규격 02 dash __ __ __ __ __ __ __ __ __ __ __ __ __
|
||||
A,.47244,-.118111
|
||||
*A-ISONS03,ISO 국제규격 03 dash space __ __ __ __ __ __
|
||||
A,.47244,-.7086614
|
||||
*A-ISONS04,ISO 국제규격 04 long-dash dot ____ . ____ . ____ . ____ . _
|
||||
A,.94488,-.11811,0,-.11811
|
||||
*A-ISONS05,ISO 국제규격 05 long-dash double-dot ____ .. ____ .. ____ .
|
||||
A,.94488,-.11811,0,-.11811,0,-.11811
|
||||
*A-ISONS06,ISO 국제규격 06 long-dash triple-dot ____ ... ____ ... ____
|
||||
A,.94488,-.11811,0,-.11811,0,-.11811,0,-.11811
|
||||
*A-ISONS07,ISO 국제규격 07 dot . . . . . . . . . . . . . . . . . . . .
|
||||
A,0,-.11811
|
||||
*A-ISONS08,ISO 국제규격 08 long-dash short-dash ____ __ ____ __ ____ _
|
||||
A,.94488,-.11811,.94488,-.11811
|
||||
*A-ISONS09,ISO 국제규격 09 long-dash double-short-dash ____ __ __ ____
|
||||
A,.94488,-.11811,.94488,-.11811,.94488,-.11811
|
||||
*A-ISONS10,ISO 국제규격 10 dash dot __ . __ . __ . __ . __ . __ . __ .
|
||||
A,.47244,-.11811,0,-.11811
|
||||
*A-ISONS11,ISO 국제규격 11 double-dash dot __ __ . __ __ . __ __ . __ _
|
||||
A,.47244,-.11811,.47244,-.11811,0,-.11811
|
||||
*A-ISONS12,ISO 국제규격 12 dash double-dot __ . . __ . . __ . . __ . .
|
||||
A,.47244,-.11811,0,-.11811,0,-.11811
|
||||
*A-ISONS13,ISO 국제규격 13 double-dash double-dot __ __ . . __ __ . . _
|
||||
A,.47244,-.11811,.47244,-.11811,0,-.11811,0,-.11811
|
||||
*A-ISONS14,ISO 국제규격 14 dash triple-dot __ . . . __ . . . __ . . . _
|
||||
A,.47244,-.11811,0,-.11811,0,-.11811,0,-.11811
|
||||
*A-ISONS15,ISO 국제규격 15 double-dash triple-dot __ __ . . . __ __ . .
|
||||
A,.47244,-.11811,.47244,-.11811,0,-.11811,0,-.11811,0,-.11811
|
||||
|
||||
;; 상용CAD 라인
|
||||
*A-BORDR01,외곽선(일반) Border __ __ . __ __ . __ __ . __ __ . __ __ .
|
||||
A,.5,-.25,.5,-.25,0,-.25
|
||||
*A-BORDR01H,외곽선(반배수) Border (.5x) __.__.__.__.__.__.__.__.__.__.__.
|
||||
A,.25,-.125,.25,-.125,0,-.125
|
||||
*A-BORDR01X,외곽선(배수) Border (2x) ____ ____ . ____ ____ . ___
|
||||
A,1.0,-.5,1.0,-.5,0,-.5
|
||||
*A-CENTR01,중심선(일반) Center ____ _ ____ _ ____ _ ____ _ ____ _ ____
|
||||
A,1.25,-.25,.25,-.25
|
||||
*A-CENTR01H,중심선(반배수) Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___
|
||||
A,.75,-.125,.125,-.125
|
||||
*A-CENTR01X,중심선(배수) Center (2x) ________ __ ________ __ _____
|
||||
A,2.5,-.5,.5,-.5
|
||||
*A-DASDT01,파단점선(일반) Dash dot __ . __ . __ . __ . __ . __ . __ . __
|
||||
A,.5,-.25,0,-.25
|
||||
*A-DASDT01H,파단점선(반배수) Dash dot (.5x) _._._._._._._._._._._._._._._.
|
||||
A,.25,-.125,0,-.125
|
||||
*A-DASDT01X,파단점선(배수) Dash dot (2x) ____ . ____ . ____ . ___
|
||||
A,1.0,-.5,0,-.5
|
||||
*A-DASHD01,파선(일반) Dashed __ __ __ __ __ __ __ __ __ __ __ __ __ _
|
||||
A,.5,-.25
|
||||
*A-DASHD01H,파선(반배수) Dashed (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
|
||||
A,.25,-.125
|
||||
*A-DASHD01X,파선(배수) Dashed (2x) ____ ____ ____ ____ ____ ___
|
||||
A,1.0,-.5
|
||||
*A-DIVID01,분할선(일반) Divide ____ . . ____ . . ____ . . ____ . . ____
|
||||
A,.5,-.25,0,-.25,0,-.25
|
||||
*A-DIVID01H,분할선(반배수) Divide (.5x) __..__..__..__..__..__..__..__.._
|
||||
A,.25,-.125,0,-.125,0,-.125
|
||||
*A-DIVID01X,분할선(배수) Divide (2x) ________ . . ________ . . _
|
||||
A,1.0,-.5,0,-.5,0,-.5
|
||||
*A-DOTLN01,점선(일반) Dot . . . . . . . . . . . . . . . . . . . . . . . .
|
||||
A,0,-.25
|
||||
*A-DOTLN01H,점선(반배수) Dot (.5x) ........................................
|
||||
A,0,-.125
|
||||
*A-DOTLN01X,점선(배수) Dot (2x) . . . . . . . . . . . . . .
|
||||
A,0,-.5
|
||||
*A-HIDDN01,숨은선(일반) Hidden __ __ __ __ __ __ __ __ __ __ __ __ __ __
|
||||
A,.25,-.125
|
||||
*A-HIDDN01H,숨은선(반배수) Hidden (.5x) _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
|
||||
A,.125,-.0625
|
||||
*A-HIDDN01X,숨은선(배수) Hidden (2x) ____ ____ ____ ____ ____ ____ ____
|
||||
A,.5,-.25
|
||||
*A-PHATM01,가상선(일반) Phantom ______ __ __ ______ __ __ ______
|
||||
A,1.25,-.25,.25,-.25,.25,-.25
|
||||
*A-PHATM01H,가상선(반배수) Phantom (.5x) ___ _ _ ___ _ _ ___ _ _ ___ _ _
|
||||
A,.625,-.125,.125,-.125,.125,-.125
|
||||
*A-PHATM01X,가상선(배수) Phantom (2x) ____________ ____ ____ _
|
||||
A,2.5,-.5,.5,-.5,.5,-.5
|
||||
|
||||
;; 펜스시설
|
||||
*E-FENCE01,펜스(X 파선)
|
||||
A,.85,-.15,[KSC11,kosdic.shx,s=.1],-.15,.85
|
||||
*E-FENCE02,펜스(X 실선)
|
||||
A,1.0,[KSC11,kosdic.shx,s=.1],1.0
|
||||
*E-FENCE03,펜스(/\ 파선)
|
||||
A,.875,-.05,[KSC12,kosdic.shx,s=.1],-.2,.875
|
||||
*E-FENCE04,펜스(+ 파선)
|
||||
A,.85,-.15,[KSC15,kosdic.shx,s=.1],-.15,.85
|
||||
|
||||
;; 설비라인
|
||||
*E-UTIL01,설비(| 실선)
|
||||
A,1.0,[KSC01,kosdic.shx,s=.1],1.0
|
||||
*E-UTIL02,설비(|| 파선)
|
||||
A,.05,[KSC01,kosdic.shx,s=.1],-.1,[KSC01,kosdic.shx,s=.1],1.85
|
||||
*E-UTIL03,설비(|| 실선)
|
||||
A,.95,[KSC01,kosdic.shx,s=.1],.1,[KSC01,kosdic.shx,s=.1],.95
|
||||
*E-UTIL04,설비(||| 파선)
|
||||
A,.9,[KSC01,kosdic.shx,s=.1],-.1,[KSC01,kosdic.shx,s=.1],-.1,[KSC01,kosdic.shx,s=.1],.9
|
||||
*E-UTIL05,설비(||| 실선)
|
||||
A,.9,[KSC01,kosdic.shx,s=.1],.1,[KSC01,kosdic.shx,s=.1],.1,[KSC01,kosdic.shx,s=.1],.9
|
||||
*E-UTIL06,설비(/ 파선)
|
||||
A,.9,-.1,[KSC02,kosdic.shx,s=.1],-.1,.9
|
||||
*E-UTIL07,설비(/ 실선)
|
||||
A,1.0,[KSC02,kosdic.shx,s=.1],1.0
|
||||
*E-UTIL08,설비(// 파선)
|
||||
A,.85,-.15,[KSC05,kosdic.shx,s=.1],-.15,.85
|
||||
*E-UTIL09,설비(// 실선)
|
||||
A,1.0,[KSC05,kosdic.shx,s=.1],1.0
|
||||
*E-UTIL10,설비(/// 파선)
|
||||
A,.8,-.2,[KSC06,kosdic.shx,s=.1],-.2,.8
|
||||
*E-UTIL11,설비(/// 실선)
|
||||
A,1.0,[KSC06,kosdic.shx,s=.1],1.0
|
||||
|
||||
;; 시설라인
|
||||
*E-FACLN01,시설(- 평행선)
|
||||
A,.25,[KSC01,kosdic.shx,y=-.05,s=.1,r=270],.25
|
||||
*E-FACLN02,시설(= 평행선)
|
||||
A,.25,[KSC04,kosdic.shx,y=-.05,s=.1],.25
|
||||
*E-FACLN03,시설(O 파선)
|
||||
A,.85,[KSC31,kosdic.shx,x=.075,s=.075],-.15,1.0
|
||||
*E-FACLN04,시설(O 실선)
|
||||
A,1.0,[KSC31,kosdic.shx,s=.075],1.0
|
||||
*E-FACLN05,시설(점,포스트)
|
||||
A,1.0,[KSC32,kosdic.shx,s=.075],1.0
|
||||
|
||||
;; 지형라인
|
||||
*E-TOPOG01,지형(ㅜ 파선)
|
||||
A,.000002,[KSC16,kosdic.shx,s=.1],-.25
|
||||
*E-TOPOG02,지형(ㅜ 실선)
|
||||
A,.000002,[KSC16,kosdic.shx,s=.1],-.2
|
||||
*E-TOPOG03,지형(| 실선)
|
||||
A,0,-.1,[KSC15,kosdic.shx,s=.1],-.1
|
||||
*E-TOPOG04,지형(| 교대)
|
||||
A,0,[KSC00,kosdic.shx,y=.1,s=.1],.2,[KSC00,kosdic.shx,s=.1],.2
|
||||
*E-TOPOG05,지형(~. 연속)
|
||||
A,.000005,[KSC1C,kosdic.shx,s=.1],-.45,[KSC30,kosdic.shx,s=.1],-.05
|
||||
|
||||
;; 지그재그 라인
|
||||
*B-ZIGZG01,지그재그(선)
|
||||
A,.000002,[KSC13,kosdic.shx,s=.1],-.2
|
||||
*B-ZIGZG02,지그재그(호)
|
||||
A,.000002,[KSC1B,kosdic.shx,s=.1],-.2
|
||||
*C-ZIGZG01,지그재그(실선,선)
|
||||
A,.1,[KSC13,kosdic.shx,s=.1],.1
|
||||
*C-ZIGZG02,지그재그(실선,호)
|
||||
A,.1,[KSC1B,kosdic.shx,s=.1],.1
|
||||
|
||||
;; 석축 및 담장
|
||||
*D-SWALL01,석축(신규)
|
||||
A,0,[KSC61,kosdic.shx,y=-.1,s=.1],-.2
|
||||
*X-SWALL01,석축(기존)
|
||||
A,0,[KSC71,kosdic.shx,s=.1],-.4
|
||||
*D-BWALL01,블록담(기존)
|
||||
A,0,[KSC18,kosdic.shx,s=.1],-.25
|
||||
*D-BWALL02,블록담(신규)
|
||||
A,.000005,[KSC3A,kosdic.shx,s=.05],-.1,[KSC3A,kosdic.shx,s=.05],-.1,[KSC04,kosdic.shx,y=-.025,s=.05],-.1,[KSC04,kosdic.shx,y=-.025,s=.05],-.1,[KSC04,kosdic.shx,y=-.025,s=.05],-.05
|
||||
|
||||
;; 점/원형배열
|
||||
*E-DOTLN01,말뚝배열
|
||||
A,0,[KSC30,kosdic.shx,s=.3],-.15
|
||||
*E-DOTLN02,말뚝배열(선)
|
||||
A,.075,[KSC30,kosdic.shx,s=.3],.075
|
||||
*E-CIRCL01,강관원형파일배열
|
||||
A,0,[KSC31,kosdic.shx,s=.1],-.2
|
||||
*E-CIRCL02,채움원형파일배열
|
||||
A,0,[KSC32,kosdic.shx,s=.1],-.2
|
||||
*D-RROAD01,철도(기존)
|
||||
A,0,[KSC3A,kosdic.shx,s=.1],-.2,[KSC04,kosdic.shx,y=-.05,s=.1],-.2
|
||||
|
||||
;; 굴착선
|
||||
*E-DIGLN01,굴착선
|
||||
A,.9,-.2,[KSC19,kosdic.shx,s=.1,r=180],.9
|
||||
*E-DIGLN01H,굴착선(반배수)
|
||||
A,.45,-.1,[KSC19,kosdic.shx,s=.05,r=180],.45
|
||||
*E-DIGLN01X,굴착선(배수)
|
||||
A,1.8,-.4,[KSC19,kosdic.shx,s=.2,r=180],1.8
|
||||
|
||||
;; 경계
|
||||
*B-GREEN01,녹지/숲경계
|
||||
A,.000002,[KSC08,kosdic.shx,s=.1],-.2
|
||||
*B-GREEN02,잡목경계
|
||||
A,0,[KSC21,kosdic.shx,s=.1],-.45
|
||||
*E-BOUND01,행정경계
|
||||
A,.875,[KSC60,kosdic.shx,s=.1],-.25,.875
|
||||
|
||||
;; 기타
|
||||
*B-RANDM01,불규칙선
|
||||
A,0,[KSC1A,kosdic.shx,s=.1],-.2
|
||||
*E-DEMOL01,철거대상선
|
||||
A,.075,[KSC01,kosdic.shx,s=.1,r=30],.075
|
||||
*X-EARTH01,지반선
|
||||
A,0,[KSC20,kosdic.shx,s=.1,x=.25,r=180],.25
|
||||
|
||||
;; 절단선
|
||||
*E-CUTLN01,절단선(선)
|
||||
A,.95,[KSC14,kosdic.shx,s=.1],-.1,.95
|
||||
*E-CUTLN02,절단선(호)
|
||||
A,.95,[KSC22,kosdic.shx,s=.1],-.1,.95
|
||||
|
||||
;; 물흐름 라인
|
||||
*E-WFLOW01,물흐름(선, 파선)
|
||||
A,.6,[KSC36,kosdic.shx,s=.1],-.65
|
||||
*E-WFLOW02,물흐름(선, 실선)
|
||||
A,1.5,[KSC36,kosdic.shx,s=.1],0
|
||||
*E-WFLOW03,물흐름(화살, 파선)
|
||||
A,.6,[KSC35,kosdic.shx,s=.1],-.65
|
||||
*E-WFLOW04,물흐름(화살, 실선)
|
||||
A,1.5,[KSC35,kosdic.shx,s=.1],0
|
||||
|
||||
;; 상수도관로
|
||||
*G-WATER01,상수도관로(W 선위)
|
||||
A,2.933333,["W",Standard,y=.05,s=.2],.066667
|
||||
*G-WATER02,상수도관로(W 파선)
|
||||
A,2.75,-.05,["W",Standard,y=-.1,s=.2,r=360],-.2
|
||||
|
||||
;; 온수관로
|
||||
*G-HWATR01,온수관로(HWL 선위)
|
||||
A,2.783629,["HWL",Standard,y=.05,s=.2],.216371
|
||||
*G-HWATR02,온수관로(HWL 파선)
|
||||
A,2.35,-.05,["HWL",Standard,y=-.1,s=.2],-.6
|
||||
|
||||
;; 냉수관로
|
||||
*G-CWATR01,냉수관로(CWL 선위)
|
||||
A,2.783629,["CWL",Standard,y=.05,s=.2],.216371
|
||||
*G-CWATR02,냉수관로(CWL 파선)
|
||||
A,2.35,-.05,["CWL",Standard,y=-.1,s=.2],-.6
|
||||
|
||||
;; 오수관로
|
||||
*E-SEWER01,오수관로(방향)
|
||||
A,.95,-.1,[KSC09,kosdic.shx,s=.1,r=180],.95
|
||||
*E-SEWER01H,오수관로(방향,반배수)
|
||||
A,.475,-.05,[KSC09,kosdic.shx,s=.05,r=180],.475
|
||||
*E-SEWER01X,오수관로(방향,배수)
|
||||
A,1.9,-.2,[KSC09,kosdic.shx,s=.2,r=180],1.9
|
||||
*G-SEWER01,오수관로(S 선위)
|
||||
A,2.933333,["S",Standard,y=.05,s=.2],.066667
|
||||
*G-SEWER02,오수관로(S 파선)
|
||||
A,2.75,-.05,["S",Standard,y=-.1,s=.2,r=360],-.2
|
||||
|
||||
;; 통신선로
|
||||
*G-TELCM01,통신선로(T 선위)
|
||||
A,2.933333,["T",Standard,y=.05,s=.2],.066667
|
||||
*G-TELCM02,통신선로(T 파선)
|
||||
A,2.75,-.05,["T",Standard,y=-.1,s=.2,r=360],-.2
|
||||
|
||||
;; 전기선로
|
||||
*G-ELECT01,전기선로(E 선위)
|
||||
A,2.933333,["E",Standard,y=.05,s=.2],.066667
|
||||
*G-ELECT02,전기선로(E 파선)
|
||||
A,2.75,-.05,["E",Standard,y=-.1,s=.2,r=360],-.2
|
||||
|
||||
;; 개스관로
|
||||
*G-GASLN01,개스관로(G 선위)
|
||||
A,2.933333,["G",Standard,y=.05,s=.2],.066667
|
||||
*G-GASLN02,개스관로(G 파선)
|
||||
A,2.75,-.05,["G",Standard,y=-.1,s=.2,r=360],-.2
|
||||
*G-GASLN03,개스관로(GAS 선위)
|
||||
A,2.783629,["GAS",Standard,y=.05,s=.2],.216371
|
||||
*G-GASLN04,개스관로(GAS 파선)
|
||||
A,2.35,-.05,["GAS",Standard,y=-.1,s=.2],-.6
|
||||
|
||||
;; 일반파이프
|
||||
;; *CAL421,PIPE
|
||||
;; A,2.733333,["PIPE",Standard,y=.05,s=.2],.266667
|
||||
*G-PIPEL01,일반 파이프(PIPE 파선)
|
||||
A,3.25,-.05,["PIPE",Standard,y=-.1,s=.2],-.7
|
||||
|
||||
;; 토사측구
|
||||
*H-DICHT00,토사측구
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["T",Standard,y=-.1,s=.2,r=360],-.216667
|
||||
*H-DICHT00R,토사측구(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["T",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; L형측구
|
||||
*H-DICHL00,L형측구 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.333333,["L",Standard,y=-.1,s=.2],-.216667
|
||||
*H-DICHL00R,L형측구 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["L",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL01,L형측구 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.366667,["L1",Standard,y=-.1,s=.2,r=360],-.383333
|
||||
*H-DICHL01R,L형측구 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.633333,["L1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHL02,L형측구 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["L2",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHL02R,L형측구 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["L2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL03,L형측구 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["L3",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHL03R,L형측구 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["L3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL04,L형측구 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["L4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHL04R,L형측구 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["L4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL05,L형측구 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["L5",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHL05R,L형측구 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["L5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL06,L형측구 형식06
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["L6",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHL06R,L형측구 형식06(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["L6",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL07,L형측구 형식07
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["L7",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHL07R,L형측구 형식07(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["L7",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL08,L형측구 형식08
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["L8",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHL08R,L형측구 형식08(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["L8",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL09,L형측구 형식09
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["L9",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHL09R,L형측구 형식09(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["L9",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHL10,L형측구 형식10
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["L10",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-DICHL10R,L형측구 형식10(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["L10",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-DICHL11,L형측구 형식11
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.4,["L11",Standard,y=-.1,s=.2],-.55
|
||||
*H-DICHL11R,L형측구 형식11(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.8,["L11",Standard,y=.1,s=.2,r=180],-.15
|
||||
*H-DICHL12,L형측구 형식12
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.366667,["L12",Standard,y=-.1,s=.2],-.583333
|
||||
*H-DICHL12R,L형측구 형식12(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.833333,["L12",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHL13,L형측구 형식13
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.366667,["L13",Standard,y=-.1,s=.2,r=360],-.583333
|
||||
*H-DICHL13R,L형측구 형식13(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.833333,["L13",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHL14,L형측구 형식14
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.366667,["L14",Standard,y=-.1,s=.2],-.583333
|
||||
*H-DICHL14R,L형측구 형식14(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.833333,["L14",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHL15,L형측구 형식15
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.366667,["L15",Standard,y=-.1,s=.2],-.583333
|
||||
*H-DICHL15R,L형측구 형식15(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.833333,["L15",Standard,y=.1,s=.2,r=180],-.116667
|
||||
|
||||
;; U형측구
|
||||
*H-DICHU00,U형측구 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.333333,["U",Standard,y=-.1,s=.2],-.216667
|
||||
*H-DICHU00R,U형측구 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["U",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU01,U형측구 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.366667,["U1",Standard,y=-.1,s=.2],-.383333
|
||||
*H-DICHU01R,U형측구 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.633333,["U1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHU02,U형측구 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["U2",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHU02R,U형측구 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU03,U형측구 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["U3",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHU03R,U형측구 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU04,U형측구 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["U4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHU04R,U형측구 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU05,U형측구 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["U5",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHU05R,U형측구 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU06,U형측구 형식06
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["U6",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHU06R,U형측구 형식06(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U6",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU07,U형측구 형식07
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["U7",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHU07R,U형측구 형식07(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U7",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU08,U형측구 형식08
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["U8",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHU08R,U형측구 형식08(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U8",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU09,U형측구 형식09
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["U9",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHU09R,U형측구 형식09(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["U9",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHU10,U형측구 형식10
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.383333,["U10",Standard,y=-.1,s=.2],-.566667
|
||||
*H-DICHU10R,U형측구 형식10(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["U10",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-DICHU11,U형측구 형식11
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.4,["U11",Standard,y=-.1,s=.2],-.55
|
||||
*H-DICHU11R,U형측구 형식11(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.8,["U11",Standard,y=.1,s=.2,r=180],-.15
|
||||
*H-DICHU12,U형측구 형식12
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.366667,["U12",Standard,y=-.1,s=.2],-.583333
|
||||
*H-DICHU12R,U형측구 형식12(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.833333,["U12",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHU13,U형측구 형식13
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.366667,["U13",Standard,y=-.1,s=.2,r=360],-.583333
|
||||
*H-DICHU13R,U형측구 형식13(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.833333,["U13",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHU14,U형측구 형식14
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.366667,["U14",Standard,y=-.1,s=.2],-.583333
|
||||
*H-DICHU14R,U형측구 형식14(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.833333,["U14",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHU15,U형측구 형식15
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.366667,["U15",Standard,y=-.1,s=.2,r=360],-.583333
|
||||
*H-DICHU15R,U형측구 형식15(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.833333,["U15",Standard,y=.1,s=.2,r=180],-.116667
|
||||
|
||||
;; V형측구
|
||||
*H-DICHV00,V형측구 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V",Standard,y=-.1,s=.2,r=360],-.25
|
||||
*H-DICHV00R,V형측구 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1,r=360],-.5,["V",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV01,V형측구 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["V1",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHV01R,V형측구 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["V1",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHV02,V형측구 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.3,["V2",Standard,y=-.1,s=.2],-.45
|
||||
*H-DICHV02R,V형측구 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.7,["V2",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV03,V형측구 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V3",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV03R,V형측구 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.7,["V3",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV04,V형측구 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V4",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV04R,V형측구 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.7,["V4",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV05,V형측구 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V5",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV05R,V형측구 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.7,["V5",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV06,V형측구 형식06
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V6",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV06R,V형측구 형식06(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.25,0,-.45,["V6",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV07,V형측구 형식07
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V7",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV07R,V형측구 형식07(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.7,["V7",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV08,V형측구 형식08
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V8",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV08R,V형측구 형식08(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.7,["V8",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV09,V형측구 형식09
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.3,["V9",Standard,y=-.1,s=.2,r=360],-.45
|
||||
*H-DICHV09R,V형측구 형식09(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.7,["V9",Standard,y=.1,s=.2,r=180],-.05
|
||||
*H-DICHV10,V형측구 형식10
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.35,["V10",Standard,y=-.1,s=.2],-.6
|
||||
*H-DICHV10R,V형측구 형식10(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.85,["V10",Standard,y=.1,s=.2,r=180],-.1
|
||||
*H-DICHV11,V형측구 형식11
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.366667,["V11",Standard,y=-.1,s=.2],-.583333
|
||||
*H-DICHV11R,V형측구 형식11(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.833333,["V11",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHV12,V형측구 형식12
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["V12",Standard,y=-.1,s=.2,r=360],-.616667
|
||||
*H-DICHV12R,V형측구 형식12(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.866667,["V12",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHV13,V형측구 형식13
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.333333,["V13",Standard,y=-.1,s=.2],-.616667
|
||||
*H-DICHV13R,V형측구 형식13(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.866667,["V13",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHV14,V형측구 형식14
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.333333,["V14",Standard,y=-.1,s=.2],-.616667
|
||||
*H-DICHV14R,V형측구 형식14(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.866667,["V14",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHV15,V형측구 형식15
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.333333,["V15",Standard,y=-.1,s=.2],-.616667
|
||||
*H-DICHV15R,V형측구 형식15(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.866667,["V15",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; 다이크
|
||||
*H-DICHD00,다이크 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["D",Standard,y=-.1,s=.2,r=360],-.216667
|
||||
*H-DICHD00R,다이크 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["D",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHD01,다이크 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.366667,["D1",Standard,y=-.1,s=.2,r=360],-.383333
|
||||
*H-DICHD01R,다이크 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.633333,["D1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHD02,다이크 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["D2",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHD02R,다이크 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["D2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHD03,다이크 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["D3",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHD03R,다이크 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["D3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHD04,다이크 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["D4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHD04R,다이크 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["D4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHD05,다이크 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["D5",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHD05R,다이크 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["D5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; 산마루 측구
|
||||
*H-DICHB00,산마루측구 형식00
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.633333,["B",Standard,y=-.1,s=.2],-.216667
|
||||
*H-DICHB00R,산마루측구 형식00(반향)
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.766667,["B",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHB01,산마루측구 형식01
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.666667,["B1",Standard,y=-.1,s=.2],-.383333
|
||||
*H-DICHB01R,산마루측구 형식01(반향)
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.933333,["B1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHB02,산마루측구 형식02
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.633333,["B2",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHB02R,산마루측구 형식02(반향)
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.966667,["B2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHB03,산마루측구 형식03
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.633333,["B3",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHB03R,산마루측구 형식03(반향)
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.966667,["B3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHB04,산마루측구 형식04
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.633333,["B4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHB04R,산마루측구 형식04(반향)
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.966667,["B4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHB05,산마루측구 형식05
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.633333,["B5",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHB05R,산마루측구 형식05(반향)
|
||||
A,.00001,[KSC52,kosdic.shx,s=.1],-.966667,["B5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; 맹암거
|
||||
*H-DICHM00,맹암거 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.333333,["M",Standard,y=-.1,s=.2],-.216667
|
||||
*H-DICHM00R,맹암거 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["M",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHM01,맹암거 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.366667,["M1",Standard,y=-.1,s=.2,r=360],-.383333
|
||||
*H-DICHM01R,맹암거 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.633333,["M1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHM02,맹암거 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["M2",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHM02R,맹암거 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["M2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHM03,맹암거 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["M3",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHM03R,맹암거 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["M3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHM04,맹암거 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["M4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHM04R,맹암거 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["M4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHM05,맹암거 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["M5",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHM05R,맹암거 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["M5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; 종배수관
|
||||
*H-DICHO00,종배수관 형식00
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.333333,["L/O",Standard,y=-.1,s=.2],-.616667
|
||||
*H-DICHO00R,종배수관 형식00(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.866667,["L/O",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHO01,종배수관 형식01
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-.366667,["L1/O",Standard,y=-.1,s=.2],-.783333
|
||||
*H-DICHO01R,종배수관 형식01(반향)
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-1.033333,["L1/O",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHO02,종배수관 형식02
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-.333333,["L2/O",Standard,y=-.1,s=.2],-.816667
|
||||
*H-DICHO02R,종배수관 형식02(반향)
|
||||
A,.5,[KSC35,kosdic.shx,s=.1,r=360],-1.066667,["L2/O",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHO03,종배수관 형식03
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-.333333,["L3/O",Standard,y=-.1,s=.2],-.816667
|
||||
*H-DICHO03R,종배수관 형식03(반향)
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-1.066667,["L3/O",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHO04,종배수관 형식04
|
||||
A,.5,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["L4/O",Standard,y=-.1,s=.2,r=360],-.816667
|
||||
*H-DICHO04R,종배수관 형식04(반향)
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-1.066667,["L4/O",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHO05,종배수관 형식05
|
||||
A,.5,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["L5/O",Standard,y=-.1,s=.2,r=360],-.816667
|
||||
*H-DICHO05R,종배수관 형식05(반향)
|
||||
A,.5,[KSC35,kosdic.shx,s=.1],-1.066667,["L5/O",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; 소단측구
|
||||
*H-DICHG00,소단측구 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.333333,["G",Standard,y=-.1,s=.2],-.216667
|
||||
*H-DICHG00R,소단측구 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["G",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHG01,소단측구 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.366667,["G1",Standard,y=-.1,s=.2],-.383333
|
||||
*H-DICHG01R,소단측구 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.633333,["G1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHG02,소단측구 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["G2",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHG02R,소단측구 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["G2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHG03,소단측구 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["G3",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHG03R,소단측구 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["G3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHG04,소단측구 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["G4",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHG04R,소단측구 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["G4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHG05,소단측구 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["G5",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHG05R,소단측구 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["G5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; J형측구
|
||||
*H-DICHJ00,J형측구 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.333333,["J",Standard,y=-.1,s=.2],-.216667
|
||||
*H-DICHJ00R,J형측구 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["J",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHJ01,J형측구 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.366667,["J1",Standard,y=-.1,s=.2],-.383333
|
||||
*H-DICHJ01R,J형측구 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.633333,["J1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-DICHJ02,J형측구 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["J2",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHJ02R,J형측구 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["J2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHJ03,J형측구 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["J3",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHJ03R,J형측구 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["J3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHJ04,J형측구 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["J4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-DICHJ04R,J형측구 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["J4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-DICHJ05,J형측구 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["J5",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-DICHJ05R,J형측구 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["J5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
|
||||
;; 용수로
|
||||
*H-CANAL00,용수로 형식00
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["Y",Standard,y=-.1,s=.2,r=360],-.216667
|
||||
*H-CANAL00R,용수로 형식00(반향)
|
||||
A,1.1,[KSC35,kosdic.shx,s=.1],-.466667,["Y",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL01,용수로 형식01
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.366667,["Y1",Standard,y=-.1,s=.2],-.383333
|
||||
*H-CANAL01R,용수로 형식01(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.633333,["Y1",Standard,y=.1,s=.2,r=180],-.116667
|
||||
*H-CANAL02,용수로 형식02
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["Y2",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-CANAL02R,용수로 형식02(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["Y2",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL03,용수로 형식03
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["Y3",Standard,y=-.1,s=.2],-.416667
|
||||
*H-CANAL03R,용수로 형식03(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["Y3",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL04,용수로 형식04
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["Y4",Standard,y=-.1,s=.2],-.416667
|
||||
*H-CANAL04R,용수로 형식04(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["Y4",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL05,용수로 형식05
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.333333,["Y5",Standard,y=-.1,s=.2,r=360],-.416667
|
||||
*H-CANAL05R,용수로 형식05(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1,r=360],-.666667,["Y5",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL06,용수로 형식06
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["Y6",Standard,y=-.1,s=.2],-.416667
|
||||
*H-CANAL06R,용수로 형식06(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["Y6",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL07,용수로 형식07
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["Y7",Standard,y=-.1,s=.2],-.416667
|
||||
*H-CANAL07R,용수로 형식07(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["Y7",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL08,용수로 형식08
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["Y8",Standard,y=-.1,s=.2],-.416667
|
||||
*H-CANAL08R,용수로 형식08(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["Y8",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL09,용수로 형식09
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.333333,["Y9",Standard,y=-.1,s=.2],-.416667
|
||||
*H-CANAL09R,용수로 형식09(반향)
|
||||
A,.9,[KSC35,kosdic.shx,s=.1],-.666667,["Y9",Standard,y=.1,s=.2,r=180],-.083333
|
||||
*H-CANAL10,용수로 형식10
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y10",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL10R,용수로 형식10(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y10",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL11,용수로 형식11
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y11",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL11R,용수로 형식11(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y11",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL12,용수로 형식12
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y12",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL12R,용수로 형식12(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y12",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL13,용수로 형식13
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y13",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL13R,용수로 형식13(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y13",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL14,용수로 형식14
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y14",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL14R,용수로 형식14(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y14",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL15,용수로 형식15
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y15",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL15R,용수로 형식15(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y15",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL16,용수로 형식16
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y16",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL16R,용수로 형식16(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y16",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL17,용수로 형식17
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y17",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL17R,용수로 형식17(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y17",Standard,y=.1,s=.2,r=180],-.133333
|
||||
*H-CANAL18,용수로 형식18
|
||||
A,.7,[KSC35,kosdic.shx,s=.1,r=360],-.383333,["Y18",Standard,y=-.1,s=.2,r=360],-.566667
|
||||
*H-CANAL18R,용수로 형식18(반향)
|
||||
A,.7,[KSC35,kosdic.shx,s=.1],-.816667,["Y18",Standard,y=.1,s=.2,r=180],-.133333
|
||||
|
||||
Binary file not shown.
Binary file not shown.
+15022
File diff suppressed because it is too large
Load Diff
BIN
Binary file not shown.
Executable
+4917
File diff suppressed because it is too large
Load Diff
+87
@@ -0,0 +1,87 @@
|
||||
(defun $SetLayer(layers / alist)
|
||||
(foreach alist layers (if (null (tblsearch "LAYER" (car alist))) (COMMAND ".LAYER" "N" (car alist) "S" (car alist) "C" (cadr alist) (car alist) "")) (COMMAND ".LAYER" "S" (car alist) "C" (cadr alist) (car alist) "") ))
|
||||
|
||||
(defun $BpRotate( BasePt AnyPt RtAngle / ConvX ConvY RotatePt ) (if (/= RtAngle 0.0) (setq RtAngle (* (/ RtAngle 180.0) pi)) ) (setq ConvX (+ (car BasePt) (- (* (- (car AnyPt) (car BasePt)) (cos RtAngle)) (* (- (cadr AnyPt) (cadr BasePt)) (sin RtAngle)))) ConvY (+ (cadr BasePt) (+ (* (- (car AnyPt) (car BasePt)) (sin RtAngle)) (* (- (cadr AnyPt) (cadr BasePt)) (cos RtAngle)))) ) (setq RotatePt (list ConvX ConvY)) RotatePt)
|
||||
|
||||
(defun $ChkReal(InCha Range / ) (cond ((= Range ">") (if (and (distof InCha 2) (> (distof InCha 2) 0.0)) InCha nil )) ((= Range ">=") (if (and (distof InCha 2) (>= (distof InCha 2) 0.0)) InCha nil )) ((= Range "<=") (if (and (distof InCha 2) (<= (distof InCha 2) 0.0)) InCha nil )) ((= Range "<") (if (and (distof InCha 2) (< (distof InCha 2) 0.0)) InCha nil )) ((= Range "All") (if (distof InCha 2) InCha nil )) (T nil) ))
|
||||
|
||||
(defun $ChkInt(InCha Range / ) (cond ((= Range ">") (if (and (distof InCha 2) (null (wcmatch InCha "*.*")) (> (distof InCha 2) 0.0)) InCha nil)) ((= Range ">=") (if (and (distof InCha 2) (null (wcmatch InCha "*.*")) (>= (distof InCha 2) 0.0)) InCha nil)) ((= Range "<=") (if (and (distof InCha 2) (null (wcmatch InCha "*.*")) (<= (distof InCha 2) 0.0)) InCha nil)) ((= Range "<") (if (and (distof InCha 2) (null (wcmatch InCha "*.*")) (< (distof InCha 2) 0.0)) InCha nil)) ((= Range "All") (if (and (distof InCha 2) (null (wcmatch InCha "*.*"))) InCha nil)) (T nil) ))
|
||||
|
||||
(defun $ChkLayerName( InCha / ) (if (or (= (strlen InCha) 0) (wcmatch InCha (strcat "*[] `#`@`?`*`~`[`,`'!%^&()+={}|`\\:" (chr 32) (chr 59) "\"<>/]*")) ) nil InCha))
|
||||
|
||||
(setq #LockChk T)
|
||||
|
||||
(defun $AddStLists( / StLists) (setq StLists (list "Straight Pipe " "Flange " "Elbow 90 " "Elbow 45 " "Elbow 22+1/2 " "Elbow 11+1/4 " "Elbow 5+5/8 " "Tee " "Reducer " "Bell Mouth " "Flanged Tee " "Gate Valve (A) " "Gate Valve (B) " "Y branch " ) ) (start_list "MkStList" 3) (mapcar 'add_list StLists) (end_list))
|
||||
|
||||
(defun $AddDuLists( / DuLists) (setq DuLists (list "Straight Pipe " "Flanged Spigot " "Collar " "Socket " "Flange " "Flanged Socket " "Flanged Bell Mouth " "Bend Socket 90 (A)" "Bend Socket 45 (A)" "Bend Socket 22+1/2 (A)" "Bend Socket 11+1/4 (A)" "Bend Flanged 90 (A)" "Bend Flanged 45 (A)" "Tee Socket (A)" "Tee Flanged (A)" "Tee Socket Flanged (A)" "X Socket (A)" "X Socket Flanged (A)" "Level Invert Tee (A)" "U Branch (A)" "Y Branch (A)" "Taper Socket (A)" "Taper Flanged (A)" "By-Pass (A)" "Bend Socket 90 (B)" "Bend Socket 45 (B)" "Bend Socket 22+1/2 (B)" "Bend Socket 11+1/4 (B)" "Bend Flanged 90 (B)" "Bend Flanged 45 (B)" "Tee Socket (B)" "Tee Flanged (B)" "Tee Socket Flanged (B)" "X Socket (B)" "X Socket Flanged (B)" "Level Invert Tee (B)" "U Branch (B)" "Y Branch (B)" "Taper Socket (B)" "Taper Flanged (B)" "By-Pass (B)" "Y Branch (C)" "Taper Socket (C)" "Taper Flanged (C)" "By-Pass (C)" "By-Pass Standard (D)" "By-Pass Short (D)" ) ) (start_list "MkDuList" 3) (mapcar 'add_list DuLists) (end_list))
|
||||
|
||||
(defun $AddSymLists( / SymLists) (setq SymLists (list "Gate Valve " "Butterfly Valve " "Check Valve " ) ) (start_list "MkSymList" 3) (mapcar 'add_list SymLists) (end_list))
|
||||
|
||||
(defun $InitSetValue( / Dcl_id Next )
|
||||
(setq Next 5)
|
||||
(if (> (setq Dcl_id (load_dialog "drpipe.dcl")) 0)
|
||||
(while (< 1 Next)
|
||||
(progn (if (new_dialog "MainDlg" Dcl_id)
|
||||
(progn
|
||||
($AddStLists)
|
||||
($AddDuLists)
|
||||
($AddSymLists)
|
||||
($ShowLogo)
|
||||
($SetDefaultValue)
|
||||
(action_tile "MkUnitmm" "(setq #Unit \"mm\" )")
|
||||
(action_tile "MkUnitcm" "(setq #Unit \"cm\" )")
|
||||
(action_tile "MkUnitm" "(setq #Unit \"m\" )")
|
||||
(action_tile "MkNameDia" "(setq #DrMethod \"Name\" )")
|
||||
(action_tile "MkInDia" "(setq #DrMethod \"InDia\" )")
|
||||
(action_tile "MkOutDia" "(setq #DrMethod \"OutDia\")")
|
||||
(action_tile "MkScale" (strcat "(setq #Scale ($ChkValueAction $value " "\"Real\"" "\">\"" "\"*error : Scale (Real > 0.0)\"" "))"))
|
||||
(action_tile "MkRotate" (strcat "(setq #Rotate ($ChkValueAction $value " "\"Real\"" "\"All\"" "\"*error : Rotate (Only real)\"" "))"))
|
||||
(action_tile "MkPipeLayer" (strcat "(setq #PipeLayer ($ChkValueAction $value " "\"Layer\"" "\"nil\"" "\"*error : Pipeline Layer name\"" "))"))
|
||||
(action_tile "MkCenLayer" (strcat "(setq #CenLayer ($ChkValueAction $value " "\"Layer\"" "\"nil\"" "\"*error : Centerline Layer name\"" "))"))
|
||||
(action_tile "MkPipeCoNo" (strcat "(setq #PipeCoNo ($ChkValueAction $value " "\"Color\"" "\"MkPipeCoImage\"" "\"*error : Pipeline Color Number (255 >= Color >= 0)\"" "))"))
|
||||
(action_tile "MkCenCoNo" (strcat "(setq #CenCoNo ($ChkValueAction $value " "\"Color\"" "\"MkCenCoImage\"" "\"*error : Centerline Color Number (255 >= Color >= 0)\"" "))")) (action_tile "MkStChk" (strcat "($ShowPipeTiles \"Steel\" \"InitNil\"" "(atoi (get_tile \"MkStList\")))"))
|
||||
(action_tile "MkDuChk" (strcat "($ShowPipeTiles \"Ductile\" \"InitNil\"" "(atoi (get_tile \"MkDuList\")))"))
|
||||
(action_tile "MkSymChk" (strcat "($ShowPipeTiles \"Symbol\" \"InitNil\"" "(atoi (get_tile \"MkSymList\")))"))
|
||||
(action_tile "MkStList" (strcat "($ShowPipeTiles \"Steel\" \"InitNil\"" "(atoi (get_tile \"MkStList\")))"))
|
||||
(action_tile "MkDuList" (strcat "($ShowPipeTiles \"Ductile\" \"InitNil\"" "(atoi (get_tile \"MkDuList\")))"))
|
||||
(action_tile "MkSymList" (strcat "($ShowPipeTiles \"Symbol\" \"InitNil\"" "(atoi (get_tile \"MkSymList\")))"))
|
||||
(action_tile "MkMainDia" "($ChkDiaValues $value \"Main\")")
|
||||
(action_tile "MkSubDia" "($ChkDiaValues $value \"Sub\" )")
|
||||
(action_tile "MkLength" (strcat "(setq #PipeLen ($ChkValueAction $value " "\"Real\"" "\">\"" "\"*error : Length value (Real > 0.0)\"" "))"))
|
||||
(action_tile "accept" "($CheckAccept)")
|
||||
(action_tile "cancel" "(done_dialog 0) (setq #OkJob nil)" )
|
||||
(setq Next (start_dialog))
|
||||
)
|
||||
(progn (prompt "Unable to display dialog box") (unload_dialog Dcl_id) ) ) (unload_dialog Dcl_id) )
|
||||
)
|
||||
(progn (prompt "Unable to open dialog box") )
|
||||
)
|
||||
)
|
||||
|
||||
(defun $SetDefaultValue() (if #Unit (cond ((= #Unit "mm") (set_tile "MkUnitmm" "1")) ((= #Unit "cm") (set_tile "MkUnitcm" "1")) (T (set_tile "MkUnitm" "1")) ) (progn (setq #Unit "mm") (set_tile "MkUnitmm" "1") ) ) (if (and #Scale (numberp #Scale)) (set_tile "MkScale" (rtos #Scale 2 3)) (progn (setq #Scale 1.0) (set_tile "MkScale" "1.0") ) ) (if (and #Rotate (numberp #Rotate)) (set_tile "MkRotate" (rtos #Rotate 2 2)) (progn (setq #Rotate 0.0) (set_tile "MkRotate" "0.0") ) ) (if (and #PipeCoNo (= (type #PipeCoNo) 'INT)) (progn (set_tile "MkPipeCoNo" (itoa #PipeCoNo)) ($ShowCoImage "MkPipeCoImage" #PipeCoNo) ) (progn (setq #PipeCoNo 6) (set_tile "MkPipeCoNo" "6") ($ShowCoImage "MkPipeCoImage" #PipeCoNo) ) ) (if (and #CenCoNo (= (type #CenCoNo) 'INT)) (progn (set_tile "MkCenCoNo" (itoa #CenCoNo)) ($ShowCoImage "MkCenCoImage" #CenCoNo) ) (progn (setq #CenCoNo 3) (set_tile "MkCenCoNo" "3") ($ShowCoImage "MkCenCoImage" #CenCoNo) ) ) (if (and #PipeLayer (= (type #PipeLayer) 'STR)) (set_tile "MkPipeLayer" #PipeLayer) (progn (setq #PipeLayer "PipeLine") (set_tile "MkPipeLayer" #PipeLayer) ) ) (if (and #CenLayer (= (type #CenLayer) 'STR)) (set_tile "MkCenLayer" #CenLayer) (progn (setq #CenLayer "CenterLine") (set_tile "MkCenLayer" #CenLayer) ) ) (if #PipeType (cond ((and #ListNo (= #PipeType "Steel")) ($ShowPipeTiles #PipeType "InitDsp" #ListNo)) ((and #ListNo (= #PipeType "Ductile")) ($ShowPipeTiles #PipeType "InitDsp" #ListNo)) ((and #ListNo (= #PipeType "Symbol")) ($ShowPipeTiles #PipeType "InitDsp" #ListNo)) ( T (setq #PipeType "Steel" #ListNo 0) ($ShowPipeTiles #PipeType "InitNil" #ListNo)) ) (progn (setq #PipeType "Steel" #ListNo 0) ($ShowPipeTiles #PipeType "InitNil" #ListNo) ) ) (if #DrMethod (cond ((= #DrMethod "InDia") (set_tile "MkInDia" "1")) ((= #DrMethod "OutDia") (set_tile "MkOutDia" "1")) (T (set_tile "MkNameDia" "1")) ) (progn (setq #DrMethod "Name") (set_tile "MkNameDia" "1") ) ))
|
||||
|
||||
(defun $ChkValueAction(pValue pType pRange pMsg / ColorNo ) (cond ((= pType "Real") (if ($ChkReal pValue pRange) (progn (set_tile "error" "") (atof pValue)) (progn (set_tile "error" pMsg) nil) ) ) ((= pType "Int") (if ($ChkInt pValue pRange) (progn (set_tile "error" "") (atoi pValue)) (progn (set_tile "error" pMsg) nil) ) ) ((= pType "Layer") (if ($ChkLayerName $value) (progn (set_tile "error" "") pValue) (progn (set_tile "error" pMsg) nil) ) ) ((= pType "Color") (setq ColorNo ($ChkInt pValue ">=")) (if (and ColorNo (< (atoi ColorNo) 256)) (progn (set_tile "error" "") ($ShowCoImage pRange (atoi ColorNo)) (atoi ColorNo) ) (progn (set_tile "error" pMsg) nil) ) ) (T nil) ))
|
||||
|
||||
(defun $ChkDiaValues (InDia BoxName / PipeData ) (cond ((and (= BoxName "Main") InDia (= (type InDia) 'STR)) (if ($ChkInt InDia ">") (if ($ChkDataList (atoi InDia) nil nil) (progn (setq #MainDia (atoi InDia)) (set_tile "error" "")) (set_tile "error" "* Error : Not found Main data value") ) ) ) ((and (= BoxName "Sub") InDia (= (type InDia) 'STR)) (if ($ChkInt InDia ">") (if ($ChkDataList nil (atoi InDia) nil) (progn (setq #SubDia (atoi InDia)) (set_tile "error" "")) (set_tile "error" "* Error : Not found Sub data value") ) ) ) ))
|
||||
|
||||
(defun $ChkPipeTiles( PipeType ListNo / TileData index StKeyList DuKeyList SymKeyList ) (setq StKeyList (list (list 0 5 "stpipe(st00)" "st00prg.src") (list 1 1 "stpipe(st01)" "st01prg.src") (list 2 1 "stpipe(st02)" "st02prg.src") (list 3 1 "stpipe(st03)" "st03prg.src") (list 4 1 "stpipe(st04)" "st04prg.src") (list 5 1 "stpipe(st05)" "st05prg.src") (list 6 1 "stpipe(st06)" "st06prg.src") (list 7 4 "stpipe(st07)" "st07prg.src") (list 8 4 "stpipe(st08)" "st08prg.src") (list 9 1 "stpipe(st09)" "st09prg.src") (list 10 4 "stpipe(st10)" "st10prg.src") (list 11 4 "stpipe(st11)" "st11prg.src") (list 12 4 "stpipe(st12)" "st12prg.src") (list 13 4 "stpipe(st13)" "st13prg.src") ) ) (setq DuKeyList (list (list 0 5 "dupipe(du00)" "du00prg.src") (list 1 1 "dupipe(du01)" "du01prg.src") (list 2 1 "dupipe(du02)" "du02prg.src") (list 3 1 "dupipe(du03)" "du03prg.src") (list 4 1 "dupipe(du04)" "du04prg.src") (list 5 1 "dupipe(du05)" "du05prg.src") (list 6 1 "dupipe(du06)" "du06prg.src") (list 7 1 "dupipe(du07)" "du07prg.src") (list 8 1 "dupipe(du08)" "du08prg.src") (list 9 1 "dupipe(du09)" "du09prg.src") (list 10 1 "dupipe(du10)" "du10prg.src") (list 11 1 "dupipe(du11)" "du11prg.src") (list 12 1 "dupipe(du12)" "du12prg.src") (list 13 4 "dupipe(du13)" "du13prg.src") (list 14 4 "dupipe(du14)" "du14prg.src") (list 15 4 "dupipe(du15)" "du15prg.src") (list 16 4 "dupipe(du16)" "du16prg.src") (list 17 4 "dupipe(du17)" "du17prg.src") (list 18 4 "dupipe(du18)" "du18prg.src") (list 19 1 "dupipe(du19)" "du19prg.src") (list 20 4 "dupipe(du20)" "du20prg.src") (list 21 4 "dupipe(du21)" "du21prg.src") (list 22 4 "dupipe(du22)" "du22prg.src") (list 23 4 "dupipe(du23)" "du23prg.src") (list 24 1 "dupipe(du24)" "du24prg.src") (list 25 1 "dupipe(du25)" "du25prg.src") (list 26 1 "dupipe(du26)" "du26prg.src") (list 27 1 "dupipe(du27)" "du27prg.src") (list 28 1 "dupipe(du28)" "du28prg.src") (list 29 1 "dupipe(du29)" "du29prg.src") (list 30 4 "dupipe(du30)" "du30prg.src") (list 31 4 "dupipe(du31)" "du31prg.src") (list 32 4 "dupipe(du32)" "du32prg.src") (list 33 4 "dupipe(du33)" "du33prg.src") (list 34 4 "dupipe(du34)" "du34prg.src") (list 35 4 "dupipe(du35)" "du35prg.src") (list 36 1 "dupipe(du36)" "du36prg.src") (list 37 4 "dupipe(du37)" "du37prg.src") (list 38 4 "dupipe(du38)" "du38prg.src") (list 39 4 "dupipe(du39)" "du39prg.src") (list 40 4 "dupipe(du40)" "du40prg.src") (list 41 4 "dupipe(du41)" "du41prg.src") (list 42 4 "dupipe(du42)" "du42prg.src") (list 43 4 "dupipe(du43)" "du43prg.src") (list 44 4 "dupipe(du44)" "du44prg.src") (list 45 4 "dupipe(du45)" "du45prg.src") (list 46 4 "dupipe(du46)" "du46prg.src") ) ) (setq SymKeyList (list (list 0 5 "sympipe(sym00)" "sym00prg.src") (list 1 5 "sympipe(sym01)" "sym01prg.src") (list 2 5 "sympipe(sym02)" "sym02prg.src") ) ) (setq index 0) (cond ((= PipeType "Steel") (repeat (length StKeyList) (if (= (car (nth index StKeyList)) ListNo) (setq TileData (nth index StKeyList)) ) (setq index (1+ index)) ) ) ((= PipeType "Ductile") (repeat (length DuKeyList) (if (= (car (nth index DuKeyList)) ListNo) (setq TileData (nth index DuKeyList)) ) (setq index (1+ index)) ) ) ((= PipeType "Symbol") (repeat (length SymKeyList) (if (= (car (nth index SymKeyList)) ListNo) (setq TileData (nth index SymKeyList)) ) (setq index (1+ index)) ) ) (T (setq TileData (nth 0 StKeyList)) ) ) TileData)
|
||||
|
||||
(defun $ShowPipeTiles( PipeType InitType ListNo / ChkData EditKey ImageName FileName )(setq #PipeType PipeType #ListNo ListNo)(if (null (= (type ListNo) 'INT)) (set_tile "error" "* Error : Not Selected Pipe *") (progn (if (= InitType "InitNil") (progn (setq #MainDia nil #SubDia nil #PipeLen nil)) ) (cond ((= PipeType "Steel") (set_tile "MkStChk" "1") (set_tile "MkDuChk" "0") (set_tile "MkSymChk" "0") (set_tile "MkStList" (itoa ListNo)) (mode_tile "MkStList" 0) (mode_tile "MkDuList" 1) (mode_tile "MkSymList" 1) ) ((= PipeType "Ductile") (set_tile "MkStChk" "0") (set_tile "MkDuChk" "1") (set_tile "MkSymChk" "0") (set_tile "MkDuList" (itoa ListNo)) (mode_tile "MkStList" 1) (mode_tile "MkDuList" 0) (mode_tile "MkSymList" 1) ) (T (set_tile "MkStChk" "0") (set_tile "MkDuChk" "0") (set_tile "MkSymChk" "1") (set_tile "MkSymList" (itoa ListNo)) (mode_tile "MkStList" 1) (mode_tile "MkDuList" 1) (mode_tile "MkSymList" 0) ) ) (setq ChkData ($ChkPipeTiles PipeType ListNo)) (setq EditKey (nth 1 ChkData) ImageName (nth 2 ChkData) FileName (nth 3 ChkData) ) ($ShowPipeImage "MkPipeImage" ImageName) ($SetEditBox EditKey) (if (findfile FileName) (progn (set_tile "error" "") (load FileName) ) (set_tile "error" (strcat "* Not found filename : " FileName)) ) )))
|
||||
|
||||
(defun $SetEditBox( EditKey / ) (cond ((= EditKey 1) (if (and #MainDia (= (type #MainDia) 'INT)) (set_tile "MkMainDia" (itoa #MainDia)) (progn (setq #MainDia nil) (set_tile "MkMainDia" "") ) ) (set_tile "MkSubDia" "") (set_tile "MkLength" "") (mode_tile "MkMainDia" 0) (mode_tile "MkSubDia" 1) (mode_tile "MkLength" 1) ) ((= EditKey 2) (if (and #SubDia (= (type #SubDia) 'INT)) (set_tile "MkSubDia" (itoa #SubDia)) (progn (setq #SubDia nil) (set_tile "MkSubDia" "") ) ) (set_tile "MkMainDia" "") (set_tile "MkLength" "") (mode_tile "MkMainDia" 1) (mode_tile "MkSubDia" 0) (mode_tile "MkLength" 1) ) ((= EditKey 3) (if (and #PipeLen (= (type #PipeLen) 'REAL)) (set_tile "MkLength" (rtos #PipeLen 2 3)) (progn (setq #Lenght nil) (set_tile "MkLength" "") ) ) (set_tile "MkMainDia" "") (set_tile "MkSubDia" "") (mode_tile "MkMainDia" 1) (mode_tile "MkSubDia" 1) (mode_tile "MkLength" 0) ) ((= EditKey 4) (if (and #MainDia (= (type #MainDia) 'INT) #SubDia (= (type #SubDia) 'INT)) (progn (set_tile "MkMainDia" (itoa #MainDia)) (set_tile "MkSubDia" (itoa #SubDia)) ) (progn (setq #MainDia nil #SubDia nil ) (set_tile "MkMainDia" "") (set_tile "MkSubDia" "") ) ) (set_tile "MkLength" "") (mode_tile "MkMainDia" 0) (mode_tile "MkSubDia" 0) (mode_tile "MkLength" 1) ) ((= EditKey 5) (if (and #MainDia (= (type #MainDia) 'INT) #PipeLen (= (type #PipeLen) 'REAL)) (progn (set_tile "MkMainDia" (itoa #MainDia)) (set_tile "MkLength" (rtos #PipeLen 2 3)) ) (progn (setq #MainDia nil #PipeLen nil) (set_tile "MkMainDia" "") (set_tile "MkLength" "") ) ) (set_tile "MkSubDia" "") (mode_tile "MkMainDia" 0) (mode_tile "MkSubDia" 1) (mode_tile "MkLength" 0) ) ((= EditKey 6) (if (and #SubDia (= (type #SubDia) 'INT) #PipeLen (= (type #PipeLen) 'REAL)) (progn (set_tile "MkSubDia" (itoa #SubDia)) (set_tile "MkLength" (rtos #PipeLen 2 3)) ) (progn (setq #SubDia nil #PipeLen nil) (set_tile "MkSubDia" "") (set_tile "MkLength" "") ) ) (set_tile "MkMainDia" "") (mode_tile "MkMainDia" 1) (mode_tile "MkSubDia" 0) (mode_tile "MkLength" 0) ) ((= EditKey 7) (if (and #MainDia (= (type #MainDia) 'INT) #SubDia (= (type #SubDia) 'INT) #PipeLen (= (type #PipeLen) 'REAL)) (progn (set_tile "MkMainDia" (itoa #MainDia)) (set_tile "MkSubDia" (itoa #SubDia)) (set_tile "MkLength" (rtos #PipeLen 2 3)) ) (progn (setq #MainDia nil #SubDia nil #PipeLen nil) (set_tile "MkMainDia" "") (set_tile "MkSubDia" "") (set_tile "MkLength" "") ) ) (mode_tile "MkMainDia" 0) (mode_tile "MkSubDia" 0) (mode_tile "MkLength" 0) ) ( T (setq #MainDia nil #SubDia nil #PipeLen nil) (set_tile "MkMainDia" "") (set_tile "MkSubDia" "") (set_tile "MkLength" "") (mode_tile "MkMainDia" 1) (mode_tile "MkSubDia" 1) (mode_tile "MkLength" 1) ) ))
|
||||
|
||||
(defun $ShowPipeImage( KeyName SlideName / x y ) (setq x (dimx_tile KeyName) y (dimy_tile KeyName)) (start_image KeyName) (fill_image 0 0 x y 0) (slide_image 0 0 x y SlideName) (end_image))
|
||||
|
||||
(defun $ShowLogo() (start_image "MkLogo") (slide_image 0 0 (dimx_tile "MkLogo") (dimy_tile "MkLogo") "saman(samlogo)") (end_image))
|
||||
|
||||
(defun $ShowCoImage( KeyName ColorNo / x y ) (setq x (dimx_tile KeyName) y (dimy_tile KeyName)) (start_image KeyName) (fill_image 0 0 x y ColorNo) (end_image))
|
||||
|
||||
(defun $CheckAccept( / Scale Rotate PipeCoNo CenCoNo EditKey MainDia SubDia PipeLen ) (if (= (get_tile "MkUnitmm") "1") (setq #Unit "mm")) (if (= (get_tile "MkUnitcm") "1") (setq #Unit "cm")) (if (= (get_tile "MkUnitm") "1") (setq #Unit "m" )) (if (= (get_tile "MkNameDia") "1") (setq #DrMethod "Name" )) (if (= (get_tile "MkInDia") "1") (setq #DrMethod "InDia" )) (if (= (get_tile "MkOutDia") "1") (setq #DrMethod "OutDia")) (setq Scale ($ChkReal (get_tile "MkScale") ">")) (setq Rotate ($ChkReal (get_tile "MkRotate") "All")) (setq PipeCoNo ($ChkInt (get_tile "MkPipeCoNo") ">=")) (setq CenCoNo ($ChkInt (get_tile "MkCenCoNo") ">=")) (setq MainDia ($ChkInt (get_tile "MkMainDia") ">")) (setq SubDia ($ChkInt (get_tile "MkSubDia") ">")) (setq PipeLen ($ChkReal (get_tile "MkLength") ">")) (setq #PipeLayer ($ChkLayerName (get_tile "MkPipeLayer"))) (setq #CenLayer ($ChkLayerName (get_tile "MkCenLayer"))) (setq EditKey (nth 1 ($ChkPipeTiles #PipeType #ListNo))) (if (and Scale Rotate PipeCoNo CenCoNo #PipeLayer #CenLayer EditKey ) (progn (set_tile "error" "") (setq #Scale (atof Scale) #Rotate (atof Rotate) #PipeCoNo (atoi PipeCoNo) #CenCoNo (atoi CenCoNo) ) (cond ((= EditKey 1) (if (and MainDia ($ChkDataList (atoi MainDia) nil nil)) (progn (setq #MainDia (atoi MainDia) #SubDia nil #PipeLen nil ) (done_dialog 1) (setq #OkJob T) ) (set_tile "error" "*Error : Invalid Main Diameter") ) ) ((= EditKey 4) (if (and MainDia SubDia ($ChkDataList (atoi MainDia) (atoi SubDia) nil)) (progn (setq #MainDia (atoi MainDia) #SubDia (atoi SubDia) #PipeLen nil ) (done_dialog 1) (setq #OkJob T) ) (set_tile "error" "*Error : Invalid Main or Sub Diameter") ) ) ((= EditKey 5) (if (and MainDia PipeLen ($ChkDataList (atoi MainDia) nil (atof PipeLen))) (progn (setq #MainDia (atoi MainDia) #PipeLen (atof PipeLen)) (done_dialog 1) (setq #OkJob T) ) (set_tile "error" "No Key in Main Diameter or Length") ) ) ) ) (progn (set_tile "error" "No Key any value") (setq #OkJob nil) ) ))
|
||||
|
||||
(defun $InitPutValue( / FilePt ) (if (setq FilePt (open "DrPipe.set" "w")) (progn (princ "\n... Saving Working Condition Setting to 'DrPipe.set' ...") (princ (strcat (chr 59) "*\n" (chr 59) "* DrPipe Initial Setting file 'DrPipe.set' \n" (chr 59) "*\n" ) FilePt) (if (and #Unit (= (type #Unit) 'STR)) (princ (strcat "(setq #Unit \"" #Unit "\")\n") FilePt) ) (if (and #DrMethod (= (type #DrMethod) 'STR)) (princ (strcat "(setq #DrMethod \"" #DrMethod "\")\n") FilePt) ) (if (and #Scale (numberp #Scale)) (princ (strcat "(setq #Scale " (rtos #Scale 2 4) ")\n") FilePt) ) (if (and #Rotate (numberp #Rotate)) (princ (strcat "(setq #Rotate " (rtos #Rotate 2 4) ")\n") FilePt) ) (if (and #PipeLayer (= (type #PipeLayer) 'STR)) (princ (strcat "(setq #PipeLayer \"" #PipeLayer "\")\n") FilePt) ) (if (and #CenLayer (= (type #CenLayer) 'STR)) (princ (strcat "(setq #CenLayer \"" #CenLayer "\")\n") FilePt) ) (if (and #PipeCoNo (numberp #PipeCoNo)) (princ (strcat "(setq #PipeCoNo " (itoa #PipeCoNo) ")\n") FilePt) ) (if (and #CenCoNo (numberp #CenCoNo)) (princ (strcat "(setq #CenCoNo " (itoa #CenCoNo) ")\n") FilePt) ) (if (and #PipeType (= (type #PipeType) 'STR)) (princ (strcat "(setq #PipeType \"" #PipeType "\")\n") FilePt) ) (if (and #ListNo (numberp #ListNo)) (princ (strcat "(setq #ListNo " (itoa #ListNo) ")\n") FilePt) ) (if (and #MainDia (numberp #MainDia)) (princ (strcat "(setq #MainDia " (itoa #MainDia) ")\n") FilePt) ) (if (and #SubDia (numberp #SubDia)) (princ (strcat "(setq #SubDia " (itoa #SubDia) ")\n") FilePt) ) (if (and #PipeLen (numberp #PipeLen)) (princ (strcat "(setq #PipeLen " (rtos #PipeLen 2 4) ")\n") FilePt) ) (close FilePt) ) ))
|
||||
|
||||
(defun $CallDrawPipe( / BasePt Scale OrgOsmode OrgOrthomode OrgSnapmode OrgGridmode OrgPlinewid ) (setq OrgOsmode (getvar "OSMODE") OrgOrthomode (getvar "ORTHOMODE") OrgSnapmode (getvar "SNAPMODE") OrgGridmode (getvar "GRIDMODE") OrgPlinewid (getvar "PLINEWID") ) (setvar "OSMODE" 0) (setvar "ORTHOMODE" 0) (setvar "SNAPMODE" 0) (setvar "GRIDMODE" 0) (setvar "PLINEWID" 0) (setvar "BLIPMODE" 0) (setvar "CMDECHO" 0) (COMMAND "_.COLOR" "BYLAYER") (cond ((= #Unit "mm") (setq Scale #Scale)) ((= #Unit "cm") (setq Scale (* #Scale 0.1))) ((= #Unit "m" ) (setq Scale (* #Scale 0.01))) ) (setq BasePt (getpoint " Pick Base Point --> ")) ($DrawPipe #DrMethod Scale #Rotate #PipeLayer (itoa #PipeCoNo) #CenLayer (itoa #CenCoNo) BasePt ($ChkDataList #MainDia #SubDia #PipeLen)) (setvar "OSMODE" OrgOsmode) (setvar "ORTHOMODE" OrgOrthomode) (setvar "SNAPMODE" OrgSnapmode) (setvar "GRIDMODE" OrgGridmode) (setvar "PLINEWID" OrgPlinewid) (setvar "BLIPMODE" 1) (setvar "CMDECHO" 1))
|
||||
|
||||
(defun main()(if #LockChk (progn (if (findfile "DrPipe.set") (progn (princ "\n... Initial Condition Setting from 'DrPipe.set' ...\n") (load "DrPipe.set" "\n *** 'DrPipe' Initial Setting Failed *** ") ) ) ($InitSetValue) (if #OkJob (progn ($CallDrawPipe) ($InitPutValue) ) ) ) (princ "\n ***** Don't Copy ******")))
|
||||
|
||||
(defun c:drpipe() (main))
|
||||
BIN
Binary file not shown.
Binary file not shown.
Reference in New Issue
Block a user