홈/ 질문/Q 107858
다음
진행 중
☆성이
Lv.0
등록일: 2017-01-20T10:42:13+09:00 카테고리:

포인트 선결한후 포인트에서 벗어난것 에러 체크

안녕하세요..
 포인트 선연결한후 포인트에서 벗어나는(버텍스) 선 에러체크 하는 리습이나 캐드 명령어로 에러 체크 할수 있는 방법좀  갈켜주세요

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. (defun c:123 ( / p tol chk)
      (setvar “cmdecho” 0)
      (command “_undo” “_be”)
      (foreach x (ssnamex (ssget ‘((0 . “insert”) (2 . “supd”))))
      (and
      (not (listp (cadr x)))
      (progn
      (setq p (cdr (assoc 10 (entget (cadr x)))))
      (command “_zoom” “_c” p “2”)
      (setq tol ‘(1e-8 1e-8) chk (ssget “c” (mapcar ‘- p tol) (mapcar ‘+ p tol) ‘((0 . “LWPOLYLINE”))))
      (command “_zoom” “_p”)
      (null chk)
      )
      (entmake (list (cons 0 “CIRCLE”) (cons 10 p) (cons 40 1)))
      )
      )
      (command “_undo” “_e”)
      (princ)
      )
      • 0
    3. Lv.0

      뭐하남님 매우 감사합니다~~~~~

      • 0