선 간격 끊기
컨텐츠 정보
- 234 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
아래 리습은 아키모아 리습입니다.
수정을 요청했었는데 답문이 없어서 고캐드에 한번 올려봅니다.
line,pline, arc, spline도 사용할수 있게 리습이 만들어 진건데 제가 쓸려고 해보니 line만 적용되고 pline, arc, spline은 안되더라구요..
혹시 cad 버전 마다 안되는게 있나요??
그리고 추가기능을 조금더 부탁드립니다.
간격과 끊을 거리는 기입하면 한번만 되는데 횟수도 부여 가능한가요??
간격과 끊을 거리 횟수랑 객체 길이 전부다 적용 이두가지 기능 부탁드립니다.
(추신 : CIRCLE 에는 적용이 힘든가요..가능하다면 부탁드립나다~^^)
(defun c:bbb (/ *error* os en e ps pe p1 ang)
(vl-load-com)
(defun *error* (msg)(setvar 'osmode os)
(if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
(princ (strcat "n** Error: " msg " **")))(princ)
)
(and
(setq os (getvar 'osmode))
(setvar 'osmode 0)
(setq en (entsel "n라인선택: "))
(setq e (car en))
(= (cdr (assoc 0 (entget e))) "LINE")
(or _length (setq _length 1))
(setq _length (cond ((getdist (strcat "n끝선길이<" (rtos _length) ">: ")))(_length)))
(or _breakDis (setq _breakDis 1))
(setq _breakDis (cond ((getdist (strcat "n끊을거리<" (rtos _breakDis) ">: ")))(_breakDis)))
(setq ps (cdr (assoc 10 (entget e))))
(setq pe (cdr (assoc 11 (entget e))))
(if (< (distance (cadr en) ps)(distance (cadr en) pe))
(setq p1 ps ang (angle ps pe))(setq p1 pe ang (angle pe ps))
)
(vl-cmdf "_break" (polar p1 ang _length)(polar p1 ang (+ _length _breakDis)))
(setvar 'osmode os)
)(princ)
)(princ)