비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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 155676
다음
진행 중
Lv.0
등록일: 2010-03-222010-03-22T19:33:04+09:00 2010-03-22T19:33:04+09:00카테고리: Inventor & Solidworks

메크로 로 삭제한 구성요소 값 복구는 않되는 건가요?

질문 – 메크로 로 삭제한 구성요소 값 복구는 않되는 건가요?

           얼마전에 조립품 구성요소 때문에 질문을 올린 적이 있습니다.
           답글을 따라 해서 성공 했습니다. (님 감사해요^^)
          
           하다보니 한가지 더 궁굼 증이 나네요 
           
     Public Sub DELETE_CONSTRAINTS()
    Dim oAsmCompDef As AssemblyComponentDefinition
    Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
    Dim bDelete As Boolean
    If MsgBox(“Do you want to delete all existing constraints?”, vbYesNo + vbQuestion) = vbYes Then
        bDelete = True
    Else
        bDelete = False
    End If
    Dim oConstraint As AssemblyConstraint
    For Each oConstraint In oAsmCompDef.Constraints
        If bDelete Then
            oConstraint.DELETE
        Else
            oConstraint.Suppressed = True
        End If
    Next



End Sub
           
           을 메크로 코드로 입력 해서 실행후 보니 억제가 아니고 삭제더라구요 ^^
           삭제된 구성요소를 불러 오거나 삭제가 아닌 구성요소 조건은 남아 있고 언제만 되어 있게
          하지는 못하는 건가요 ^^::::::
        
          그리고 저도 그런 코드 짜서 해보고 싶은데 메크로 공부 할수 있는 페이지나 책은 없나요?
         

  • 0
  • 5 5 답변
  • 29 조회
공유
  • Facebook

    관련 있는 질문들

    • 인벤터 드라이브 기능을 ilogic에서 구현
    • 인밴터 모형 만들기
    • 이거 동영상처럼 판금전개도를 어찌 잡아야할까요??
    • 혹시 도면 검토 받을 수 있을까요?

    5 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. [Deleted User]
      2010-04-05T10:19:14+09:00답변 등록 답변 등록 일시 2010-04-05 10:19 am

      오~~~~ 감사합니다.!
      되는구요 ^^

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    3. [Deleted User]
      2010-03-26T22:37:36+09:00답변 등록 답변 등록 일시 2010-03-26 10:37 pm

      Public Sub DELETE_CONSTRAINTS()
          Dim oAsmCompDef As AssemblyComponentDefinition
          Set oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
          Dim bDelete As Boolean
          If MsgBox(“구속조건억제(yes 버튼),구속조건억제해지(no 버튼)”, vbYesNo + vbQuestion) = vbYes Then
              bDelete = True
          Else
              bDelete = False
          End If
          Dim oConstraint As AssemblyConstraint
          For Each oConstraint In oAsmCompDef.Constraints
              If bDelete Then
                  oConstraint.Suppressed = True
              Else
                  oConstraint.Suppressed = False
              End If
          Next

      End Sub

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    4. [Deleted User]
      2010-03-26T10:27:34+09:00답변 등록 답변 등록 일시 2010-03-26 10:27 am

      아 그러네요 ^^ 지송지송  “yse -> 삭제   no ->  억제
      혹시 ” yse -> 억제 해지   no -> 억제” 이런 식으로는 편집이 되나요??

              If bDelete Then
                  oConstraint.DELETE  
      <- 여기에 명령 실행시 구속조건 해지 명령?? 비슷한거 넣으면…..(뭘넣지?)
              Else
                  oConstraint.Suppressed = True
              End If

      간단하게 말해서    기존은 “삭제/억제” 인데 “억제해지/억제”로 편집이 될까 싶어서…..ㅠ..ㅠ

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    5. [Deleted User]
      2010-03-22T22:48:30+09:00답변 등록 답변 등록 일시 2010-03-22 10:48 pm

      그리고 한번 삭제한 구속조건은 복구가 힘들것같습니다. ^^;;

      삭제란 기능자체가 어디 정보를 보관하는게 아니라 삭제해버리는 기능이라

      벡업파일 복구나 기능 실행후 바로  undo  기능 실행하는것 이외에는

      불가능 아닐까요 ^^

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    6. [Deleted User]
      2010-03-22T22:37:10+09:00답변 등록 답변 등록 일시 2010-03-22 10:37 pm

      제가 답한 질문인것 같네요 ^^

      그때도 말씀드렸는데 .. 메크로 실행하면 뜨는 창에서 no 버튼 누르면 전체 구속조건이 억제됩니다.

      (yes 버튼은 삭제 기능입니다.)

      위의 메크로 중에서 아래 내용을 유심히 보시면

      If bDelete Then
                  oConstraint.DELETE
              Else
                  oConstraint.Suppressed = True
              End If

      ‘bDelete’  변수가 true 인 경우 oConstraint.DELETE 명령이 실행되어서 구속조건을 삭제하고 

      ‘bDelete’  변수가 false인 경우 oConstraint.Suppressed = True 실행되어 구속조건이 억제됩니다

      • 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