Comparer vla-objets ?

[Bred]

Salut,

je m'étais mis en tête d'écrire un routine pour comparer les propriétés de 2 "vla-objets"...

mais je suis assez contrarié : vlax-dump-object ne retourne que T ou nil, la liste des propriétés (;...) n'est pas accessible...

 

Auriez-vous une idée comment les récupérer ?

 

merci.

[Patrick_35]

Salut

Je ne comprends pas exactement son problème

Un

(vlax-dump-object (vlax-ename->vla-object (car (entsel))) T)

fonctionne parfaitement :casstet:

 

@+

[Bred]

Je dois mal m'expliquer :

je voudrais créér une routine qui compare les propriétés de deux vla-objects.

Donc, je voudrais comparer deux listes obtenus sur la console par (vlax-dump-object ....

mais ce n'est pas les propriétés que nous retourne au final cette fonction, mais t ou nil.

 

Ex : je voudrais récupérer ceci dans une variable :

; IAcadLine: Interface AutoCAD Line

; Valeurs de propriétés:

; Angle (RO) = 0.0

; Application (RO) = #

; Delta (RO) = (10.0 0.0 0.0)

; Document (RO) = #

; EndPoint = (8.0 0.0 0.0)

; Handle (RO) = "FFF5"

; HasExtensionDictionary (RO) = 0

; Hyperlinks (RO) = #

; Layer = "0"

; Length (RO) = 10.0

; Linetype = "ByLayer"

; LinetypeScale = 1.0

; Lineweight = -1

; Material = "ByLayer"

; Normal = (0.0 0.0 1.0)

; ObjectID (RO) = 2025397736

; ObjectName (RO) = "AcDbLine"

; OwnerID (RO) = 2025508088

; PlotStyleName = "ByLayer"

; StartPoint = (-2.0 0.0 0.0)

; Thickness = 0.0

; TrueColor = #

; Visible = -1

 

[PHILPHIL]

salut bred

 

si ton tit LISP permetais d'avoir toutes les données cachées et étendus d'un objet je suis preneur

 

je cherche désesperement ou est caché le nom d'un groupe d'un obejet

 

on a beau cliquer on se retrouve tjrs avec des informations en double triple ......

 

on est perdu dans tous ce Bo......

 

phil

[(gile)]

Voilà un premier jet, ça ne retourne que la liste des propriétés du vla-object, si besoin, on peut aussi le faire pour les méthodes applicables.

 

EDIT : Version complétée :

comme vlax-dump-object, si l'argument method est non nil (T), la liste des méthodes applicables à l'objet est ajoutée à la liste. Cet argument n'est pas optionnel et doit être spécifié nil si on ne veut pas de la liste des méthodes.

 

EDIT 2 : suppresion des doublons dans les listes

 

;; DUMP-OBJ-LST (gile) 18/07/07
;; Retourne une liste associative dont chaque terme est constitué du nom de la
;; propriété disponible et de sa valeur pour l'objet.
;; Si l'argument method est non nil, la liste des méthodes applicables est ajoutée.
;;
;; Arguments :
;; vl-obj : un vla-object
;; method : T ou nil (non optionnel)

(defun dump-obj-lst (vl-obj method / lst val)
 (vl-load-com)
 (if method
   (setq lst
   (cons (vl-remove-if-not
	   '(lambda (x) (vlax-method-applicable-p vl-obj x))
	   '("Activate"		    "Add"
	     "Add3DFace"	    "Add3dMesh"
	     "Add3DPoly"	    "AddArc"
	     "AddAttribute"	    "AddBox"
	     "AddCircle"	    "AddCone"
	     "AddCustomInfo"	    "AddCustomObject"
	     "AddCylinder"	    "AddDim3PointAngular"
	     "AddDimAligned"	    "AddDimAngular"
	     "AddDimArc"	    "AddDimDiametric"
	     "AddDimOrdinate"	    "AddDimRadial"
	     "AddDimRadialLarge"    "AddDimRotated"
	     "AddEllipse"	    "AddEllipticalCone"
	     "AddEllipticalCylinder"
	     "AddExtrudedSolid"	    "AddExtrudedSolidAlongPath"
	     "AddFitPoint"	    "AddHatch"
	     "AddItems"		    "AddLeader"
	     "AddLightWeightPolyline"
	     "AddLine"		    "AddMenuItem"
	     "AddMInsertBlock"	    "AddMLine"
	     "AddMtext"		    "AddObject"
	     "AddPoint"		    "AddPolyfaceMesh"
	     "AddPolyline"	    "AddPViewport"
	     "AddRaster"	    "AddRay"
	     "AddRegion"	    "AddRevolvedSolid"
	     "AddSection"	    "AddSeparator"
	     "AddShape"		    "AddSolid"
	     "AddSphere"	    "AddSpline"
	     "AddSubMenu"	    "AddTable"
	     "AddText"		    "AddTolerance"
	     "AddToolbarButton"	    "AddTorus"
	     "AddTrace"		    "AddVertex"
	     "AddWedge"		    "AddXLine"
	     "AddXRecord"	    "AngleFromXAxis"
	     "AngleToReal"	    "AngleToString"
	     "AppendInnerLoop"	    "AppendItems"
	     "AppendOuterLoop"	    "AppendVertex"
	     "ArrayPolar"	    "ArrayRectangular"
	     "AttachExternalReference"
	     "AttachToolbarToFlyout"
	     "AuditInfo"	    "Bind"
	     "Block"		    "Boolean"
	     "CheckInterference"    "Clear"
	     "ClearSubSelection"    "ClearTableStyleOverrides"
	     "ClipBoundary"	    "Close"
	     "ConvertToAnonymousBlock"
	     "ConvertToStaticBlock" "Copy"
	     "CreateEntry"	    "CreateJog"
	     "Delete"		    "DeleteCellContent"
	     "DeleteColumns"	    "DeleteConfiguration"
	     "DeleteFitPoint"	    "DeleteRows"
	     "Detach"		    "Display"
	     "DisplayPlotPreview"   "DistanceToReal"
	     "Dock"		    "ElevateOrder"
	     "EndUndoMark"	    "Erase"
	     "Eval"		    "Evaluate"
	     "Explode"		    "Export"
	     "ExportProfile"	    "FieldCode"
	     "Float"		    "GenerateLayout"
	     "GenerateSectionGeometry"
	     "GenerateUsageData"    "GetAcadState"
	     "GetAlignment"	    "GetAllProfileNames"
	     "GetAngle"		    "GetAttachmentPoint"
	     "GetAttributes"	    "GetAutoScale"
	     "GetBackgroundColor"   "GetBackgroundColorNone"
	     "GetBitmaps"	    "GetBlockAttributeValue"
	     "GetBlockRotation"	    "GetBlockScale"
	     "GetBlockTableRecordId"
	     "GetBoundingBox"	    "GetBulge"
	     "GetCanonicalMediaNames"
	     "GetCellAlignment"	    "GetCellBackgroundColor"
	     "GetCellBackgroundColorNone"
	     "GetCellContentColor"  "GetCellExtents"
	     "GetCellGridColor"	    "GetCellGridLineWeight"
	     "GetCellGridVisibility"
	     "GetCellStyleOverrides"
	     "GetCellTextHeight"    "GetCellTextStyle"
	     "GetCellType"	    "GetColor"
	     "GetColumnWidth"	    "GetConstantAttributes"
	     "GetContentColor"	    "GetControlPoint"
	     "GetCorner"	    "GetCustomByIndex"
	     "GetCustomByKey"	    "GetCustomScale"
	     "GetDataType"	    "GetDistance"
	     "GetDynamicBlockProperties"
	     "GetEntity"	    "GetExtensionDictionary"
	     "GetFieldId"	    "GetFitPoint"
	     "GetFont"		    "GetFormat"
	     "GetFullDrawOrder"	    "GetGridColor"
	     "GetGridLineWeight"    "GetGridSpacing"
	     "GetGridVisibility"    "GetInput"
	     "GetInteger"	    "GetInterfaceObject"
	     "GetInvisibleEdge"	    "GetLiveSection"
	     "GetLocaleMediaName"   "GetLoopAt"
	     "GetMinimumColumnWidth"
	     "GetMinimumRowHeight"  "GetName"
	     "GetObject"	    "GetOrientation"
	     "GetPaperMargins"	    "GetPaperSize"
	     "GetPlotDeviceNames"   "GetPlotStyleTableNames"
	     "GetPoint"		    "GetProjectFilePath"
	     "GetReal"		    "GetRelativeDrawOrder"
	     "GetRemoteFile"	    "GetRowHeight"
	     "GetRowType"	    "GetSectionTypeSettings"
	     "GetSettings"	    "GetSnapSpacing"
	     "GetString"	    "GetSubEntity"
	     "GetSubSelection"	    "GetText"
	     "GetTextHeight"	    "GetTextRotation"
	     "GetTextStyle"	    "GetUCSMatrix"
	     "GetUniqueSectionName" "GetVariable"
	     "GetWeight"	    "GetWidth"
	     "GetWindowToPlot"	    "GetXdata"
	     "GetXRecordData"	    "HandleToObject"
	     "Highlight"	    "HitTest"
	     "Import"		    "ImportProfile"
	     "IndexOf"		    "InitializeUserInput"
	     "InsertBlock"	    "InsertColumns"
	     "InsertInMenuBar"	    "InsertLoopAt"
	     "InsertMenuInMenuBar"  "InsertRows"
	     "IntersectWith"	    "IsMergedCell"
	     "IsRemoteFile"	    "IsURL"
	     "Item"		    "LaunchBrowserDialog"
	     "ListARX"		    "Load"
	     "LoadARX"		    "LoadDVB"
	     "LoadShapeFile"	    "MergeCells"
	     "Mirror"		    "Mirror3d"
	     "Move"		    "MoveAbove"
	     "MoveBelow"	    "MoveToBottom"
	     "MoveToTop"	    "New"
	     "NumCustomInfo"	    "ObjectIDToObject"
	     "Offset"		    "Open"
	     "PlotToDevice"	    "PlotToFile"
	     "PolarPoint"	    "Prompt"
	     "PurgeAll"		    "PurgeFitData"
	     "PutRemoteFile"	    "Quit"
	     "RealToString"	    "RecomputeTableBlock"
	     "RefreshPlotDeviceInfo"
	     "Regen"		    "Reload"
	     "Remove"		    "RemoveCustomByIndex"
	     "RemoveCustomByKey"    "RemoveEntry"
	     "RemoveFromMenuBar"    "RemoveItems"
	     "RemoveMenuFromMenuBar"
	     "RemoveVertex"	    "Rename"
	     "RenameProfile"	    "Replace"
	     "ReselectSubRegion"    "ResetBlock"
	     "ResetProfile"	    "Restore"
	     "Reverse"		    "Rotate"
	     "Rotate3d"		    "RunMacro"
	     "Save"		    "SaveAs"
	     "ScaleEntity"	    "SectionSolid"
	     "Select"		    "SelectAtPoint"
	     "SelectByPolygon"	    "SelectOnScreen"
	     "SelectSubRegion"	    "SendCommand"
	     "SendModelessOperationEnded"
	     "SendModelessOperationStart"
	     "SetAlignment"	    "SetAutoScale"
	     "SetBackgroundColor"   "SetBackgroundColorNone"
	     "SetBitmaps"	    "SetBlockAttributeValue"
	     "SetBlockRotation"	    "SetBlockScale"
	     "SetBlockTableRecordId"
	     "SetBulge"		    "SetCellAlignment"
	     "SetCellBackgroundColor"
	     "SetCellBackgroundColorNone"
	     "SetCellContentColor"  "SetCellGridColor"
	     "SetCellGridLineWeight"
	     "SetCellGridVisibility"
	     "SetCellTextHeight"    "SetCellTextStyle"
	     "SetCellType"	    "SetColor"
	     "SetColorBookColor"    "SetColumnWidth"
	     "SetContentColor"	    "SetControlPoint"
	     "SetCustomByIndex"	    "SetCustomByKey"
	     "SetCustomScale"	    "SetDatabase"
	     "SetDataType"	    "SetFieldId"
	     "SetFitPoint"	    "SetFont"
	     "SetFormat"	    "SetGridColor"
	     "SetGridLineWeight"    "SetGridSpacing"
	     "SetGridVisibility"    "SetInvisibleEdge"
	     "SetLayoutsToPlot"	    "SetNames"
	     "SetPattern"	    "SetProjectFilePath"
	     "SetRelativeDrawOrder" "SetRowHeight"
	     "SetSnapSpacing"	    "SetSubSelection"
	     "SetText"		    "SetTextHeight"
	     "SetTextRotation"	    "SetTextStyle"
	     "SetVariable"	    "SetView"
	     "SetWeight"	    "SetWidth"
	     "SetWindowToPlot"	    "SetXdata"
	     "SetXRecordData"	    "SliceSolid"
	     "Split"		    "StartBatchMode"
	     "StartUndoMark"	    "SwapOrder"
	     "SyncModelView"	    "TransformBy"
	     "TranslateCoordinates" "Unload"
	     "UnloadARX"	    "UnloadDVB"
	     "UnmergeCells"	    "Update"
	     "UpdateEntry"	    "WBlock"
	     "ZoomAll"		    "ZoomCenter"
	     "ZoomExtents"	    "ZoomPickWindow"
	     "ZoomPrevious"	    "ZoomScaled"
	     "ZoomWindow"
	    )
	 )
	 lst
   )
   )
 )
 (mapcar
   '(lambda (p)
      (if (vl-catch-all-error-p
     (setq val (vl-catch-all-apply 'vlax-get (list vl-obj p)))
   )
 (setq lst
	(cons (cons p (vl-catch-all-error-message val)) lst)
 )
 (setq lst (cons (cons p val) lst))
      )
    )
   (vl-remove-if-not
     '(lambda (x) (vlax-property-available-p vl-obj x))
     '("ZEffectiveScaleFactor"	 "YVector"
"YScaleFactor"		 "YEffectiveScaleFactor"
"XVector"		 "XScaleFactor"
"XRefLayerVisibility"	 "XRefFadeIntensity"
"XRefEdit"		 "XRefDemandLoad"
"XRefDatabase"		 "XEffectiveScaleFactor"
"WorkspacePath"		 "WindowTop"
"WindowTitle"		 "WindowState"
"WindowLeft"		 "Width"
"Weights"		 "Volume"
"VIsolineDensity"	 "Visible"
"VisibilityEdge4"	 "VisibilityEdge3"
"VisibilityEdge2"	 "VisibilityEdge1"
"ViewToPlot"		 "Views"
"Viewports"		 "ViewportOn"
"ViewportDefault"	 "ViewingDirection"
"Vertices"		 "VerticalTextPosition"
"VerticalDirection"	 "VertCellMargin"
"VersionGUID"		 "Version"
"Verify"		 "VBE"
"Value"			 "Utility"
"UseStandardScale"	 "User"
"UseLastPlotSettings"	 "Used"
"URLNamedLocation"	 "URLDescription"
"URL"			 "UpsideDown"
"UpperRightCorner"	 "UnitsType"
"UnitsFormat"		 "Units"
"UnderlayVisibility"	 "UnderlayName"
"UIsolineDensity"	 "UCSPerViewport"
"UCSIconOn"		 "UCSIconAtOrigin"
"Type"			 "TwistAngle"
"Twist"			 "TurnSlope"
"Turns"			 "TurnHeight"
"TrueColorImages"	 "TrueColor"
"Transparency"		 "TranslateIDs"
"TotalLength"		 "TotalAngle"
"TopRadius"		 "TopHeight"
"Top"			 "ToolPalettePath"
"Toolbars"		 "ToleranceUpperLimit"
"ToleranceSuppressZeroInches"
"ToleranceSuppressZeroFeet"
"ToleranceSuppressTrailingZeros"
"ToleranceSuppressLeadingZeros"
"TolerancePrecision"	 "ToleranceLowerLimit"
"ToleranceJustification" "ToleranceHeightScale"
"ToleranceDisplay"	 "TitleSuppressed"
"Title"			 "TimeStamp"
"TimeServer"		 "Thickness"
"TextWinTextColor"	 "TextWinBackgrndColor"
"TextureMapPath"	 "TextSuffix"
"TextStyles"		 "TextStyle"
"TextString"		 "TextRotation"
"TextPrefix"		 "TextPrecision"
"TextPosition"		 "TextOverride"
"TextOutsideAlign"	 "TextMovement"
"TextInsideAlign"	 "TextInside"
"TextHeight"		 "TextGenerationFlag"
"TextGap"		 "TextFrameDisplay"
"TextFontStyle"		 "TextFontSize"
"TextFont"		 "TextFillColor"
"TextFill"		 "TextEditor"
"TextColor"		 "TextAlignmentPoint"
"TempXRefPath"		 "TemplateDwgPath"
"TempFilePath"		 "TempFileExtension"
"Target"		 "TaperAngle"
"TagString"		 "TabOrder"
"TableStyleOverrides"	 "TablesReadOnly"
"System"		 "SymbolPosition"
"SurfaceType"		 "SurfaceNormals"
"SuppressZeroInches"	 "SuppressZeroFeet"
"SuppressTrailingZeros"	 "SuppressLeadingZeros"
"SupportPath"		 "SummaryInfo"
"SubMenu"		 "Subject"
"StyleSheet"		 "StyleName"
"StoreSQLIndex"		 "StatusID"
"State"			 "StartPoint"
"StartParameter"	 "StartDraftMagnitude"
"StartDraftAngle"	 "StartAngle"
"StandardScale"		 "SourceObjects"
"SolidType"		 "SolidFill"
"SnapRotationAngle"	 "SnapOn"
"SnapBasePoint"		 "SingleDocumentMode"
"ShowWarningMessages"	 "ShowRotation"
"ShowRasterImage"	 "ShowProxyDialogBox"
"ShowPlotStyles"	 "ShowHistory"
"Show"			 "ShortCutMenuDisplay"
"ShortCutMenu"		 "SheetView"
"ShadowDisplay"		 "ShadePlot"
"SerialNumber"		 "SelectionSets"
"Selection"		 "SegmentPerPolyline"
"SectionManager"	 "SecondPoint"
"SCMTimeValue"		 "SCMTimeMode"
"SCMEditMode"		 "SCMDefaultMode"
"SCMCommandMode"	 "ScaleWidth"
"ScaleLineweights"	 "ScaleHeight"
"ScaleFactor"		 "scale"
"SavePreviewThumbnail"	 "Saved"
"SaveAsType"		 "RowSpacing"
"Rows"			 "RowHeight"
"RoundDistance"		 "Rotation"
"RevolutionAngle"	 "RevisionNumber"
"RenderSmoothness"	 "RemoveHiddenLines"
"RegisteredApplications" "RegenerateTableSuppressed"
"ReferenceCount"	 "Red"
"ReadOnly"		 "RadiusRatio"
"Radius"		 "RadiiOfGyration"
"QuietErrorMode"	 "QNewTemplateFile"
"ProxyImage"		 "ProviderType"
"ProviderName"		 "PropertyName"
"PromptString"		 "Profiles"
"ProfileRotation"	 "ProductOfInertia"
"PrintSpoolExecutable"	 "PrintSpoolerPath"
"PrintFile"		 "PrinterStyleSheetPath"
"PrinterSpoolAlert"	 "PrinterPaperSizeAlert"
"PrinterDescPath"	 "PrinterConfigPath"
"PrincipalMoments"	 "PrincipalDirections"
"PrimaryUnitsPrecision"	 "Preset"
"Preferences"		 "PostScriptPrologFile"
"Position"		 "PolarTrackingVector"
"PlotWithPlotStyles"	 "PlotWithLineweights"
"PlotViewportsFirst"	 "PlotViewportBorders"
"PlotType"		 "Plottable"
"PlotStyleName"		 "PlotRotation"
"PlotPolicy"		 "PlotOrigin"
"PlotLogFilePath"	 "PlotLegacy"
"PlotHidden"		 "PlotConfigurations"
"Plot"			 "PickGroup"
"PickfirstSelectionSet"	 "PickFirst"
"PickDrag"		 "PickBoxSize"
"PickAuto"		 "PickAdd"
"Perimeter"		 "PatternType"
"PatternSpace"		 "PatternScale"
"PatternName"		 "PatternDouble"
"PatternAngle"		 "Path"
"Password"		 "Parent"
"PaperUnits"		 "PaperSpace"
"PageSetupOverridesTemplateFile"
"OwnerID"		 "OverrideCenter"
"Output"		 "OrthoOn"
"Origin"		 "OpenSave"
"OnMenuBar"		 "OleSourceApp"
"OLEQuality"		 "OlePlotQuality"
"OLELaunch"		 "OleItemType"
"ObliqueAngle"		 "ObjectSortBySnap"
"ObjectSortBySelection"	 "ObjectSortByRegens"
"ObjectSortByRedraws"	 "ObjectSortByPSOutput"
"ObjectSortByPlotting"	 "ObjectSnapMode"
"ObjectName"		 "ObjectID"
"NVertexCount"		 "NumVertices"
"NumGuidePaths"		 "NumCrossSections"
"NumberOfVertices"	 "NumberOfLoops"
"NumberOfFitPoints"	 "NumberOfFaces"
"NumberOfCopies"	 "NumberOfControlPoints"
"Normal"		 "NDensity"
"Nclose"		 "NameNoMnemonic"
"Name"			 "MVertexCount"
"MSpace"		 "MRUNumber"
"Monochrome"		 "MomentOfInertia"
"ModelView"		 "ModelType"
"ModelSpace"		 "ModelCrosshairColor"
"Mode"			 "MLineScale"
"MinorRadius"		 "MinorAxis"
"MinimumTableWidth"	 "MinimumTableHeight"
"Menus"			 "MenuGroups"
"MenuFileName"		 "MenuFile"
"MenuBar"		 "Measurement"
"Mdensity"		 "Mclose"
"MaxAutoCADWindow"	 "MaxActiveViewports"
"Materials"		 "Material"
"Mask"			 "MajorRadius"
"MajorAxis"		 "MainDictionary"
"Macro"			 "LowerLeftCorner"
"LogFilePath"		 "LogFileOn"
"LockPosition"		 "LockAspectRatio"
"Lock"			 "LocaleID"
"LoadAcadLspInAllDocuments"
"LiveSectionEnabled"	 "LineweightDisplay"
"Lineweight"		 "LinetypeScale"
"Linetypes"		 "LinetypeGeneration"
"Linetype"		 "LineSpacingStyle"
"LineSpacingFactor"	 "LineSpacingDistance"
"LinearScaleFactor"	 "Limits"
"LensLength"		 "Length"
"Left"			 "LeaderLength"
"Leader2Point"		 "Leader1Point"
"LayoutShowPlotSetup"	 "Layouts"
"LayoutID"		 "LayoutDisplayPaperShadow"
"LayoutDisplayPaper"	 "LayoutDisplayMargins"
"LayoutCrosshairColor"	 "LayoutCreateViewport"
"Layout"		 "LayerState"
"Layers"		 "LayerOn"
"Layer"			 "LastSavedBy"
"LastHeight"		 "LargeButtons"
"LabelBlockId"		 "Label"
"Knots"			 "Keywords"
"KeyLength"		 "KeyboardPriority"
"KeyboardAccelerator"	 "Key"
"Justification"		 "JogLocation"
"JogAngle"		 "ItemName"
"IsXRef"		 "Issuer"
"IsRational"		 "IsQuiescent"
"IsPrimary"		 "IsPlanar"
"IsPeriodic"		 "IsPartial"
"IsOwnerXlated"		 "ISOPenWidth"
"IsModified"		 "IsLayout"
"IsDynamicBlock"	 "IsCloned"
"Invisible"		 "IntersectionFillVisible"
"IntersectionFillPlotStyleName"
"IntersectionFillLineweight"
"IntersectionFillLinetypeScale"
"IntersectionFillLinetype"
"IntersectionFillLayer"	 "IntersectionFillHatchSpacing"
"IntersectionFillHatchScale"
"IntersectionFillHatchPatternType"
"IntersectionFillHatchPatternName"
"IntersectionFillHatchAngle"
"IntersectionFillFaceTransparency"
"IntersectionFillColor"	 "IntersectionBoundaryPlotStyleName"
"IntersectionBoundaryLineweight"
"IntersectionBoundaryLinetypeScale"
"IntersectionBoundaryLinetype"
"IntersectionBoundaryLayer"
"IntersectionBoundaryDivisionLines"
"IntersectionBoundaryColor"
"InsUnitsFactor"	 "InsUnits"
"InsertionPoint"	 "IndicatorTransparency"
"IndicatorFillColor"	 "Index"
"IncrementalSavePercent" "ImageWidth"
"ImageVisibility"	 "ImageHeight"
"ImageFrameHighlight"	 "ImageFile"
"Hyperlinks"		 "HyperlinkDisplayTooltip"
"HyperlinkDisplayCursor" "HyperlinkBase"
"HWND"			 "HorzCellMargin"
"HorizontalTextPosition" "HistoryLines"
"History"		 "HelpString"
"HelpFilePath"		 "Height"
"HeaderSuppressed"	 "HatchStyle"
"HatchObjectType"	 "HasVpAssociation"
"HasSubSelection"	 "HasSheetView"
"HasLeader"		 "HasExtensionDictionary"
"HasAttributes"		 "Handle"
"Groups"		 "GripSize"
"GripColorUnselected"	 "GripColorSelected"
"GridOn"		 "Green"
"GraphicsWinModelBackgrndColor"
"GraphicsWinLayoutBackgrndColor"
"GradientName"		 "GradientColor2"
"GradientColor1"	 "GradientCentered"
"GradientAngle"		 "GenerationOptions"
"FullScreenTrackingVector"
"FullName"		 "FullFileName"
"FullCRCValidation"	 "Freeze"
"FractionFormat"	 "FoundPath"
"ForegroundLinesVisible" "ForegroundLinesPlotStyleName"
"ForegroundLinesLineweight"
"ForegroundLinesLinetypeScale"
"ForegroundLinesLinetype"
"ForegroundLinesLayer"	 "ForegroundLinesHiddenLine"
"ForegroundLinesFaceTransparency"
"ForegroundLinesEdgeTransparency"
"ForegroundLinesColor"	 "ForceLineInside"
"FontFileMap"		 "FontFile"
"Flyout"		 "FlowDirection"
"FloatingRows"		 "FitTolerance"
"FitPoints"		 "Fit"
"FingerprintGUID"	 "FileSize"
"Files"			 "FileName"
"File"			 "FieldLength"
"Feature"		 "Fade"
"ExtLineFixedLenSuppress"
"ExtLineFixedLen"	 "ExtLine2Suppress"
"ExtLine2StartPoint"	 "ExtLine2Point"
"ExtLine2Linetype"	 "ExtLine2EndPoint"
"ExtLine1Suppress"	 "ExtLine1StartPoint"
"ExtLine1Point"		 "ExtLine1Linetype"
"ExtLine1EndPoint"	 "ExtensionLineWeight"
"ExtensionLineOffset"	 "ExtensionLineExtend"
"ExtensionLineColor"	 "Explodable"
"EntityColor"		 "EnterpriseMenuFile"
"EndTangent"		 "EndSubMenuLevel"
"EndPoint"		 "EndParameter"
"EndDraftMagnitude"	 "EndDraftAngle"
"EndAngle"		 "EnableStartupDialog"
"EnableShadowDisplay"	 "Enable"
"ElevationPaperSpace"	 "ElevationModelSpace"
"Elevation"		 "EffectiveName"
"DriversPath"		 "DrawingDirection"
"Drafting"		 "Documents"
"Document"		 "DockStatus"
"DockedVisibleLines"	 "DisplaySilhouette"
"DisplayScrollBars"	 "DisplayScreenMenu"
"DisplayOLEScale"	 "DisplayLocked"
"DisplayLayoutTabs"	 "DisplayGripsWithinBlocks"
"DisplayGrips"		 "Display"
"DirectionVector"	 "Direction"
"DimStyles"		 "DimLineSuppress"
"DimLineInside"		 "DimLine2Suppress"
"DimLine1Suppress"	 "DimensionLineWeight"
"DimensionLinetype"	 "DimensionLineExtend"
"DimensionLineColor"	 "Dictionaries"
"Diameter"		 "DestinationFile"
"DestinationBlock"	 "Description"
"DemandLoadArxApp"	 "Delta"
"Degree"		 "DefaultPlotToFilePath"
"DefaultPlotStyleTable"	 "DefaultPlotStyleForObjects"
"DefaultPlotStyleForLayer"
"DefaultOutputDevice"	 "DefaultInternetURL"
"DecimalSeparator"	 "Database"
"CustomScale"		 "CustomIconPath"
"CustomDictionary"	 "CurveTangencyLinesVisible"
"CurveTangencyLinesPlotStyleName"
"CurveTangencyLinesLineweight"
"CurveTangencyLinesLinetypeScale"
"CurveTangencyLinesLinetype"
"CurveTangencyLinesLayer"
"CurveTangencyLinesColor"
"CursorSize"		 "CurrentSectionType"
"CreateBackup"		 "Count"
"Coordinates"		 "Coordinate"
"ControlPoints"		 "Contrast"
"ContourlinesPerSurface" "ContinuousPlotLog"
"Constrain"		 "ConstantWidth"
"Constant"		 "ConfigName"
"ConfigFile"		 "Comments"
"Comment"		 "ColumnWidth"
"ColumnSpacing"		 "Columns"
"ColorName"		 "ColorMethod"
"ColorIndex"		 "ColorBookPath"
"Color"			 "Closed"
"ClippingEnabled"	 "Clipped"
"Circumference"		 "ChordPoint"
"Check"			 "Centroid"
"CenterType"		 "CenterPoint"
"CenterPlot"		 "CenterMarkSize"
"Center"		 "CategoryName"
"Caption"		 "CanonicalMediaName"
"Brightness"		 "BottomHeight"
"BookName"		 "Blue"
"BlockScaling"		 "Blocks"
"Block"			 "BitFlags"
"BigFontFile"		 "BeepOnError"
"BatchPlotProgress"	 "BaseRadius"
"BasePoint"		 "Bank"
"Backward"		 "BackgroundLinesVisible"
"BackgroundLinesPlotStyleName"
"BackgroundLinesLineweight"
"BackgroundLinesLinetypeScale"
"BackgroundLinesLinetype"
"BackgroundLinesLayer"	 "BackgroundLinesHiddenLine"
"BackgroundLinesColor"	 "BackgroundFill"
"AxisPosition"		 "AxisDirection"
"AutoTrackTooltip"	 "AutoTrackingVecColor"
"AutoSnapToolTip"	 "AutoSnapMarkerSize"
"AutoSnapMarkerColor"	 "AutoSnapMarker"
"AutoSnapMagnet"	 "AutoSnapApertureSize"
"AutoSnapAperture"	 "AutoSavePath"
"AutoSaveInterval"	 "AutomaticPlotLog"
"AutoAudit"		 "Author"
"AttachmentPoint"	 "AssociativeHatch"
"ArrowheadType"		 "ArrowheadSize"
"ArrowheadBlock"	 "Arrowhead2Type"
"Arrowhead2Block"	 "Arrowhead1Type"
"Arrowhead1Block"	 "Area"
"ArcStartParam"		 "ArcSmoothness"
"ArcPoint"		 "ArcLength"
"ArcEndParam"		 "Application"
"Annotation"		 "AngleVertex"
"AngleFormat"		 "Angle"
"AltUnitsScale"		 "AltUnitsPrecision"
"AltUnitsFormat"	 "AltUnits"
"AltToleranceSuppressZeroInches"
"AltToleranceSuppressZeroFeet"
"AltToleranceSuppressTrailingZeros"
"AltToleranceSuppressLeadingZeros"
"AltTolerancePrecision"	 "AltTextSuffix"
"AltTextPrefix"		 "AltTabletMenuFile"
"AltSuppressZeroInches"	 "AltSuppressZeroFeet"
"AltSuppressTrailingZeros"
"AltSuppressLeadingZeros"
"AltRoundDistance"	 "AltFontFile"
"AllowLongSymbolNames"	 "AllowedValues"
"AlignmentPointAcquisition"
"Alignment"		 "Algorithm"
"AffectsGraphics"	 "AdjustForBackground"
"ADCInsertUnitsDefaultTarget"
"ADCInsertUnitsDefaultSource"
"ActiveViewport"	 "ActiveUCS"
"ActiveTextStyle"	 "ActiveSpace"
"ActiveSelectionSet"	 "ActivePViewport"
"ActiveProfile"		 "ActiveMaterial"
"ActiveLinetype"	 "ActiveLayout"
"ActiveLayer"		 "ActiveDocument"
"ActiveDimStyle"	 "Active"
"Action"
      )
   )
 )
 lst
) 

