비밀번호를 잊으셨나요?

비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.

계정이 있나요? 로그인

You must login to ask a question.

비밀번호를 잊으셨나요?

아직 계정이 없으신가요? 회원가입 하기

해당 질문을 신고하는 이유를 간단히 입력해주세요.

해당 답변을 신고하는 이유를 간단히 입력해주세요.

해당 유저를 신고하는 이유를 간단히 입력해주세요.

로그인회원가입

고캐드 – 캐드(CAD) 정보의 중심

고캐드 – 캐드(CAD) 정보의 중심 Logo 고캐드 – 캐드(CAD) 정보의 중심 Logo

고캐드 – 캐드(CAD) 정보의 중심 Navigation

  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
검색
질문하기

Mobile menu

닫기
질문하기
  • 홈
  • 카테고리
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 투표
  • 커뮤니티 그룹
  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
홈/ 질문/Q 102610
다음
진행 중
Lv.0
등록일: 2014-11-102014-11-10T14:42:41+09:00 2014-11-10T14:42:41+09:00카테고리: AutoCAD & CADian

원하는 도형 내부 개체나 외부 개체 일괄 선택해주는 리습 도와주세요!!!

안녕하세요~!

제가 원하는것은 원하는 도형 내부 개체나 외부 개체 일괄 선택해주는 리습인데요

홈페이지 검색결과 원 내부나 외부 개체 일괄 선택해주는 리습은 찾았습니다~!

이 리습에서 원이 아닌 다양한 형태에도 적용가능하게끔 수정 부탁드립니다!!!

이리저리 만져 봤으나 제대로 적용이 안되서 그러는데 선배님들 도와주세요~!!

;;;ⓒ Kor_Storm 2013
(defun c:test( / LM:SelectIf circle ent cp r pt io dis a ang ps iss oss)
 (defun LM:SelectIf ( msg pred func keyw / sel ) (setq pred (eval pred)) 
  (while
   (progn (setvar ‘ERRNO 0) (if keyw (apply ‘initget keyw)) (setq sel (func msg))
    (cond
     ((= 7 (getvar ‘ERRNO))
      (princ “n선택된 것이 없습니다.”)
     )
     ((eq ‘STR (type sel))
      nil
     )
    ((vl-consp sel)
     (if (and pred (not (pred sel)))
      (princ “n유효하지 않는 객체 선택.”)
     )
    )
   )
   )
  )
  sel
 )
 (setvar “cmdecho” 0)
 (sssetfirst)
 (and
  (setq circle
   (car
    (LM:SelectIf “n원 선택: “
     (lambda ( x ) (eq “CIRCLE” (cdr (assoc 0 (entget (car x)))))) entsel nil
    )
   )
  )
  (progn
   (setq ent (entget circle) cp (cdr (assoc 10 ent)) r (cdr (assoc 40 ent)))
   (while
    (null
     (and
      (setq pt (getpoint “n원의 내부 혹은 외부 선택:”))
      (setq io
       (cond
        ((eq (setq dis (distance cp pt)) r)
         (princ ” 선택 점이 원객체 위에 있음.”)
         nil
        )
        ((< dis r) (princ ” <내부>”) 1)
        ((> dis r) (princ ” <외부>”) 2)
       )
      )
     )
    )
   )
   (setq a (/ pi 180) ang 0 ps nil)
   (repeat 360
    (setq ps (cons (polar cp ang r) ps) ang (+ ang a))
   )
   (command “zoom” “o” circle “”)
   (setq iss (ssget “cp” ps))
   (command “zoom” “p”)
   (if (= io 1)
    ;내부
    (and
     iss
     (setq iss (ssdel circle iss))
     (sssetfirst nil iss)
    )
    ;외부
    (if (setq oss (ssget “x”))
     (progn
      (if iss
       (foreach en (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex iss)))
        (setq oss (ssdel en oss))
       )
      )
      (sssetfirst nil oss)
     )
    )
   )
  )
 )
 (princ)
)

  • 0
  • 1 1 답변
  • 11 조회
공유
  • Facebook

    관련 있는 질문들

    • 선배님들 덕트 엘보 작성 리습좀 봐주세요
    • insert 삽입할때 레이어도 같이 변경가능할까요?
    • 캐드 파일을 PDF로 변환 할 때 문제점 도와주세요 ㅠ
    • 질문오토캐드 라인타입이 너무 많은데 어떻게 정리하나요..

    1 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. [Deleted User]
      2014-11-10T14:45:57+09:00답변 등록 답변 등록 일시 2014-11-10 2:45 pm

      여러 개체 선택 후 그 도형들의 내부 or 외부 선택 가능하게끔 수정가능하면 수정 부탁드릴께요~!

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter

    Sidebar

    질문하기
    공지사항

    • AI CAD의 미래! 캐디안 2025 1+1 프로모션 안내 2025-05-14

    Adv 234x60

    aalan

    Adv 234x60

    aalan

    Adv 120x600

    aalan

    Explore

    • 홈
    • 카테고리
      • AutoCAD & CADian
      • Inventor & Solidworks
      • Revit & ArchiCAD
      • 자유질문
      • 기타
    • 투표
    • 커뮤니티 그룹
    aalan

    Footer

    Support

    • 회사 및 서비스 소개
    • 자주 묻는 질문
    • 문의하기

    Guide

    • 제휴/협업 안내
    • 광고 서비스 안내

    Policy

    • 서비스 이용약관
    • 개인정보 처리방침
    • 광고성 정보 수신 동의

    Contents

    • 고밍스토리
    • 리습 시리즈

    정소프트 | 사업자등록번호 : 677-40-00198 | 대표 : 정은숙 | 이메일 : gocad.manager@gmail.com
    주소 : 서울특별시 강서구 양천로 400-12, 6층 614,615,617호(등촌동, 더리브골드타워)
    Copyright. 2012-2024 GOCAD All rights reserved