Articles

There are CmbShape (TMyCombine) and LinkShape (TMyLinkLine) on the TMyCAD, and they are not linked,and there are 3 link points in CmbShape (TMyCombine),we will link them by code.

Code example:

procedure TMainFrm.Button1Click(Sender: TObject); 
var 
 cmbShape,LinkShape:TMyShape; 
begin 
cmbShape:=MyCAD1.GetShapeByName('Shape1')  ; 
LinkShape:=MyCAD1.GetShapeByName('Shape0') ; 
if linkshape <> nil then 
begin 
  (LinkShape as TMyLinkline).CreateSrcLink(CmbShape.ShapeId,2); 
  (LinkShape as TMyLinkline).CreateDestLink(CmbShape.ShapeId,0); 
 end; 
end; 

it is also effect for TMyLinkPoint.