그림에서 보이는것과 같이 insulation 이 180도 회전이 안되어있고 그냥 겹쳐 나옵니다.
고수님들의 한수 부탁드립니다…m__m..뿌벅
(defun *ERROR* (st)
(COMMAND “LAYER” “S” Q:LAINIT “”)
(SETVAR “BLIPMODE” 1)
(SETVAR “CMDECHO” 1)
(terpri)
(princ “nerror: “)
(princ st)
(prin1)
)
(DEFUN C:INSUL(/ scf bl Z A1 A2)
(SETVAR “CMDECHO” 0)
(SETQ Q:LAINIT (GETVAR “CLAYER”))
(setq scf (getvar “ltscale”))
(if (<= scf 10.0)
(setq bl “c:/a/insul”)
)
(if (null Q:DIST) (setq Q:DIST 50.0))
(SETQ Z (GETDIST (strcat “n>>> Width <"
(rtos Q:DIST 2 0) “> : “)))
(IF Z (SETQ Q:DIST Z))
(SETQ A1 (GETPOINT “n>>> Start Point : “))
(SETQ A2 (GETPOINT A1 “n>>> End Point : “))
(SETVAR “BLIPMODE” 0)
(command “layer” “M” “M-INSUL” “c” “6” “” “”)
(if (<= scf 10.0)
(SETQ Z (FIX (/ (DISTANCE A1 A2) (* Q:DIST 0.4))))
(SETQ Z (FIX (/ (DISTANCE A1 A2) (* Q:DIST 0.6))))
)
(COMMAND “MINSERT” bl A1 Q:DIST “” (/ (* (ANGLE A1 A2) 180.0) PI)
“” Z (if (<= scf 10.0) (SETQ Z (* Q:DIST 0.32))
(SETQ Z (* Q:DIST 0.6)))
)
(command “layer” “s” Q:LAINIT “”)
(SETVAR “CMDECHO” 1)
(SETVAR “BLIPMODE” 1)
(PRIN1)
)