【原创】普通平键

玲玲零零

第2个VC程序，再加一分，如何？
LPMODELDOC pModelDoc;//定义pModelDoc指针
TheApplication->GetSWApp()->get_IActiveDoc([$pModelDoc)]//获得pModelDoc指针
LPPARTDOC pPartDoc;//定义pPartDoc指针
pModelDoc->QueryInterface(IID_IPartDoc,(LPVOID *)[$pPartDoc)]//获得pPartDoc指针
  
VARIANT_BOOL retval;//定义retval
pModelDoc->SelectByID(auT("前视"),auT("LANE"),0,0,0,[$retval)]//选择"前视"为绘图平面
  
pModelDoc->InsertSketch();//开始草图绘制  
  
LPSKETCHSEGMENT  retval2;//定义retval2
pModelDoc->CreateArcVB ( 0, 0, 0,   0,0.01,0,  0,-0.01,0,  1 );//用圆心、始点、终点画左半圆弧
pModelDoc->ICreateLine2 (0, -0.01, 0,   0.04, -0.01, 0,   [$retval2)]//用二点画下面的水平线
pModelDoc->CreateArcVB  (0.04, 0,0,     0.04, -0.01,0,   0.04,0.01,0, 1 );//用圆心、始点、终点画右半圆弧
pModelDoc->ICreateLine2 (0.04, 0.01, 0,     0, 0.01, 0,  [$retval2)]//用二点画上面的水平线
  
pModelDoc->ClearSelection();//结束草图绘制
  
VARIANT_BOOL retvala;//定义retvala
VARIANT_BOOL retvalb;//定义retvallb
pModelDoc->SelectByID(auT("Line1"), auT("SKETCHSEGMENT"),0,0,0,[$retvala)] //选择直线
pModelDoc->SelectByID(auT("Line2"), auT("SKETCHSEGMENT"),0,0,0,[$retvalb)] //选择直线
pModelDoc->SelectByID(auT("Arc1"), auT("SKETCHSEGMENT"),0,0,0,[$retvala)] //选择圆弧
pModelDoc->SelectByID(auT("Arc2"), auT("SKETCHSEGMENT"),0,0,0,[$retvalb)] //选择圆弧
  
pModelDoc->FeatureBoss( 1, 0, 0, 0, 0, 0.012, 1, 0, 0, 0, 0, 2, 2, 0, 0);//拉伸
  
pModelDoc->Release();//释放pModelDoc指针
pPartDoc->Release();//释放pPartDoc指针
  
  return;

darkhorse

shelly

玲玲零零

wlzhao33

wlzhao33

玲玲零零

client

wlzhao33