포인트캠-AD > 묻고답하기 > 점찍고 라인지우기 문의입니당.

	게시물 1,200건

[포인트캠] 점찍고 라인지우기 문의입니당.

글쓴이 : 에스텍 날짜 : 2012-08-27 (월) 12:59 조회 : 2223

;; 점찍고 라인지우기
(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)
)

안녕하세용.
^-^
위 명령어 정말 잘 사용하고 있는데요.
arc 와 circle 에 대해서도 적용하고 싶습니다.
방법이 있을까요

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

관리자

2012-08-27 (월) 19:15

;; 점찍고 라인지우기
(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) ;;2012-10-30 수정
(princ)
)

;; 위 적색부분을 수정해 보세요.

관리자

2012-10-30 (화) 09:19

청색부위도 수정되었습니다.

JC악동

2012-08-28 (화) 09:51

감사합니다