속성에서 AOS 필드에 해당하는 숫자를 텍스트로 화면에 올리는건데,
하단에 텍스트 올리는 리습으로 하려했으나..
속성텍스트화2.lsp successfully loaded.
Select objects: 1 found
1 was filtered out.
; error: bad argument type: lselsetp nil
이라는 메세지가 뜨면서 에러가 납니다..
리습을 몰라서 그런것 같은데 수정 좀 부탁드려요
(defun c:sd ()
(setq sel (ssget ‘((0 . “LWPOLYLINE”))))
(setq index 0)
(repeat (sslength sel)
(setq ssn (ssname sel index))
(setq table (ade_odgettables ssn));테이블명을 리턴
(setq field (ade_odgetfield ssn table “AOS” 0));필드중 AOS의 0번째 값을 리턴
(setq pt (vlax-curve-getStartPoint (vlax-ename->vla-object ssn)))
(vl-cmdf “00” “j” “MC” pt “100” “0” field)
(setq index (1+ index))
)
)