[Edité le 18/7/2007 par (gile)]

 

[Edité le 18/7/2007 par (gile)]

[(gile)]

Pour comparer deux listes, on peut utiliser les routines common et exclusive.

 

;;; COMMON Retourne la liste des éléments communs à l1 et l2
;;; (COMMON '(1 2 3 4) '( 2 3 4 5)) -> (2 3 4)
(defun common (l1 l2)
 (if l1
   (if	(member (car l1) l2)
     (cons (car l1) (common (cdr l1) l2))
     (common (cdr l1) l2)
   )
 )
)

;;; EXCLUSIVE Retourne une liste contenant les éléments appartenant exclusivement à l1
;;; (exclusive '(1 2 3 4) '( 2 3 4 5)) -> (1)
(defun exclusive (l1 l2)
 (if l1
   (if	(member (car l1) l2)
     (exclusive (cdr l1) l2)
     (cons (car l1) (exclusive (cdr l1) l2))
   )
 )
) 

[Bred]

Wow !

merci !

 

j'espère que tu as récupéré la liste des propriétés et méthodes quelque-part !....

je pensais à un truc dans le genre, mais je ne me voyais pas saisir toutes les propriétés et méthodes !...

 

c'est une routine à bien garder !

 

merci encore une fois (gile) !!!! :D :D

 

