unit AcConst;

(*

  Documentation:

  Object Pascal translation of constants defined in
  the AutoCAD OLE Automation Type Library (ACAD.TLB)

  Date: 5/23/97

  Author:  Tony Tanzillo,
           Design Automation Consulting

  email:   tony.tanzillo@worldnet.att.net

  web:     http://ourworld.compuserve.com/homepages/tonyt

*)


interface

const
   acTrue = 1;
   acFalse = 0;
   acOn = 1;
   acOff = 0;
   ac3dFace = 1;
   ac3dPolyline = 2;
   ac3dSolid = 3;
   acArc = 4;
   acAttribute = 5;
   acAttributeReference = 6;
   acBlockReference = 7;
   acCircle = 8;
   acDimAligned = 9;
   acDimAngular = 10;
   acDimDiametric = 12;
   acDimOrdinate = 13;
   acDimRadial = 14;
   acDimRotated = 15;
   acEllipse = 16;
   acHatch = 17;
   acLeader = 18;
   acLine = 19;
   acMtext = 21;
   acPoint = 22;
   acPolyline = 23;
   acPolylineLight = 24;
   acPolymesh = 25;
   acRaster = 26;
   acRay = 27;
   acRegion = 28;
   acShape = 29;
   acSolid = 30;
   acSpline = 31;
   acText = 32;
   acTolerance = 33;
   acTrace = 34;
   acPViewport = 35;
   acXline = 36;
   acGroup = 37;
   acModelSpace = 1;
   acPaperSpace = 0;
   acPreferenceClassic = 1;
   acPreferenceCustom = 2;
   acPlotOrientationPortrait = 0;
   acPlotOrientationLandscape = 1;
   acByBlock = 0;
   acRed = 1;
   acYellow = 2;
   acGreen = 3;
   acCyan = 4;
   acBlue = 5;
   acMagenta = 6;
   acWhite = 7;
   acByLayer = 256;
   acAttachmentPointTopLeft = 1;
   acAttachmentPointTopCenter = 2;
   acAttachmentPointTopRight = 3;
   acAttachmentPointMiddleLeft = 4;
   acAttachmentPointMiddleCenter = 5;
   acAttachmentPointMiddleRight = 6;
   acAttachmentPointBottomLeft = 7;
   acAttachmentPointBottomCenter = 8;
   acAttachmentPointBottomRight = 9;
   acLeftToRight = 1;
   acRightToLeft = 2;
   acTopToBottom = 3;
   acBottomToTop = 4;
   acLineNoArrow = 0;
   acSplineNoArrow = 1;
   acLineWithArrow = 2;
   acSplineWithArrow = 3;
   acAttributeModeInvisible = 1;
   acAttributeModeConstant = 2;
   acAttributeModeVerify = 4;
   acAttributeModePreset = 8;
   acHorizontalAlignmentLeft = 0;
   acHorizontalAlignmentCenter = 1;
   acHorizontalAlignmentRight = 2;
   acHorizontalAlignmentAligned = 3;
   acHorizontalAlignmentMiddle = 4;
   acHorizontalAlignmentFit = 5;
   acVerticalAlignmentBaseline = 0;
   acVerticalAlignmentBottom = 1;
   acVerticalAlignmentMiddle = 2;
   acVerticalAlignmentTop = 3;
   acTextFlagBackward = 2;
   acTextFlagUpsideDown = 4;
   acSelectionSetWindow = 0;
   acSelectionSetCrossing = 1;
   acSelectionSetFence = 2;
   acSelectionSetPrevious = 3;
   acSelectionSetLast = 4;
   acSelectionSetAll = 5;
   acSelectionSetWindowPolygon = 6;
   acSelectionSetCrossingPolygon = 7;
   acHatchPatternTypeUserDefined = 0;
   acHatchPatternTypePreDefined = 1;
   acHatchPatternTypeCustomDefined = 2;
   acHatchLoopTypeDefault = 0;
   acHatchLoopTypeExternal = 1;
   acHatchLoopTypePolyline = 2;
   acHatchLoopTypeDerived = 4;
   acHatchLoopTypeTextbox = 8;
   acHatchStyleNormal = 0;
   acHatchStyleOuter = 1;
   acHatchStyleIgnore = 2;
   acOsnapEnd = 1;
   acOsnapMid = 2;
   acOsnapCenter = 3;
   acOsnapNode = 4;
   acOsnapQuadrant = 5;
   acOsnapInsert = 6;
   acOsnapPerpendicular = 7;
   acOsnapTangent = 8;
   acOsnapNear = 9;
   acSimplePoly = 0;
   acFitCurvePoly = 1;
   acQuadSplinePoly = 2;
   acCubicSplinePoly = 3;
   acViewport2Horizontal = 0;
   acViewport2Vertical = 1;
   acViewport3Left = 2;
   acViewport3Right = 3;
   acViewport3Horizontal = 4;
   acViewport3Vertical = 5;
   acViewport3Above = 6;
   acViewport3Below = 7;
   acViewport4 = 8;
   acActiveViewport = 0;
   acAllViewports = 1;
   acAmericanEnglish = 'enu';
   acAustralianEnglish = 'ena';
   acBritishEnglishIse = 'ens';
   acBritishEnglishIze = 'enz';
   acCatalan = 'ca';
   acCzech = 'cs';
   acDanish = 'da';
   acDutchPrim = 'nl';
   acDutchSec = 'nls';
   acFinnish = 'fi';
   acFrenchUnaccentCap = 'fr';
   acFrenchAccentCap = 'fra';
   acGermanScharfesS = 'de';
   acGermanDoppleS = 'ded';
   acItalian = 'it';
   acNorwegianBokmal = 'no';
   acNorwegianNynorsk = 'non';
   acPortugueseIberian = 'pt';
   acPortugueseBrazilian = 'ptb';
   acRussianInfrequentIo = 'ru';
   acRussianFrequentIo = 'rui';
   acSpanishUnaccentCap = 'es';
   acSpanishAccentCap = 'esa';
   acSwedish = 'sv';
   acUnion = 0;
   acIntersection = 1;
   acSubtraction = 2;
   acExtendNone = 0;
   acExtendThisEntity = 1;
   acExtendOtherEntity = 2;
   acExtendBoth = 3;
   acDegrees = 0;
   acDegreeMinuteSeconds = 1;
   acGrads = 2;
   acRadians = 3;
   acSurveyorUnits = 4;
   acScientific = 1;
   acDecimal = 2;
   acEngineering = 3;
   acArchitectural = 4;
   acFractional = 5;
   acWorld = 0;
   acUCS = 1;
   acDisplayDCS = 2;
   acPaperSpaceDCS = 3;
   acEnglish = 0;
   acMetric = 1;
   acDemandLoadDisabled = 0;
   acDemandLoadEnabled = 1;
   acDemandLoadEnabledWithCopy = 2;
   acPartialPreview = 0;
   acFullPreview = 1;
   acSimpleMesh = 0;
   acQuadSurfaceMesh = 5;
   acCubicSurfaceMesh = 6;
   acBezierSurfaceMesh = 8;
   acZoomScaledRelative = 0;
   acZoomScaledAbsolute = 1;
   acDragDoNotDisplay = 0;
   acDragDisplayOnRequest = 1;
   acDragDisplayAutomatically = 2;
   acDemanLoadDisable = 0;
   acDemandLoadOnObjectDetect = 1;
   acDemandLoadCmdInvoke = 2;
   acFontRegular = 0;
   acFontItalic = 1;
   acFontBold = 2;
   acFontBoldItalic = 3;
   acProxyNotShow = 0;
   acProxyShow = 1;
   acProxyBoundingBox = 2;
   acKeyboardRunningObjSnap = 0;
   acKeyboardEntry = 1;
   acKeyboardProxyNoScripts = 2;

   acParamNotSpecified = $80020004;


var
  Nothing: OleVariant;

implementation

initialization
  TVarData(Nothing).VType := varError;
  TVarData(Nothing).VError := acParamNotSpecified;


end.