이 명령어는 선라인에 DC1 이라는 글씨를 넣는건데
명령어를 치고 선을 그으면
“이름이 유효하지 않음.
; error : Function cancelled”
이렇게 뜨면서 선만 그어집니다.
모가 잘못된걸까요??
(DEFUN C:DC1()
(SETVAR “OSMODE” 16)
(SETQ STP (GETPOINT “nPick starting point : “))
(SETQ PO1 (GETPOINT STP “nPick endding point : “))
(SETVAR “OSMODE” 0)
(SETQ ANG (ANGLE STP PO1))
(SETQ DIS (DISTANCE STP PO1))
(SETQ PO2 (POLAR STP ANG (/ DIS 2)))
(COMMAND “PLINE” STP PO1 “”)
(COMMAND “BREAK” PO2 “F” (POLAR PO2 (ANGLE PO2 STP) (* ARD 3.0))
(POLAR PO2 (ANGLE PO2 PO1) (* ARD 3.0)) )
(COMMAND “TEXT” “S” “HS” “M” PO2 (* ARD 2) “0” “DC”)
(COMMAND “CHANGE” PO2 “” “P” “C” “4” “”)
)
공유