Sub GetLength()Dim cObjCDRID As LongDim s As LongDim N As LongWith CorelDRAW.CorelScriptcObjCDRID
= .GetObjectsCDRStaticID()s = ActiveDocument.WorldScale * .GetCurveLength / 10000N = .CreateArtisticText("L = " & Format(s, "###0.00") & " sys mm", 0, 0)End WithEnd SubSub GetSq()Dim cID As LongDim cID_50 As LongDim cID_T As LongDim L As DoubleDim Y As LongDim dY As LongDim X As LongDim pY As LongDim pX As LongDim Err As LongDim NodesC As LongDim i As LongDim s ...
Читати далі...