[Edité le 18/7/2007 par Bred]

[(gile)]

j'espère que tu as récupéré la liste des propriétés et méthodes quelque-part !...

 

En bon paresseux, l'ai copié/collé le sommaire de l'aide aux développeurs dans un fichier, et fait un petit LISP pour ne récupérer que les noms des propriétés et des méthodes.

 

Je me suis aperçu qu'il y avait quelques doublons dans les listes, je les ai supprimé (remouve_doubles), je modifie donc le LISP pour mettre la liste à jour.

[(gile)]

Au cas où de nouvelles propriétés seraient apparues avec la version 2008, si tu veux refaire la liste, après avoir copié le sommaire de l'aide aux développeurs, ActiveX and VBA Reference, Properties dans un fichier .txt (prop-lst.txt dans l'exemple) tu peux faire :

 

(setq file (open "C:\\Prop-lst.txt" "r"))
(while (setq str (read-line file))
 (if (setq pos (vl-string-search " property" str))
   (setq lst (cons (substr str 1 pos) lst))
   )
 )
(close file)
(reverse (remove_doubles lst)) 

 

Même méthode pour les méthodes.

[Patrick_35]

Salut

Ou encore d'aller sur cette page ou celle-ci

 

@+

[Bred]

Super !

merci (gile) et Patrick_35 !

 

