(defun C:AT()
(setq po (getpoint "기준점을 선택하세요:"))
(SETQ ATNAME (getSTRING "이름을 입력하세요:"))
(progn
(SETQ ATNAME1 (strcase ATNAME))
(SETQ PROPATHALL1 (STRCAT "%<\AcSm SheetSet." ATNAME1))
(SETQ PROPATHALL2 (STRCAT PROPATHALL1 ">%"))
(setq lay "MATL")
(command "-layer" "STATE" "s" "Hsolid" "" "" "")
(layinfo)
(laychk)
(mkbuf)
(command "-layer" "thaw" lay "")
(command "-layer" "s" LAY "")
(setq st "D")
(setq ju1 "ML")
(gvar)
(schk)
(MKTEXT)
(command "-layer""s" lay "")
(command "-ATTDEF" "Preset" "" ATNAME1 ATNAME1 PROPATHALL2 "s" st "j" ju1 po "" "")
(command "-block" ATNAME1 po "last" "")
(command "-insert" ATNAME1 po "" "" "")
(command "-layer" "a" "R" "Hsolid" "" "" "")
(command "-layer" "a" "D" "HSOLID" "" "")
(SVAR)
)
)
요렇게 만들었는데요..
명령을 적용할 때마다 두가지 문제가 발생합니다.
1. preset 이 켜졌다 꺼졌다 하는것
2. 텍스트윈도우가 떴다가 사라지는것.(안뜨게 하는방법 없을까요?)