치수 리습입니다. 한번 봐주세요.
컨텐츠 정보
- 826 조회
- 15 댓글
- 0 추천
- 0 비추천
- 목록
본문
우선 며칠전에 이미지 올리는 법을 몰라서 정확한 전달이 안된것 같아서 하기의 블러그에 올리면서 다시한번 글 남김니다.
이미지 블러그 링크 (하기입니다.)
https://blog.naver.com/flashame/222319250178
하기는 해외사이트에서 내려받은 리습니다.
preview(defun C:ADO ( / pt pttext i pti ss)
(if (and (setq pt (getpoint "nSelect origin:")) ;ORIGIN PT UCS
(not (command "_.DIMORDINATE"
"_NON" pt
"_NON" (setq pttext (polar pt 0. 5.))))
(princ "nSelect edges to dimension:")
(setq ss (ssget '((0 . "LINE")))) ;LINE FILTER
(setq i (sslength ss)))
(while (not (minusp (setq i (1- i))))
(command "_.DIMORDINATE"
"_NON" (setq pti (trans (cdr (assoc 11 (entget (ssname ss i)))) 0 1)) ;PT CODE 11 WCS to UCS
"_NON" (list (car pttext)
(cadr pti)
(caddr pti)))))
(princ)
)
첨부 리습시 블러그 이미지의 왼쪽처럼 자동 작성됩니다.
하기와 같이 가능할까요??
1) 단축키 입력시 SELECT ORRIGIN 누를때 0,0점을 선택하고
2) 대상물 선택하면 블러그의 오른쪽 결과치를 얻고 싶습니다.
3) 원하는 치수포인트는 중앙부 쪽은 레이어 1번(센타선)값만을 추출해서 치수로 구현되면 되고 외곽은 그림과 같이 구현했으면 합니다.
4) 동일선상의 치수점은 가장외곽꺼만 구현을 원합니다.
고수님들의 도움이 절실합니다.
PS: 이전에 올린 글은 본글과 동일한 내용의 글로 삭제 하도록 하겠습니다.
관련자료
무니미니님의 댓글
수야12님 정말 최고세요!! 항상 좋은 일만 있으시길 바랄께요 문제는 회사에 너무 하위버전을 쓰고 있어서 그런것 같아요 상위버전에서는 잘돌아갑니다. 그런데 조금의 문제점이 보여서 염치없지만 하기 블러그에 올립니다. https://blog.naver.com/flashame/222324990285 그리고 항상 오른쪽 하단이 0,0이 아니라 원점 선택하게끔도 가능할까요?? 그럼 금상첨화일것 같습니다. 항상감사하고 죄송합니다.