캐드 분류
객체속성 리습관련 질문있습니다 리습 고수님들 부탁드립니다
컨텐츠 정보
- 302 조회
- 0 추천
- 0 비추천
- 목록
본문
안녕하세요 여기 자료실을 알게되고 리습을 구하던중 원하던 리습을 찾게 되었고 거기에 추가적으로
더하고 싶은게 있는데 고수님들 수정 부탁좀 드려도 되겠습니까
본론으로 들어가자면 제가 가지고 있는 기존리습은 객체속성에 택스트 1개를 입력하는 리습입니다
아주조금 수정해서 객체속성 2개를 만드는 것 까지는 어찌했는데 택스트를 두개를 넣는게 힘드네요
객체속성 id, lbl 이렇게 두개 만드는 것까지는 해뒀는데 택스트 2개를 각각의 속성에 넣고 싶은데 한개
이후 두번째를 넣어야 하는데 어떻게 수정해야 할까요?
(defun c:def()
(prop)
(prompt "n속성입력할 객체를 선택하세요…")
(setq ob_ss (ssget))
(setq ob_no (sslength ob_ss))
(setq ob_n 0)
(repeat ob_no
(setq ob_ss0 (ssname ob_ss ob_n))
(setq ob_ss1 (entget ob_ss0))
(if (/= ob_ss nil)
(progn
(setq ename (cdr (assoc -1 ob_ss1)))
(setq ob_xy (cdr (assoc 10 ob_ss1)))
(setq ob_x1 (nth 0 ob_xy))
(setq ob_y1 (nth 1 ob_xy))
(prompt "관로아이디 텍스트를 선택하세요…")
(setq ob_te (ssget ' ((0 . "TEXT"))))
(if (and (/= ob_te nil) (= (sslength ob_te) 1))
(progn
(setq ob_te1 (entget (ssname ob_te 0)))
(setq str1 (cdr (assoc 1 (entget (ssname ob_te 0)))))
(setq odnew (ade_odnewrecord "BASE"))
(ade_odattachrecord ename odnew)
(ade_odsetfield ename "BASE" "id" 0 str1)
(command "chprop" ob_ss0 "" "c" "2″ "")
(command "chprop" ob_te "" "c" "3″ "")
);progn
(err)
);if
);progn
);if
(setq ob_n (+ 1 ob_n))
);repeat
(princ)
);defun
이게 복잡하시고 하나 만들어 주실 고수님이 있으시다면
객체선택-객체속성 id, lbl 2개 생성-택스트2개 선택- 각각 id lbl에 입력 이런리습을 원합니다.ㅠ
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
