질문 하나만 더 하겠습니다..^^;
아래 list로 담은 내용들을 텍스트 파일로 생성하려던 중
” error: bad argument type: stringp” 이런 문구와 함께 오류가 발생해서..
리습에 어떤 문제가 있을까요??
수정해주시면 감사하겠습니다~~~
—————————————————————————————————————-
(defun c:link_test ()
(setvar “CMDECHO” 0)
(setq i 1)
(setq n 0)
(setq sel (ssget (list (cons 0 “LWPOLYLINE”))))
(setq sel_name(ssname sel n))
(while (/= sel_name nil)
;(setq sel_name(ssname sel n))
(setq vtx_geo(vlax-curve-getpointatparam sel_name i))
(setq epoint(vlax-curve-getendpoint sel_name))
(setq xy_1(car vtx_geo))
(setq xy_2(car epoint))
(setq tm_x(rtos xy_1))
(setq tm_x1(rtos xy_2))
(if (/= tm_x tm_x1)
(progn
(setq link_info (ade_odgetfield sel_name “Default_LINK” “LINK_ID” 0))
(setq vtx(vlax-curve-getpointatparam sel_name i))
(setq x(car vtx))
(setq y(cadr vtx))
(setq tm_x(rtos x))
(setq tm_y(rtos y))
(setq tm_xy(strcat tm_x “,” tm_y))
(setq seq (itoa i))
(setq lst (append lst (list (list link_info seq tm_xy))))
(setq i (+ i 1))
)
(progn
(setq n (+ n 1))
(setq sel_name(ssname sel n))
(setq i 1)
)
)
)
(temp_txt lst “c://a.txt”)
)