none
AutoAcad Dim Style 수정후 저장 방법 문의 RRS feed

  • 질문

  • 항상 감사 합니다.

    dim style을 만들고 복사 하고  설정 까지 는 됩니다.

    Dim scale을 수정하면 전체 치수가 수정 되야 하는데

    치수 스타일 관리자에 가면 스타일 재지정이 뜨는데  왜 그런 건가요

    무엇을 하면 될까요  알려 주심 감사 하겠습니다.

    바로 저장 하고 싶습니다.

     Imports AutoCAD 'AUTOACAD
     Imports AutoCAD.AcadDocumentClass 'AUTOACAD

      Dim acadApp As AutoCAD.AcadApplication
      Dim acadDoc As AutoCAD.AcadDocument
      Dim acadutil As AutoCAD.IAcadUtility
      Dim moSpace As AutoCAD.AcadModelSpace
      Dim layerObj As AcadLayer    '레이어
       
      acadDoc = acadApp.Documents.Open(DWGNAME) ', False)
      acadDoc = acadApp.ActiveDocument
      acadutil = acadDoc.Utility
      moSpace = acadDoc.ModelSpace
     '===========================================================
      '치수스타일 만들고, 복사 하고, 설정 한다.
       Dim new_2 As AcadDimStyle
       new_2 = acadDoc.DimStyles.Add(장비번호 & "_DIM 15")   '만들기
       Call new_2.CopyFrom(acadDoc.DimStyles.Item("DIM 15")) '기존 DIMSTYLE 복사
       acadDoc.ActiveDimStyle = new_2                        '설정
      

       acadDoc.SetVariable("Dimscale", 15) 'DIM SCALE 변경
       acadDoc.Regen (AcRegenType.acAllViewports)


    • 편집됨 박희철 2017년 2월 17일 금요일 오전 6:32
    2017년 2월 17일 금요일 오전 6:30

모든 응답