날씨가 아침 저녁으로 차네요.
감기 조심하십시오.
키보드 한 번이라도 덜 치겠다고
눈동냥하여 명령어 리습을 만들어 봤습니다.
명령어상에서는
1. ucs – n – 3
2. plan
이렇게 진행이 되는데요.
아래와 같이 만들어 봤더니
ucs가 돌아가긴 하는데,
마지막에 “plan” 명령어가 실행이 안 됩니다.
(defun c:u3 ()
(setvar “cmdecho” 0)
(princ ” = ucsplan”)
(command “ucs” “n” “3”)
(command “plan” “”)
(princ)
)
지엄하신 지혜의 장으로 인도하여 주십시오.
(defun c:u3 ()
(setvar “cmdecho” 0)
(princ ” = ucsplan”)
(command “_ucs” “n” “3”)
(command “_plan” “”)
(princ)
)
치공 선생님 고견 고맙습니다.
그런데, ucs가 돌아가기는 하는데 여전히 ‘plan’ 실행이 안 되어
화면이 안 돌아가네요…
이걸 써보세요 기능 비슷할겁니다.
(defun C:test ( / cview pt1 pt2 ptw )
(setq cview (getvar ‘viewsize))
(if
(and
(setq pt1 (getpoint “n Pick point: “))
(setq pt2 (getpoint “n Pick X coordinate: “))
(setq ptw (trans pt1 1 0))
)
(command “_.ucs” “3” pt1 pt2 “” “_.plan” “c” “_.zoom” “_c” (trans ptw 0 1) cview)
)
(princ)
)
오~~치공 선생님!! 고맙습니다!!.gif)
정말 제가 원하던 리습입니다.
열공하여 치공 선생님 처럼 훌륭한 사람이 되겠습니다.
다시금, 고맙습니다!!!
작업을 하며 의문이 날 때 마다 하나하나 알려고 하니 미숙한 점들이 많네요.
고견 고맙습니다.
더욱더 매진하겠습니다. ^^;;;