포인트캠-AD > 묻고답하기 > NC파일출력때, 화살표크기(?) 변경법 궁금해요

	게시물 1,200건

[포인트캠] NC파일출력때, 화살표크기(?) 변경법 궁금해요

글쓴이 : 에스텍 날짜 : 2024-01-31 (수) 00:03 조회 : 1260

NC파일 출력할때

C~ 이렇게 있을때

출력을 하게 되면 어프로치에

-> <- 이거 방향 화살표 생기잖아요?

이것의 전체적인 크기를 조절하고 싶은데 방법이 궁금합니다!

^-^

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

관리자

2024-01-31 (수) 12:23

<포인트캠셋팅><기종설정...>

[6240] ;; 가공방향표시 크기 (0=표시안함, 음수값=표시후삭제)

1.5

입니다.

에스텍

2024-02-01 (목) 09:32

감사합니다!!

테스트를 해보니깐..

리드인의 길이에 따라서 문자크기가 허용되는 범위가 있던데..

예들 들어서 리드인 거리가 1일 경우에 (열린형상)

화살표 크기가 0.5 정도밖에 안되어서요.

혹시..이걸 강제적으로 더 크게 할수있을까?..궁금합니다!

관리자

2024-02-02 (금) 09:37

일괄적으로 변경하는 기능은 없습니다.

아래 코드를 C:/AutoCAM/PcamUserSetup.Lsp 파일의

맨하단에 붙여넣고 사용해 보세요.

;; CTDS : 가공표시블록 크기 변경

(defun c:CTDS() (c:ChangeToolDirSize))

(defun c:ChangeToolDirSize ( / i h s b o )

(setq i 0)

(if (and

(setq s (getreal "\n가공표시블록 크기입력: "))

(setq b (ssget '((0 . "INSERT") (2 . "Tool_Dir"))))

) (progn

(foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex b)))

(setq o (vlax-ename->vla-object e))

(vlax-put o 'XEffectiveScaleFactor s)

(vlax-put o 'YEffectiveScaleFactor s)

(vlax-put o 'ZEffectiveScaleFactor s)

(setq i (1+ i))

)

))

(princ (strcat "\n>> " (itoa i) "개 변경되었습니다."))

(princ)

)

일괄적으로 변경하는 기능은 없습니다.<div>아래 코드를 C:/AutoCAM/PcamUserSetup.Lsp 파일의</div><div>맨하단에 붙여넣고 사용해 보세요.</div><div><br></div><div><div><font color="#ff0000"><span style="font-size: 13.3333px;">;; CTDS : 가공표시블록 크기 변경</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">(defun c:CTDS() (c:ChangeToolDirSize))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">(defun c:ChangeToolDirSize ( / i h s b o )</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; (setq i 0)</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; (if (and</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (setq s (getreal "\n가공표시블록 크기입력: "))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (setq b (ssget '((0 . "INSERT") (2 . "Tool_Dir"))))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; ) (progn</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; (foreach e (vl-remove-if 'listp (mapcar 'cadr (ssnamex b)))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (setq o (vlax-ename-&gt;vla-object e))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (vlax-put o 'XEffectiveScaleFactor s)</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (vlax-put o 'YEffectiveScaleFactor s)</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (vlax-put o 'ZEffectiveScaleFactor s)</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; (setq i (1+ i))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; &nbsp; &nbsp; )</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; ))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; (princ (strcat "\n&gt;&gt; " (itoa i) "개 변경되었습니다."))</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">&nbsp; &nbsp; (princ)</span></font></div><div><font color="#ff0000"><span style="font-size: 13.3333px;">)</span></font></div></div>