포인트캠-AD > 묻고답하기 > [RE]뽀인트 찍는 것중 이런 기능이 혹시 있는가요?

	게시물 1,203건

[CAM] [RE]뽀인트 찍는 것중 이런 기능이 혹시 있는가요?

글쓴이 : 에스텍 날짜 : 2011-07-07 (목) 09:33 조회 : 2261

저렇게 형상이잇을때..
저는 일단 주로 밑에 하나 뽑아놓은 것 처럼

리드인아웃라인을 다 해놓고..
동그라미 표시해놓은 부분에서 진입을 한다고 가정하면..
점을 찍고, 라인을 delete 해준다음 어프로치를 작도하는데요..

점을 찍을때..그 점에 end 포인트가 있는 선분을 동시에 지울수 있는지 궁금합니다. -_-;;;

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

관리자

2011-07-07 (목) 11:04

아래 내용을 C:\AutoCAM\PcamUserSetup.Lsp 에 추가해서 사용하세요.
명령: PNTDELLINE

;; 점찍고 라인지우기
(defun c:PNTDELLINE( / ucsorg p1 ssg)
(setq ucsorg (getvar "ucsorg"))
(setq p1 (getpoint "\n-\n>> 포인트 위치지정: "))
(setq ssg (ssget "c" (wpt2upt p1) (wpt2upt p1) (list (cons 0 "LINE"))))
(if ssg (command "_erase" ssg "")) ;;선이 있으면 삭제
(command "_point" "_non" p1) ;;수정된 부분
(princ)
)

에스텍

2011-07-07 (목) 13:57

감사합니다~~~

관리자

2011-07-07 (목) 14:07

(command "_point" "_non" (wpt2upt p1))

이것을
아래와 같이 수정했습니다.

(command "_point" "_non" p1)