포인트캠-AD > 묻고답하기 > 오랜만에 캐드 명령어 문의드립니다.. :)

	게시물 79건

[CAD] 오랜만에 캐드 명령어 문의드립니다.. :)

글쓴이 : 에스텍 날짜 : 2024-05-08 (수) 20:57 조회 : 3070

이게.. 캐드에 명령어가 있는지 문의드립니다! 아시는분 부탁드릴께요 ㅠㅠ

예를 들어서,

파란색 선이 있고,

제가 이 파란색 선에 대해서

특정각도의 빨간색 2선을 그리고 싶은데..

이게.. 쉬운 방법이 있을까요?

파란색라인을,,, 수평으로 조절한다음에 그리는것 말고

저 상태에서 그릴려면..어떻게 해야할까요?

에스텍 님의 묻고답하기 최신글 [더보기]

관리자

2024-05-09 (목) 06:15

에스텍

2024-05-09 (목) 09:19

감사합니다! 다름이 아니오라..

혹시, 요 아이콘 특정버젼 이상부터 있는 기능인지요?

툴바메뉴 다 활성화해놓았는데 찾질 못하고 있어서요 ㅎㅎ

관리자

2024-05-09 (목) 11:00

언제부턴지 잘 모르겠습니다.

오래전부터 있던 기능입니다.

관리자

2024-05-09 (목) 10:58

;; 명령어: TANG

(defun c:TANG (/ ang ent obj sp ep vp)

(or #ang# (setq #ang# 60.0))

(setq ang (getreal (strcat "\n>> 각도 입력 <" (vl-princ-to-string #ang#) ">: ")))

(if ang (setq #ang# ang) (setq ang #ang#))

(while (setq ent (entsel "\n>> 선 선택: "))

(setq obj (vlax-ename->vla-object (car ent)))

(if (/= (vlax-get obj 'ObjectName) "AcDbLine") (exit))

(setq sp (vlax-get obj 'StartPoint) ep (vlax-get obj 'EndPoint))

(setq vp (polar

(mapcar '(lambda (p q) (/ (+ p q) 2)) sp ep)

(+ (angle sp ep) (/ pi 2))

(* (tan (dtr (/ (- 180 ang) 2))) (/ (vlax-get obj 'Length) 2))

))

(entmake (list (cons 0 "LINE") (cons 10 sp) (cons 11 vp) (cons 62 1)))

(entmake (list (cons 0 "LINE") (cons 10 ep) (cons 11 vp) (cons 62 1)))

(setq vp (polar

(mapcar '(lambda (p q) (/ (+ p q) 2)) sp ep)

(- (angle sp ep) (/ pi 2))

(* (tan (dtr (/ (- 180 ang) 2))) (/ (vlax-get obj 'Length) 2))

))

(entmake (list (cons 0 "LINE") (cons 10 sp) (cons 11 vp) (cons 62 1)))

(entmake (list (cons 0 "LINE") (cons 10 ep) (cons 11 vp) (cons 62 1)))

)

(princ)

)

위 코드를 C:/AutoCAM/PcamUserSetup.lsp 에 붙여넣고 사용해 보세요.

명령어: TANG 는 수정하셔도 됩니다.

<div><span style="font-size: 13.3333px;">;; 명령어: TANG</span></div><div><span style="font-size: 13.3333px;">(defun c:<font color="#ff0000"><b>TANG</b></font> (/ ang ent obj sp ep vp)</span></div><div><span style="font-size: 13.3333px;">&nbsp; (or #ang# (setq #ang# 60.0))</span></div><div><span style="font-size: 13.3333px;">&nbsp; (setq ang (getreal (strcat "\n&gt;&gt; 각도 입력 &lt;" (vl-princ-to-string #ang#) "&gt;: ")))</span></div><div><span style="font-size: 13.3333px;">&nbsp; (if ang (setq #ang# ang) (setq ang #ang#))</span></div><div><span style="font-size: 13.3333px;">&nbsp; (while (setq ent (entsel "\n&gt;&gt; 선 선택: "))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (setq obj (vlax-ename-&gt;vla-object (car ent)))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (if (/= (vlax-get obj 'ObjectName) "AcDbLine") (exit))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (setq sp (vlax-get obj 'StartPoint) ep (vlax-get obj 'EndPoint))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (setq vp (polar</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (mapcar '(lambda (p q) (/ (+ p q) 2)) sp ep)</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (+ (angle sp ep) (/ pi 2))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (* (tan (dtr (/ (- 180 ang) 2))) (/ (vlax-get obj 'Length) 2))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; ))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (entmake (list (cons 0 "LINE") (cons 10 sp) (cons 11 vp) (cons 62 1)))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (entmake (list (cons 0 "LINE") (cons 10 ep) (cons 11 vp) (cons 62 1)))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (setq vp (polar</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (mapcar '(lambda (p q) (/ (+ p q) 2)) sp ep)</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (- (angle sp ep) (/ pi 2))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (* (tan (dtr (/ (- 180 ang) 2))) (/ (vlax-get obj 'Length) 2))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; ))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (entmake (list (cons 0 "LINE") (cons 10 sp) (cons 11 vp) (cons 62 1)))</span></div><div><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; (entmake (list (cons 0 "LINE") (cons 10 ep) (cons 11 vp) (cons 62 1)))</span></div><div><span style="font-size: 13.3333px;">&nbsp; )</span></div><div><span style="font-size: 13.3333px;">&nbsp; (princ)</span></div><div><span style="font-size: 13.3333px;">)</span></div><div><span style="font-size: 13.3333px;"><br></span></div><div><span style="font-size: 13.3333px;"><br></span></div><div><span style="font-size: 13.3333px;">위 코드를 C:/AutoCAM/PcamUserSetup.lsp 에 붙여넣고 사용해 보세요.</span></div><div><span style="font-size: 13.3333px;">명령어: TANG 는 수정하셔도 됩니다.</span></div>

에스텍

2024-05-09 (목) 13:26

아..... 최고입니다!!!!!

발가락

2024-12-13 (금) 15:26

DAN