Alors, pour info, nouveau en 2008 par rapport à la liste précédente de (gile) :

 

Nouvelles Méthodes :

("AddMLeader" "CreateCellStyle" "CreateCellStyleFromStyle" "CreateContent" "DeleteCellStyle" "DeleteContent" "EnableMergeAll" "FormatValue" "GetAlignment2" "GetAutoScale2" "GetBlockAttributeValue2" "GetBlockAttributeValue32" "GetBlockTableRecordId2" "GetBlockTableRecordId32" "GetBreakHeight" "GetCellClass" "GetCellContentColor2" "GetCellDataType" "GetCellFormat" "GetCellState" "GetCellStyle" "GetCellValue" "GetColumnName" "GetContentLayout" "GetContentType" "GetCustomData" "GetDataFormat" "GetDataLink" "GetDataLink32" "GetDataType2" "GetFieldId2" "GetFieldId232" "GetFieldId32" "GetFormat2" "GetFormula" "GetGridColor2" "GetGridDoubleLineSpacing" "GetGridLineStyle" "GetGridLinetype" "GetGridLinetype32" "GetGridLineWeight2" "GetGridVisibility2" "GetHasDataLink" "GetHasFormula" "GetIsCellStyleInUse" "GetIsMergeAllEnabled" "GetMargin" "GetOverride" "GetRotation" "GetScale" "GetTextHeight2" "GetTextString" "GetTextStyle2" "GetUniqueCellStyleName" "GetValue" "InsertColumnsAndInherit" "InsertRowsAndInherit" "IsContentEditable" "IsEmpty" "IsFormatEditable" "IsMergeAllEnabled" "LayerPropertyOverrides" "MoveContent" "ObjectIDToObject32" "OverwritePropChanged" "RemoveAllOverrides" "RemoveDataLink" "RenameCellStyle" "ResetCellValue" "SetAlignment2" "SetAutoScale2" "SetBlockAttributeValue2" "SetBlockAttributeValue32" "SetBlockTableRecordId2" "SetBlockTableRecordId32" "SetBreakHeight" "SetCellClass" "SetCellContentColor2" "SetCellDataType" "SetCellFormat" "SetCellState" "SetCellStyle" "SetCellValue" "SetColumnName" "SetContentLayout" "SetCustomData" "SetDataFormat" "SetDataLink" "SetDataLink32" "SetDataType2" "SetFieldId2" "SetFieldId232" "SetFieldId32" "SetFormat2" "SetFormula" "SetGridColor2" "SetGridDoubleLineSpacing" "SetGridLineStyle" "SetGridLinetype" "SetGridLinetype32" "SetGridLineWeight2" "SetGridVisibility2" "SetMargin" "SetOverride" "SetRotation" "SetScale" "SetTextHeight2" "SetTextString" "SetTextStyle2" "SetToolTip" "SetValue" "SetValueFromText" "UpdateAllDataLinks" "UpdateDataLink" "UpdateMTextAttribute")

 

