포인트캠-IT > 묻고답하기 > <GSTARCAD> PP 적용이 안 되어요.

[ 인텔리캐드용 포인트캠 - 묻고답하기 ]

	게시물 6건

<GSTARCAD> PP 적용이 안 되어요.

글쓴이 : 에스텍 날짜 : 2011-12-15 (목) 19:40 조회 : 1928

;; 점찍고 라인지우기
(defun c:PP( / 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" (wpt2upt p1))
(princ)
)

이게 적용이 안 되네요.. 음..

관리자

2011-12-17 (토) 13:27

GSTAR 에는 wpt2upt 함수가 없어서 안됩니다.

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

;;위 처럼 수정하면 됩니다.

에스텍

2011-12-17 (토) 13:34

오홋.
감사합니다.