2013.12.26 09:09
예전에 가지고 있었는데 삭제되었네요.ㅡㅡ;;;
치수보조선 정렬해주는 리습이 필요합니다.
부탁드립니다.꾸벅
2013.12.26 12:26
2013.12.26 13:06
고캐드에 올라온 자료가 있는데 명령어는 먹는데 최종결과에서 오류가 나네요. 혹시 오류를 찾아주실수 있으련지요?
첨부파일을 첨부하여 봅니다.
;;========================================================
; 치수선 및 보조선 정렬하기(2004.3 주말농부)
; ->Dim의 치수선 및 보조선 끝을 일정하게 정렬하는 명령어
; ->사선으로된 치수선도 정렬됨(2007.4)
; ->치수선 및 보조선 정렬(2008.3)
;;------ Dimension Arrange -------------------------------
(defun c:da(/ ss ssn k ed p10 p13 p14 ag ag90 pt1 pt2 pt3)
(prompt "...치수선 및 보조선 정렬하기")
(prompt "\n변경할 치수을 선택->")
(setq ss (ssget '((0 . "DIMENSION"))))
(setq pt1 (getpoint "\n정렬점 선택->"))
(setq ssn (sslength ss))
(setq ed (entget (ssname ss 0)))
(setq p14 (dxf 14 ed))
(setq p10 (dxf 10 ed))
(setq ag (angle p14 p10))
(setq ag90 (+ ag (/ pi 2)))
(setq ds1 (distance pt1 p10))
(setq ds2 (distance pt1 p14))
(setq k 0)
(if (< ds1 ds2)
(repeat ssn
(setq ed (entget (ssname ss k)))
(setq ed (subst (cons 10 pt1) (assoc 10 ed) ed))
(entmod ed)
(setq k (+ k 1))
)
(repeat ssn
(setq ed (entget (ssname ss k)))
(setq p13 (dxf 13 ed))
(setq p14 (dxf 14 ed))
(setq p10 (dxf 10 ed))
(setq pt2 (polar pt1 ag90 100))
(setq pt3 (polar p13 ag 100))
(setq pt14 (inters pt1 pt2 p14 p10 nil))
(setq pt13 (inters pt1 pt2 p13 pt3 nil))
(setq ed (subst (cons 13 pt13) (assoc 13 ed) ed))
(setq ed (subst (cons 14 pt14) (assoc 14 ed) ed))
(entmod ed)
(setq k (+ k 1))
)
)
(prin1))
2013.12.26 15:49
제가 할 수 있는 프로그래밍 언어는 드림을 만든 VB, VBA와 .NET 언어밖에 모릅니다.
리습언어는 올려주셔도 저도 까막눈이라 수정이 불가능합니다. ^^
2013.12.26 19:12
아네 잘 알겠습니다. 꾸벅
번호 | 제목 | 글쓴이 | 날짜 | 조회 수 |
---|---|---|---|---|
공지 | ★ 드림플러스 질문은 메일 또는 홈페이지에 부탁합니다 ★ | 아저씨 | 2017.05.16 | 2775 |
공지 | 제목이 엉망이면 답변달지 않습니다. [1] | 아저씨 | 2014.04.04 | 23854 |
공지 | 순수 캐드 질문은 고캐드로 | 아저씨 | 2013.05.28 | 68641 |
공지 | 질문 답변 게시판을 만들었습니다. | 아저씨 | 2013.02.09 | 74943 |
1624 | cad2011 사용자입니다.. 드림을 설치하고 나서 캐드실행시 드림의 도구막대가 이상해요 [1] | 동글이 | 2014.01.10 | 983 |
1623 | 블록 기준점 변경시(RBI) 임의의 이름으로 블록이 같은 자리에 생성하고 기준점 변경이 됩니다. [1] | 가가 | 2014.01.10 | 752 |
1622 | DVIEW 에 관한 질문 입니다. [1] | 에우세비오 | 2014.01.12 | 1 |
1621 | 선의 길이의 합을 구하는 방법? [1] | 더펄이 | 2014.01.14 | 937 |
1620 | 지형도에서 임의의 지점에 대한 Z값 [1] | 어누 | 2014.01.15 | 560 |
1619 | CAD 삭제관련하여 질문드립니다. [1] | 에게로 | 2014.01.16 | 600 |
1618 | 캐드 실행시 파일로드-보안경고가 뜨는데요...(사진첨부) [1] | 드림만세 | 2014.01.17 | 1144 |
1617 | 에러 메세지 질문. [1] | 두둥 | 2014.01.17 | 563 |
1616 | 발파암 10m높이 소단을 넣을수 있을까요? [4] | 이명훈 | 2014.01.18 | 658 |
1615 | 드림 기능 사용하려고하면..... [1] | 강티 | 2014.01.20 | 625 |
1614 | 계산기가 열리지 않습니다. [1] | 조곤조곤 | 2014.01.21 | 796 |
1613 | 확인버튼 Default 지정 문제 [2] | 주원아빠 | 2014.01.21 | 605 |
1612 | 지정된 도면을 찾을 수 없습니다. [1] | 뽜이야 | 2014.01.22 | 1433 |
1611 | 객체 길이 쓰기(CL) 관련 문의 드립니다. [1] | 강경완 | 2014.01.22 | 637 |
1610 | 445번 질문 메일주소 답변으로 넣어놨습니다. [1] | 이명훈 | 2014.01.23 | 531 |
저도 제가 일하는 분야에대해서만 리습을 한두개 사용할 뿐이고 가지고 있는 리습은 없습니다.
고캐드나 DAUM 카페 중 '아키모아'에서 찾아보시거나 요청하셔야할 것 같습니다.
혹시 드림을 사용하신다면 DEX 명령을 사용하면 됩니다.