;;====================================================================
;; 포인트 찾기
;; www.pointcam.co.kr
;;====================================================================
(defun c:SeekPoint ( / p1 p2 ssg n)
    (command "_ucs" "w")
    (setq p1 (getpoint "\n>> 포인트 찾기 : 첫번째 코너지정: "))
    (setq p2 (getcorner p1 "\n>> 포인트 찾기 : 두번째 코너지정: "))

    (setq ssg (ssget "c" p1 p2 (list (cons 0 "POINT"))))
    (if ssg (progn
        (setq n 0)
        (repeat (sslength ssg)
             (command "_line" "_non" p1 "_non" (cdr (assoc 10 (entget (ssname ssg n)))) "")
             (command "_change" (entlast) "" "p" "c" 6 "") 
             (setq n (1+ n))
        )
        (princ "\n>> 포인트 수 : ")(princ n)
    ) (progn
        (alert "POINT가 없습니다.")
    ))
    (princ "\n>> PointCAM....^_^...")
    (princ)
)