Nouvelles Propriétés :

("AlignSpace" "AllowManualHeights" "AllowManualPositions" "Annotative" "ArrowSize" "ArrowSymbol" "BlockColor" "BlockConnectionType" "BlockScale" "BreaksEnabled" "BreakSize" "BreakSpacing" "ContentBlockName" "ContentBlockType" "ContentType" "DogLegged" "DoglegLength" "DrawLeaderOrderType" "DrawMLeaderOrderType" "EnableBlockRotation" "EnableBlockScale" "EnableDogleg" "EnableFrameText" "EnableLanding" "FirstSegmentAngleConstraint" "HWND32" "Key32" "LabelBlockId32" "LandingGap" "LayoutID32" "LeaderLineColor" "LeaderLinetype" "LeaderLineTypeId" "LeaderLineWeight" "LeaderType" "MaxLeaderSegmentsPoints" "MTextAttribute" "MTextAttributeContent" "MTextBoundaryWidth" "MTextDrawingDirection" "NumCellStyles" "ObjectID32" "OwnerID32" "RepeatBottomLabels" "RepeatTopLabels" "SecondSegmentAngleConstraint" "TableBreakFlowDirection" "TableBreakHeight" "TextAlignmentType" "TextAngleType" "TextAttachmentType" "TextBackgroundFill" "TextDirection" "TextJustify" "TextLeftAttachmentType" "TextLineSpacingDistance" "TextLineSpacingFactor" "TextLineSpacingStyle" "TextRightAttachmentType" "TextStyleName" "TextWidth" "UnderlayLayerOverrideApplied" "Value32" "ZScaleFactor")

 

Ce qu'il n'y a plus :

méthodes : nil

propriétés : nil

...

tant mieux ! ;)