반응형 cadr1 TEXT 추출 후 좌표,내용 리스트로 저장 명령: (setq dx (entget (ssname (ssget) 0)))명령: (setq co (list (cadr (assoc 10 dx)) (caddr (assoc 10 dx)))) ; X, Y 좌표 가져옴명령: (setq tx (list (cdr (assoc 1 dx)))) ; 문자열 가져옴명령: (setq ap '()) ; 리스트 초기화명령: (setq ap (append ap co tx)) ; X Y 문자열로 리스트 ap 로 추가하기 2025. 5. 27. 이전 1 다음 반응형