Line Object Attributes

Sub Sample()
    ' Constants for Activation codes
    Const strLicenseTo As String = "Amyuni PDF Creator Evaluation"
    Const strActivationCode As String = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC"
 
    ' Initializing PDFCreativeX Object
    Dim pdf As ACPDFCREACTIVEX.PDFCreactiveX = New ACPDFCREACTIVEX.PDFCreactiveX()
 
    ' Set license key
    pdf.SetLicenseKey(strLicenseTo, strActivationCode)
 
    ' Set CurrentPage
    pdf.CurrentPage = 1
 
    ' Create a Line in the current page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeLine, "Line1")
    ' Define Object
    Dim oLine As ACPDFCREACTIVEX.IacObject = pdf.GetObjectByName("Line1")
    ' General Attributes
    oLine("Left") = 1000
    oLine("Right") = 3250
    oLine("Top") = 0
    oLine("Bottom") = 500
    ' Line Attributes
    oLine("StrokeColor") = &HFF00FF
    oLine("StrokeWidth") = ACPDFCREACTIVEX.acStrokeWidth.acStrokeWidthTriple
 
    ' Save PDF
    pdf.Save("c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView)
 
End Sub

static void Sample()
{
    // Constants for Activation codes
    const string strLicenseTo = "Amyuni PDF Creator Evaluation";
    const string strActivationCode = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC";
 
    // Initializing PDFCreativeX Object
    ACPDFCREACTIVEX.PDFCreactiveX pdf = new ACPDFCREACTIVEX.PDFCreactiveX();
 
    // Set license key
    pdf.SetLicenseKey(strLicenseTo, strActivationCode);
 
    // Set CurrentPage
    pdf.CurrentPage = 1;
 
    // Create a Line in the current page
    pdf.CreateObject(ACPDFCREACTIVEX.ObjectTypeConstants.acObjectTypeLine, "Line1");
    // Define Object
    ACPDFCREACTIVEX.IacObject oLine = pdf.GetObjectByName("Line1");
    // General Attributes
    oLine["Left"] = 1000;
    oLine["Right"] = 3250;
    oLine["Top"] = 2000;
    oLine["Bottom"] = 2500;
    // Line Attributes
    oLine["StrokeColor"] = 0xFF00FF;
    oLine["StrokeWidth"] = ACPDFCREACTIVEX.acStrokeWidth.acStrokeWidthTriple;
 
    // Switch to run mode after objects to the document, the attribute Text will evaluate and save it in Value attribute
    pdf.ReportState = ACPDFCREACTIVEX.ReportStateConstants.acReportStateRun;
 
    // Save PDF
    pdf.Save(@"c:\temp\CreatePDFDocument_resulting.pdf", ACPDFCREACTIVEX.FileSaveOptionConstants.acFileSaveView);
 
}

#import "c:\users\amyuni\pdfcreactivex.dll" no_namespace
 
using namespace std;
 
int main()
{
    // Constants for Activation codes
    bstr_t strLicenseTo = "Amyuni PDF Creator Evaluation";
    bstr_t strActivationCode = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC";
 
    // Initialize the COM subsystem
    CoInitialize(0);
 
    // IPDFCreactiveXPtr is a smart pointer type defined in pdfcreactivex.tlh,
    // the type library header file generated by the #import instruction above
    IPDFCreactiveXPtr pdf;
 
    // Create the PDFCreactiveX instance
    pdf.CreateInstance(__uuidof(PDFCreactiveX));
 
    // set license key
    pdf->SetLicenseKey(_bstr_t(strLicenseTo), _bstr_t(strActivationCode));
 
    // Set CurrentPage
    pdf->CurrentPage = 1;
 
    // Create a Line in the current page
    pdf->CreateObject(acObjectTypeLine, "Line1");
    // Define Object
    IacObjectPtr oLine = pdf->GetObjectByName("Line1");
    // General Attributes
    oLine->Attribute["Left"] = 1000;
    oLine->Attribute["Right"] = 3250;
    oLine->Attribute["Top"] = 0;
    oLine->Attribute["Bottom"] = 500;
    // Line Attributes
    _variant_t varAttribute;
    varAttribute.vt = VT_I4;  // integers
    varAttribute.lVal = 0xFF00FF;
    oLine->Attribute["StrokeColor"] = varAttribute;
    varAttribute.lVal = acStrokeWidthTriple;
    oLine->Attribute["StrokeWidth"] = varAttribute;
 
    // Switch to run mode after objects to the document, the attribute Text will evaluate and save it in Value attribute
    pdf->ReportState = acReportStateRun;
 
    // Save PDF
    pdf->Save("c:\\temp\\CreatePDFDocument_resulting.pdf", acFileSaveView);
 
    // destroy objects
    pdf = NULL;
    oLine = NULL;
 
    return 0;
}

' acStrokeWidth Constants
Const acStrokeWidthSimple = 1
Const acStrokeWidthDouble = 2
Const acStrokeWidthTriple = 3
Const acStrokeWidthQuadruple = 4
 
' ObjectTypeConstants
Const acObjectTypeArrow = 36
Const acObjectTypeBarcode = 45
Const acObjectTypeCell = 33
Const acObjectTypeCheckBox = 21
Const acObjectTypeEllipse = 4
Const acObjectTypeExcel = 17
Const acObjectTypeFrame = 2
Const acObjectTypeField = 6
Const acObjectTypeGraph = 19
Const acObjectTypeHighlight = 23
Const acObjectTypeLine = 1
Const acObjectTypePicture = 7
Const acObjectTypePolygon = 8
Const acObjectTypeRoundFrame = 3
Const acObjectTypeRow = 32
Const acObjectTypeSelection = 24
Const acObjectTypeSignature = 39
Const acObjectTypeStickyNote = 22
Const acObjectTypeTable = 16
Const acObjectTypeText = 5
 
' FileSaveOptionConstants
Const acFileSaveAll = 0
Const acFileSaveDefault = -1
Const acFileSaveView = 1
Const acFileSaveDesign = 2
Const acFileSavePDFA_7 = 3
Const acFileSavePDFA = 4
Const acFileSavePDF14 = 5
 
' Constants for Activation codes
Const strLicenseTo = "Amyuni PDF Creator Evaluation"
Const strActivationCode = "07EFCDAB010001004282943F2AF19A88F332D9E781E40460727DF8A42847A1BDE06DB61C71E94E2D90424BF8762385335F9D6884E9FC"
 
' Initializing PDFCreativeX Object
Dim pdf
Set pdf = CreateObject("PDFCreactiveX.PDFCreactiveX.6.5")
 
' Set license key
pdf.SetLicenseKey strLicenseTo, strActivationCode
 
' Set CurrentPage
pdf.CurrentPage = 1
 
' Create a Line in the current Page
pdf.CreateObject acObjectTypeLine, "Line1"
' Define Object
Dim oLine 
Set oLine = pdf.GetObjectByName("Line1")
' General Attributes
oLine("Left") = 1000
oLine("Right") = 3250
oLine("Top") = 0
oLine("Bottom") = 500
' Line Attributes
oLine("StrokeColor") = &HFF00FF
oLine("StrokeWidth") = acStrokeWidthTriple
 
' Save PDF
pdf.Save "c:\temp\CreatePDFDocument_resulting.pdf", acFileSaveView
 
' destroy Objects
Set pdf = Nothing
Set oLine = Nothing