ʹ�ò���턓(chu��ng)���݈D�r����ע�ߴ��Ƿdz���Ҫ��һ����һ����f�݈D��(chu��ng)����ɺ���Ҫ��ȫ���x������݈D����δ��ȫ���x�ľ����������ו����`�޸�,�@�Dz����S����

�ߴ��ע�ֳɃɂ����E��

��һ�����x����Ҫ�˜ʳߴ�Č�������ô�����ڄ�(chu��ng)���þ��κ���ô�x���������䌍�҂���ʹ��SketchManager����(chu��ng)��ֱ����A�r,�����ؾ��Ό���(SketchSegment���󣩵����������x���@һ�����ɾ��Ό������������a���£�

        Dim Line1 As SldWorks.SketchSegment

        Dim Line2 As SldWorks.SketchSegment

        Dim Line3 As SldWorks.SketchSegment

        Dim Cir As SldWorks.SketchSegment

        Line1 = Sketchmer.CreateLine(0, 0, 0, 0, 0.3, 0) '��(chu��ng)��ֱ��1�����،��������

        Line2 = Sketchmer.CreateLine(0, 0, 0, 0.2, 0, 0) '��(chu��ng)��ֱ��2�����،��������

        Line3 = Sketchmer.CreateLine(0.2, 0, 0, 0, 0.3, 0) '��(chu��ng)��ֱ��3�����،��������

        Cir = Sketchmer.CreateCircleByRadius(0.06, 0.08, 0, 0.025) '��(chu��ng)���A��1�����،��������

        Line1.Select4(False, Nothing) '�x��ֱ��1

���Ό���ijɆT�д���Select4()�������{��ԓ�����Ϳ��Ԍ��F���ε��x���҂����Կ�����ֱ��1�ѽ����x����

ֵ���ᵽ�����������ע���ˆD�ijߴ����҂���ԓ��ô����

�҂���Ҫͬ�r�x�ЈA��ֱ�����@�r��Select4()�����ĵ�һ��������Ҫ�Ğ顰True�����������False������ȡ��֮ǰ���x�Ќ������x�Ю�ǰ����������True��������ȡ��֮ǰ���x�еČ��󡣴��a���£�

   Line2.Select4(False, Nothing) '�x��ֱ��2����ȡ��֮ǰ���x��

      Cir.Select4(True, Nothing) '�x�ЈA��1������֮ǰֱ��2���x�Р�B(t��i)����һ��������Ҫ�顰True��

�ڶ����dzߴ��ע���ߴ��ע�ķ�����AddDimension2(X, Y, Z),��������ModelDoc2�ӿ������҂����{����֮ǰ��Ҫ�@�î�ǰ����ļ���������ã��@�����҂����f�����y�������֮ǰ���n�����ѽ������^��������Խ���ֱ���v��AddDimension2������ʹ����

ʹ��AddDimension2����֮ǰ�҂���Ҫ�x����Ҫ��ע�ߴ�Č������@һ�^���҂��ڵ�һ�����ѽ������������҂��ѽ��x��ֱ��1����������Ҫָ���ߴ����ֵķ��õ��������ߴ����ֵ�����X��Y��Z���酢�����f�oAddDimension2���������a����:
    

 Part.AddDimension2(-0.08, 0.15, 0) '�oֱ��1��ע�ߴ�

�҂����Կ�����ֱ��1�ijߴ��ѽ���ע��ɡ�

 �^���Wַ��https://www.51zxw.net/List.aspx?cid=688