포인트캠-AD > 묻고답하기 > 점찍고 라인지우기... 이상함.. ㅠㅠ

	게시물 1,223건

[포인트캠] 점찍고 라인지우기... 이상함.. ㅠㅠ

글쓴이 : 에스텍 날짜 : 2012-10-29 (월) 12:18 조회 : 3172

TEST.dwg (76.9K), Down : 4, 2012-10-29 12:18:44

지금 요 도면에서만 이상해요..
그대로 복사해서 새로 도면 만들면 괜찮은데..

밑에 선분의 중심점에 점찍고라인지우기 를 실행하면..

중심에 안 찍히고 살짝 옆으로 포인트가 생성되는데..

다른분들도 테스트 좀.. ㅠ_ㅠ

-------
원래 처음 명령어를 몰라서.. 제가 PP로 수정을 해놓은거라..

(defun c:PP( / ucsorg p1 ssg)
(setq ucsorg (getvar "ucsorg"))
(setq p1 (getpoint "\n-\n>> 포인트 위치지정: "))
(setq ssg (ssget "c" p1 p1 (list (cons 0 "LINE,ARC,CIRCLE"))))
(if ssg (command "_erase" ssg "")) ;;선이 있으면 삭제
(command "_point" "_non" (wpt2upt p1))
(princ)
)
-----

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

시왕

2012-10-29 (월) 14:15

;; 점찍고 라인지우기
(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,ARC,CIRCLE"))))
(if ssg (command "_erase" ssg "")) ;;선이 있으면 삭제
(command "_point" "_non" p1)
(princ)
)

관리자

2012-10-30 (화) 09:17

시왕님, 이 프로그램도 잘못된 것입니다.

관리자

2012-10-30 (화) 09:17

(defun c:PP( / ucsorg p1 ssg)
(setq ucsorg (getvar "ucsorg"))
(setq p1 (getpoint "\n-\n>> 포인트 위치지정: "))
(setq ssg (ssget "c" p1 p1 (list (cons 0 "LINE,ARC,CIRCLE"))))
(if ssg (command "_erase" ssg "")) ;;선이 있으면 삭제
(command "_point" "_non" p1) ;;수정
(princ)
)

;; 프로그램이 잘못되었습니다.
;; 적색부위 수정했습니다.

에스텍

2012-10-30 (화) 09:19

감사합니다.~~~