[2D/3D CAD] 전문기술포털 3D 메카

인기검색어 : 솔리드웍스, 인벤터, 동영상, 강좌, 3d

HOME > 2D MECHA

▶서비스팩

▶LISP

▶FONT

▶지원 PROGRAM

▶CAD자료실

제목	Break at Circle (원 제자리 브레이크)
이름	admin 추천하기 0	작성일	2008-11-18 09:26:11

Break at Circle

===================================================

;| 원 브레이크 |;

(defun c:BRKC (/ os pt1 pt2 a pt3)

(setq os (getvar "osmode"))

(setvar "osmode" 512)

(setq pt1 (getpoint "\nFirst Break in Circle : "))

(setq pt2 (getpoint "\nSecond Break in Cricle : "))

(setq a (entget (ssname (ssget pt1) 0)))

(setq pt3 (cdr (assoc 10 a)))

(command "break" pt1 pt2)

(command "arc" pt1 "e" pt2 pt3)

(setvar "osmode" os)

(princ)

)

(princ)

========================================================

작성자 : 메카피아 기술카페 기술스텝 수하님

총 : 0 개의 댓글이 등록되어 있습니다.

	No	작성자	내용	등록일	삭제
작성된 댓글이 없습니다.

번호	제목	등록자	등록일	히트	추천
	2D메카 OPEN 안내입니다.	admin	2008-09-27	32767	0

	[LISP] Break at Circle (원 제자리 브레이크)	admin	2008-11-18	32767	0

10	[LISP] [Lisp] 캐드 바탕색 전환 - 색약자를위한......	admin	2008-11-13	32767	0

9	[LISP] 관로망 리습		2008-11-11	32767	0

8	[LISP] 연속 옵셋 복사	admin	2008-09-29	32767	0

7	[LISP] 캐드 내부명령 dimordinate 을 이용한 XY좌표 치수 입력 리습.....	admin	2008-09-29	32767	0

6	[LISP] 다수의 문자를 클릭해서 차례대로 수정하는 lisp...	admin	2008-09-29	32767	0

5	[LISP] 원 중심선 그리는 lisp	admin	2008-09-29	32767	0

4	[LISP] 리습 사용 후 오스냅(osnap) 이 풀릴때	admin	2008-09-29	32767	0

3	[LISP] 캐드에서 개인 환경설정 파일열기	admin	2008-09-29	32767	0

2	[LISP] 탭치수 자동 넣기 리습 다른 예제	admin	2008-09-29	32767	0