성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^
① CAD 종류 : AUTOCAD MAP 3D
② VERSION : 2012
③ 운영 체제 : WINDOW7 64비트
아키모아에서 올려주신 리습으로 잘 사용하고 있었는데요
캡처된 이미지의 OD 속성에 보면 밸브각도라고 있는데 여기에 있는 각도 값으로 블록을 회전하고 싶습니다.
예전에 샘플로 했었을때는 되었었는데 지금은 실행을 하니
명령: ODT
테이블 속성으로 회전할 텍스트 객체선택....
객체 선택: 1개를 찾음
객체 선택: ; 오류: 잘못된 DXF 그룹: (50 . "2.0546640255572")
이런 오류가 뜨면서 실행이 안되네요
리습상에서 테이블명이랑 필드명은 모두 바꿨구요
속성상의 밸브 각도는 라디안 값입니다.
도움 좀 부탁드릴께요
캐드파일이랑 이미지, 리습 첨부해드립니다.
캐드 캡처 이미지 입니다.
이건 제가 아키모아에서 다운받아 사용한 리습입니다.
(defun c:odt ()
(setq od_tblname "밸브류")
(setq od_fldname "밸브각도")
(prompt "\n테이블 속성으로 회전할 텍스트 객체선택....")
(if (setq od_ssget (ssget '((0 . "TEXT,MTEXT,INSERT"))))
(if (setq od_sslist (fun:sset->tbllist od_ssget od_tblname)) ;;; 선택객체에 해당 테이블 부착되어있으면...
(foreach n od_sslist
(setq od_getangle (ade_odgetfield n od_tblname od_fldname 0))
(setq od_entget (entget n))
(setq od_assoc50 (assoc 50 od_entget))
(entmod (subst (cons 50 od_getangle) od_assoc50 od_entget))
);froeach
(alert!! (strcat "선택객체중 " od_tblname "이 부착된 객체가 없습니다."))
);if
(alert!! "선택을 잘못했습니다.")
);if
);defun
(DEFUN fun:sset->tbllist (Sset Tablename / n tbllst)
(setq n 0
tbllst (list)
)
(repeat (sslength sset)
(if (/= nil (ade_odgettables (ssname sset n)))
(if (member TableName (ade_odgettables (ssname sset n)))
(setq tbllst (append tbllst (list (ssname sset n))) )
);if
);if
(setq n (1+ n))
);repeat
tbllst
)
밸브류.dwg
※ 유의사항
- ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^(필수 선택)
- ②Screenshot : 이해를 돕기위해 삽입요망.
- ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.
해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.
- ④제 목 : 질문 내용 반영(개략적인 내용), 예) 해치를 만들고 싶어요, pline을 연결할려면?
금지어(만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등)
- ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.
여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음.
※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.
회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해
검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.
이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.
