인벤터 I-LOGIC) IDW 자동화된 중심선 (Automated Centerlines)

[ickis1492]

자동화된 중심선 넣기를 여러번 클릭해야 하는 것이 귀찮아서

자동화된 중심선을 도면에 나와있는 전체 뷰에 적용 하도록 하는 로직을 만들고 있습니다.
해외포럼에서 비슷한 녀석을 찾아서 적용하였는데.

이런 적용만 가능 하더군요. 하지만 제가 원하는 스타일은 아래와 같습니다.

패턴 중심선은 안되더라도 원형(실린더) 피처 측면으로 중심선을 넣을 수 있도록 수정을 하고 있는데 어려움을 겪고 있습니다.

자동화된 중심선의 셋팅에 맞춰서 중심선을 만들 수 있는 방안이 있으면 조언 부탁드립니다.
아래는 코드 남겨 놓습니다.

Dim oDrawingDoc As DrawingDocument = ThisApplication.ActiveDocument ' 활성 도면 문서 설정
Dim oSheet As Sheet = oDrawingDoc.ActiveSheet ' 활성 시트 설정
Dim oView As DrawingView ' 각 뷰를 담을 변수 선언
' 모든 뷰를 순회
For Each oView In oSheet.DrawingViews
    ' 각 뷰의 도형 곡선을 순회
    Dim oCurve As DrawingCurve
    For Each oCurve In oView.DrawingCurves
        ' 곡선이 원 또는 원호일 경우
        If oCurve.ProjectedCurveType = Curve2dTypeEnum.kCircleCurve2d Or _
            oCurve.ProjectedCurveType = Curve2dTypeEnum.kCircularArcCurve2d Then
            ' 중심 마크를 추가할 지오메트리 의도 생성
            Dim intent1 As GeometryIntent
            intent1 = oSheet.CreateGeometryIntent(oCurve)
            ' 중심 마크 추가
            oSheet.Centermarks.Add(intent1)
        End If
    Next
Next

[손광호 · Accepted solution]

안녕하세요..

저도 해외 포럼에서 유사한거를 찾아 작업에 쓰고 있는데 원하시는 측면 설정도 가능합니다.

oSettings 의 값들이 우측 설정하는 창의 내용이 포함되어 있어 

필요한 부분만 True 하고 필요없으시면 False 하시면 될듯 합니다.

하기 소스도 저도 퍼와서 쓰지만 출러가 어디인지 기억은 안나네요..

작업 해보시고 안되시면 댓글 달아주세요~

--------------------------------------------------------------------------------

Dim oSheet As Sheet = ActiveSheet.Sheet
For Each oView As DrawingView In oSheet.DrawingViews
	Dim oSettings As AutomatedCenterlineSettings
	'Get the settings
	oView.GetAutomatedCenterlineSettings(oSettings)
	'Set the settings
	oSettings.ApplyToBends = True
	oSettings.ApplyToCircularPatterns = True
	oSettings.ApplyToCylinders = True
	oSettings.ApplyToFillets = True
	oSettings.ApplyToHoles = True
	oSettings.ApplyToPunches = True
	oSettings.ApplyToRectangularPatterns = True
	oSettings.ApplyToRevolutions = True
	oSettings.ApplyToSketches = True
	oSettings.ApplyToWorkFeatures = True
	
	oSettings.ProjectionNormalAxis = True
	oSettings.ProjectionParallelAxis = True
	'Apply the settings
	oView.SetAutomatedCenterlineSettings(oSettings)
Next

i = MessageBox.Show("중심선이 추가 되었습니다.", "결과", MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1)

[ickis1492]

감사합니다.. 올린지 오래된 글이라서 모두 잋어버리고 있는줄 알 았는데.. 이런 좋은 솔루션을 받게 되서 감사합니다.

언제나 좋은 글 좋을 답변 감사드립니다...^^

[hyosun_jung]

@손광호 어제 오늘 눈이 많이 왔는데 출근에 어려움은 없으셨는지요~? 조심스럽게 요청드렸는데 빠르게 소스까지 안내해주시고 정말 감사드립니다! EE님 덕분에 힘이 나네요~~~😊

[hyosun_jung]

@ickis1492 눈길에 별일 없으신가요? 오래된 글도 저희가 놓치지 않고! 답변을 드린답니다~ 또 궁금한 점이 있으시면 언제든지 커뮤니티에 들러주세요~😊