현제 회사에서 사용하는 환경은 레이어가 기본적으로 없습니다
다 0 번에 넣어서 색으로 구분한다든지 했는데요
자꾸 업체에서 레이어로 구분해달라고 해서 어쩔수없이 환경을 바꾸려고 하는데요
기존에 리습들이 다 레이어가 없는 상태로만든 것들이라
가령 리습으로 사각박스를 그린다거나 할때 이 사각박스가 자동으로 3번 레이어로 가게끔 할수 있는지 알려주세요
부탁드립니다
이아래 리습은 제가 금형 설계를 하는데 그 설계중 베이스라는것을 그릴때 쓰던 리습입니다
저걸 사용해서 베이스를 그릴때 자동으로 특정 레이어로 들어 갔으면 좋겠는데요 부탁드립니다
(prompt “ntPlease Wating……..”)(terpri)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun mz ()
(setvar “osmode” 0)
(setq ew (open “C:/PROGRAM FILES/AUTOCAD 2005/dat/ms.dat” “r”))
(setq d t)
(setq m_spec (getstring “Enter the M/B spec :”))(terpri)
(while d
(setq rld (read-line ew))
(if (= m_spec (substr rld 1 4))
(progn
(setq px (atof (substr rld 6 5))
py1 (atof (substr rld 12 5))
py2 (atof (substr rld 18 5))
py3 (atof (substr rld 24 5))
py4 (atof (substr rld 30 5))
gpx (atof (substr rld 36 5))
gpy (atof (substr rld 42 5))
rpx (atof (substr rld 48 5))
rpy (atof (substr rld 54 5))
mx (atof (substr rld 60 5))
my (atof (substr rld 66 5))
gr (atof (substr rld 72 5))
rr (atof (substr rld 78 5))
ms (atof (substr rld 84 5))
mq (atof (substr rld 90 5))
d nil
);;setq
);;progn
);;if
);;while
(close ew)
(setq c1 (list px py1)
c2 (list px (- py1 (* 2 py1)))
c3 (list (- px (* 2 px)) py1)
c4 (list (- px (* 2 px))(- py1 (* 2 py1)))
c5 (list px py2)
c6 (list px (- py2 (* 2 py2)))
c7 (list (- px (* 2 px)) py2)
c8 (list (- px (* 2 px))(- py2 (* 2 py2)))
c9 (list px py3)
c9_1 (list 0 py3)
c10 (list px (- py3 (* 2 py3)))
c10_1 (list 0 (- py3 (* 2 py3)))
c11 (list (- px (* 2 px)) py3)
c12 (list (- px (* 2 px))(- py3 (* 2 py3)))
c13 (list px py4)
c13_1 (list 0 py4)
c14 (list px (- py4 (* 2 py4)))
c14_1 (list 0 (- py4 (* 2 py4)))
c15 (list (- px (* 2 px)) py4)
c16 (list (- px (* 2 px))(- py4 (* 2 py4)))
cg1 (list gpx gpy)
cg2 (list gpx (- gpy (* 2 gpy)))
cg3 (list (- gpx (* 2 gpx)) gpy)
cg4 (list (- (+ 2 gpx)(* 2 gpx))(- gpy (* 2 gpy)))
cr1 (list rpx rpy)
cr2 (list rpx (- rpy (* 2 rpy)))
cr3 (list (- rpx (* 2 rpx)) rpy)
cr4 (list (- rpx (* 2 rpx))(- rpy (* 2 rpy)))
ccl1 (list (- px (+ 10 (* 2 px)))(- py1 py1))
ccl2 (list (+ 10 px) (- py1 py1))
ccl3 (list (- px px)(+ 10 py1))
ccl4 (list (- px px)(- py1 (+ 10 (* 2 py1))))
cm1 (list mx my)
cm2 (list mx (- my (* 2 my)))
cm3 (list (- mx (* 2 mx)) my)
cm4 (list (- mx (* 2 mx))(- my (* 2 my)))
cm5 (list (- mx mx) my)
cm6 (list (- mx mx) (- my (* 2 my)))
);;;;;;;setq
(cond
((= ms 10)(setq mn “m10”))
((= ms 12)(setq mn “m12”))
((= ms 14)(setq mn “m14”))
((= ms 16)(setq mn “m16”))
);;;;;;;cond
(cond
((= gr 8)(setq gn “gp16” gn1 “ug16”))
((= gr 10)(setq gn “gp20” gn1 “ug20”))
((= gr 12.5)(setq gn “gp25” gn1 “ug25”))
((= gr 15)(setq gn “gp30” gn1 “ug30”))
((= gr 17.5)(setq gn “gp35” gn1 “ug35”))
((= gr 20)(setq gn “gp40” gn1 “ug40”))
);;;;;cond
(cond
((= rr 6)(setq rn “rp12”))
((= rr 7.5)(setq rn “rp15”))
((= rr 10)(setq rn “rp20”))
((= rr 12.5)(setq rn “rp25”))
((= rr 15)(setq rn “rp30”))
);;;;;;;;;cond
(if (= mtty “sta”)
(progn
(if (= mq 6)
(command “insert” mn cm5 “” “” “”
“insert” mn cm6 “” “” “”
)
)
(command “insert” mn cm1 “” “” “”
“insert” mn cm2 “” “” “”
“insert” mn cm3 “” “” “”
“insert” mn cm4 “” “” “”
“insert” gn cg1 “” “” “”
“insert” gn cg2 “” “” “”
“insert” gn cg3 “” “” “”
“insert” gn cg4 “” “” “”
“insert” rn cr1 “” “” “”
“insert” rn cr2 “” “” “”
“insert” rn cr3 “” “” “”
“insert” rn cr4 “” “” “”
“color” 3
“line” c1 c2 c4 c3 c1 “”
“line” c5 c7 “”
“line” c6 c8 “”
“color” 7
“linetype” “s” “dashed” “”
“line” c9 c11 “”
“line” c10 c12 “”
“line” c13 c15 “”
“line” c14 c16 “”
“linetype” “s” “center” “”
“color” 1
“line” ccl1 ccl2 “”
“line” ccl3 ccl4 “”
“linetype” “s” “continuous” “”
“color”7
)
)
)
(if (= mtty “bot”)
(progn
(if (= mq 6)
(command “insert” mn cm5 “” “” “”
“insert” mn cm6 “” “” “”
)
)
(command “insert” mn cm1 “” “” “”
“insert” mn cm2 “” “” “”
“insert” mn cm3 “” “” “”
“insert” mn cm4 “” “” “”
“insert” gn1 cg1 “” “” “”
“insert” gn cg2 “” “” “”
“insert” gn1 cg3 “” “” “”
“insert” gn cg4 “” “” “”
“insert” rn cr2 “” “” “”
“insert” rn cr4 “” “” “”
“color” 3
“line” c1 c2 c4 c3 c1 “”
“line” c5 c7 “”
“line” c6 c8 “”
“color” 7
“linetype” “s” “dashed” “”
“line” c10 c12 “”
“line” c14 c16 “”
“linetype” “s” “center” “”
“color” 1
“line” ccl1 ccl2 “”
“line” ccl3 ccl4 “”
“linetype” “s” “continuous” “”
“color”7
)
)
)
(if (= mtty “lef”)
(progn
(if (= mq 6)
(command “insert” mn cm5 “” “” “”
“insert” mn cm6 “” “” “”
)
)
(command “insert” mn cm1 “” “” “”
“insert” mn cm2 “” “” “”
“insert” mn cm3 “” “” “”
“insert” mn cm4 “” “” “”
“insert” gn1 cg1 “” “” “”
“insert” gn1 cg2 “” “” “”
“insert” gn cg3 “” “” “”
“insert” gn cg4 “” “” “”
“insert” rn cr3 “” “” “”
“insert” rn cr4 “” “” “”
“color” 3
“line” c1 c2 c4 c3 c1 “”
“line” c5 c7 “”
“line” c6 c8 “”
“color” 7
“linetype” “s” “dashed” “”
“line” c9_1 c11 “”
“line” c10_1 c12 “”
“line” c13_1 c15 “”
“line” c14_1 c16 “”
“linetype” “s” “center” “”
“color” 1
“line” ccl1 ccl2 “”
“line” ccl3 ccl4 “”
“linetype” “s” “continuous” “”
“color”7
)
)
)
(setq mpl1 (polar c4 (dtr 225) 40))
(command “insert” “ki” mpl1 “” “” “”)
(command “zoom” “a”)
(princ))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun molb ()
(setvar “osmode” 0)
(setq ew (open “C:/PROGRAM FILES/AUTOCAD 2005/dat/ms.dat” “r”))
(command “color” 3)
(setq d t)
(while d
(setq rld (read-line ew))
(if (= m_spec (substr rld 1 4))
(progn
(setq px (atof (substr rld 6 5))
py1 (atof (substr rld 12 5))
py2 (atof (substr rld 18 5))
py3 (atof (substr rld 24 5))
py4 (atof (substr rld 30 5))
rpx (atof (substr rld 48 5))
rr (atof (substr rld 78 5))
tcp (atof (substr rld 96 5))
sbp (atof (substr rld 102 5))
erp (atof (substr rld 108 5))
ejp (atof (substr rld 114 5))
bcp (atof (substr rld 120 5))
sup1 (substr rld 126 2)
sup2 (substr rld 132 2)
d nil
);;;;;;;;;;setq
);;;;;;progn
);;;;;;if
);;;;;;;while
(close ew)
(setq msp1 (getpoint “Pick a Start point of Cross-section :”))(terpri)
(setq msp (list (car msp1) (- (cadr msp1)(cadr msp1))))
(initget (+ 1 2 4))
(setq cap (getdist “Enter the height of Cavity Plate :”))(terpri)
(initget (+ 1 2 4))
(setq cop (getdist “Enter the Height of Core Plate :”))(terpri)
(if (or (= msty “mola”) (= msty “molb”))
(progn
(initget (+ 1 2 4))
(setq sup (getdist (strcat “Enter the Height of Support Plate :” “(” sup1 ” or ” sup2 “)”)))(terpri)
)
)
(initget (+ 1 2 4))
(setq spb (getdist “Enter the Height of Spacer Block :”))(terpri)
(if (or (= msty “mola”) (= msty “molc”))
(setq sbp 0)
)
(if (or (= msty “molc”) (= msty “mold”))
(setq sup 0)
)
(setq mp1 (polar msp d90 py1)
mp2 (polar mp1 ad0 tcp)
mp3 (polar mp2 d270 py1)
mp4 (polar mp3 ad0 cap)
mp5 (polar mp4 d90 py2)
mp6 (polar mp5 ad0 sbp)
mp7 (polar mp6 d270 py2)
mp8 (polar mp7 ad0 cop)
mp9 (polar mp8 d90 py2)
mp10 (polar mp9 ad0 sup)
mp11 (polar mp10 d270 py2)
mp12 (polar mp11 ad0 spb)
mp13 (polar mp12 d90 py1)
mp14 (polar mp13 ad0 bcp)
mp15 (polar mp14 d270 py1)
mp16 (polar mp3 d90 py2)
mp17 (polar mp12 d90 py2)
mp18 (polar mp11 d90 py3)
mp19 (polar mp12 d90 py3)
mp20 (polar mp12 d180 5)
mp21 (polar mp20 d90 py4)
mp22 (polar mp21 d180 ejp)
mp23 (polar mp22 d270 py4)
mp24 (polar mp23 d180 erp)
mp25 (polar mp24 d90 py4)
mp26 (polar msp d270 px)
mp27 (polar mp3 d270 px)
mp28 (polar mp4 d270 px)
mp29 (polar mp7 d270 px)
mp30 (polar mp8 d270 px)
mp31 (polar mp11 d270 px)
mp32 (polar mp12 d270 px)
mp33 (polar mp15 d270 px)
mp34 (polar mp20 d270 px)
mp35 (polar mp23 d270 px)
mp36 (polar mp24 d270 px)
ccr1 (polar msp d180 10)
ccr2 (polar mp15 ad0 10)
);;;;;;setq
(command “line” msp mp1 mp2 mp3 “”)
(command “line” mp4 mp5 “”)
(command “line” mp8 mp9 “”)
(command “line” mp12 mp13 mp14 mp15 “”)
(command “line” mp16 mp17 “”)
(command “line” mp18 mp19 “”)
(command “line” mp20 mp21 mp25 mp24 “”)
(command “line” mp22 mp23 “”)
(command “line” msp mp26 “”)
(command “line” mp3 mp27 “”)
(command “line” mp4 mp28 “”)
(command “line” mp8 mp30 “”)
(command “line” mp12 mp32 “”)
(command “line” mp15 mp33 “”)
(command “line” mp20 mp34 “”)
(command “line” mp23 mp35 “”)
(command “line” mp24 mp36 “”)
(command “line” mp26 mp33 “”)
(if (or (= msty “mola”) (= msty “molb”))
(command “line” mp11 mp10 “”
“line” mp11 mp31 “”
)
)
(if (or (= msty “molb”) (= msty “mold”))
(command “line” mp7 mp6 “”
“line” mp7 mp29 “”
)
)
(command “linetype” “s” “center” “”)
(command “color” 1)
(command “line” ccr1 ccr2 “”)
(command “linetype” “s” “continuous” “”)
(command “color” 7)
(princ))
;;;;;;;;;;;;;;;;;;;;;;;;
(defun rp ()
(setq nm (rtos (* 2 rr) 2 0))
(data_in “rp” nm (list ‘nm ‘d ‘d1 ‘d2 ‘d3))
(setq h 4
rbp (list (car mp23) (- rpx))
rpl (distance mp7 mp23)
rbp1 (polar rbp d180 h)
rbp2 (polar rbp d180 rpl)
rbp3 (list (car mp8) (- rpx))
rbp4 (list (car mp11) (- rpx))
rbp5 (list (car mp24) (- rpx))
rbp6 (polar rbp3 d180 10)
rbp01 (polar rbp d90 d2)
rbp02 (polar rbp d90 d1)
rbp03 (polar rbp d270 d2)
rbp04 (polar rbp d270 d1)
rbp101 (polar rbp1 d90 d2)
rbp102 (polar rbp1 d90 d1)
rbp103 (polar rbp1 d90 d)
rbp104 (polar rbp1 d270 d2)
rbp105 (polar rbp1 d270 d1)
rbp106 (polar rbp1 d270 d)
rbp201 (polar rbp2 d90 d)
rbp202 (polar rbp2 d270 d)
rbp301 (polar rbp3 d90 d)
rbp302 (polar rbp3 d270 d)
rbp303 (polar rbp3 d90 d3)
rbp304 (polar rbp3 d270 d3)
rbp401 (polar rbp4 d90 d)
rbp402 (polar rbp4 d270 d)
rbp403 (polar rbp4 d90 d3)
rbp404 (polar rbp4 d270 d3)
rbp501 (polar rbp5 d90 d)
rbp502 (polar rbp5 d270 d)
rbp601 (polar rbp6 d90 d3)
rbp602 (polar rbp6 d270 d3)
rbp603 (polar rbp6 d90 d)
rbp604 (polar rbp6 d270 d)
)
(con3)
(if (= sup 0)
(command “line” rbp303 rbp601 “”
“line” rbp304 rbp602 “”
“line” rbp601 rbp603 “”
“line” rbp602 rbp604 “”
)
(command “line” rbp303 rbp403 “”
“line” rbp304 rbp404 “”
)
)
(command “line” rbp01 rbp101 rbp104 rbp03 “”
“line” rbp02 rbp102 “”
“line” rbp04 rbp105 “”
“line” rbp103 rbp201 “”
“line” rbp106 rbp202 “”
)
(command “zoom” “a”)
(command “break” rbp3 “f” rbp301 rbp302
“break” rbp5 “f” rbp501 rbp502
)
(if (or (= msty “mola”) (= msty “molb”))
(command “break” rbp4 “f” rbp401 rbp402)
)
(con1)
(command “line” rbp rbp2 “”)
)
(defun ms (mtty msty)
(mode_ini)
(setq pangle 0)
(angp_m)
(graphscr)
(if (/= mtty “”) (mz))
(if (/= msty “”)
(progn
(molb)
(rp)
)
)
(command “zoom” “e”)
(restore)
(princ))