기존에 어느분이 올려놓은 단열재 리습인데 레이어 생성이나 뒤로넘김같은 간단한거는 추가해서 잘쓰고 있는데 단열재를 생성할때 기준라인이 있으면 그 라인을 같이 P라인으로 결합해 먹어버리는 현상이 있는데 그부분을 수정할수 있을까요..;; 자꾸만 벽체라인을 단열재라인으로 가져가버리네요 ㅎㅎ;;
(defun c:ii(/ os bl cl opt1 pt1 pt2 pt3 pt4 thi angX angY n di
b1 b2 b3 b4 p1 p2 p3 p4 p5 p6 p7 p8 f1 f2)
(setvar “cmdecho” 0)
(setq os (getvar “osmode”))
(setq bl (getvar “blipmode”))
(setq cl (getvar “clayer”))
(setvar “blipmode” 1) (setvar “osmode” 33)
(setq pt1 (getpoint “n단열재 시작점 -> end<int> of “))
(setq opt1 pt1)
(setvar “osmode” 128)
(setq pt2 (getpoint pt1 “n단열재 두께 및 방향 -> per of “))
(setvar “osmode” 129)
(setq pt3 (getpoint pt1 “n단열재 끝점 -> end<per> of “))
(setq pt4 pt1)
(setvar “blipmode” 0)(setvar “osmode” 0)
(if (= th nil) (setq th 50.0))
(setq thi (distance pt1 pt2))
(if (= thi nil) (setq thi th))
(setq sc (/ thi 50.0))
(setq angX (angle pt1 pt3))
(setq angY (angle pt1 pt2))
(setq di (distance pt1 pt3))
(setq n (/ di (* sc 25.0)) )
(setq b1 (polar pt1 angY (* sc 4.32))
b2 (polar pt1 angY (* sc 13.55))
b3 (polar pt1 angY (* sc 36.45))
b4 (polar pt1 angY (* sc 50.00)))
(setq p1 (polar b1 angX (* sc 8.23))
p2 (polar b2 angX (* sc 9.35))
p3 (polar b3 angX (* sc 3.15))
p4 (polar b4 angX (* sc 12.50))
p5 (polar b3 angX (* sc 21.85))
p6 (polar b2 angX (* sc 15.65))
p7 (polar b1 angX (* sc 16.77))
p8 (polar pt1 angX (* sc 25.00)))
(command “layer” “m” “insul” “c” “8” “” “s” “insul” “”);레이어 생성 및 색지정
(command “pline” pt1 “a” “s” p1 p2 “l” p3 “a” “s” p4
p5 “l” p6 “a” “s” p7 p8 “”)
(while (>= n 1)
(setq pt1 p8)
(setq p8 (polar pt1 angX (* sc 25.00)))
(if (>= di (distance opt1 p8))
(command “copy” “l” “” pt1 p8)
)
(setq n (- n 1))
);while end
(command “draworder” “l” “” “back” );레이어 뒤로
(setq f1 (polar pt3 angX (* sc 25.00)))
(setq f2 (polar pt4 angY (* sc 25.00)))
(command “pedit” “l” “j” “f” f2 f1 “” “” “”)
(setq th thi nm nmm)
(setvar “clayer” cl)
(setvar “blipmode” bl)
(setvar “osmode” os)
(setvar “orthomode” 1);블립모드 끄기 제발
(prin1)
)