insu1.lsp 파일내용임다.
물론, insul2.dwg 파일은 경로에 제대로 저장되어있구요..
——————————————————–
(defun *ERROR* (st)
(COMMAND “LAYER” “S” Q:LAINIT “”)
(SETVAR “BLIPMODE” 1)
(terpri)
(princ “nerror: “)
(princ st)
(prin1)
)
(DEFUN C:iNSUL2(/ scf bl Z A1 A2)
(prompt “n>>> LAYER SETTING *** HATCH ****”)
(SETVAR “CMDECHO” 0)
(SETQ Q:LAINIT (GETVAR “CLAYER”))
(setq scf (getvar “ltscale”))
(if (<= scf 10.0)
(setq bl “c:/acad/lib/block/insul2”)
)
(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” “HATCH” “c” “5” “” “”)
(if (<= scf 10.0)
(SETQ Z (FIX (/ (DISTANCE A1 A2) (* Q:DIST 0.32))))
(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 “BLIPMODE” 1)
(PRIN1)
)