line을 join 하는 명령인데요… 다른 리습들 참고해서 어찌어찌해서
여기까지 만들었는데요…. 마무리 좀 해주세요.
(defun c:jm()
(setvar “cmdecho” 1)
(setq ss (ssget))
(command “pedit” “m” ss “” “Y” “j” “” “”)
(if
(cond ((= “POLYLINE” typ)
(progn
(setq ss (cdr (ssget)))
(command “pedit” “m” ss “” “j” “” “” )
)
)
((= “LWPOLYLINE” typ)
(progn
(setq ss (cdr (ssget)))
(command “pedit” “m” ss “” “j” “” “” )
)
)
)
(princ)
)

아래 리습 좀 봐주세요…
(defun c:Tw()
(setq olderr *error*
*error* clerr)
(setq cmd (getvar “cmdecho”))
(setvar “cmdecho” 0)
(setvar “blipmode” 0)
(txt-all)
(setvar “cmdecho” cmd)
(setq *error* olderr)
(princ)
);;
예전에는 잘 되었었는데 제가 뭘 잘못 건드렸는지 안되요.
Command: tw
Error: no function definition: TXT-ALL
이렇게 뜬답니다.
뭐가 잘못 된건가요?