0 Members and 1 Guest are viewing this topic.
; IAcad3DSolid: AutoCAD 3dSolid Interface; Property values:; Application (RO) = #<VLA-OBJECT IAcadApplication 00d73d3c>; Centroid (RO) = (487.541 -708.312 86.6786); Document (RO) = #<VLA-OBJECT IAcadDocument 01463550>; Handle (RO) = "22B"; HasExtensionDictionary (RO) = 0; History = 0; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 1586037c>; Layer = "0"; Linetype = "ByLayer"; LinetypeScale = 1.0; Lineweight = -1; Material = "ByLayer"; MomentOfInertia (RO) = (1.21448e+013 6.45305e+012 1.8097e+013); ObjectID (RO) = 2126775512; ObjectName (RO) = "AcDb3dSolid"; OwnerID (RO) = 2126769400; PlotStyleName = "ByLayer"; Position = Exception occurred; PrincipalDirections (RO) = (0.992437 0.0 0.122753 0.0 1.0 0.0 ... ); PrincipalMoments (RO) = (1.84668e+011 6.97895e+011 7.51507e+011); ProductOfInertia (RO) = (-8.10505e+012 -1.44098e+012 1.0609e+012); RadiiOfGyration (RO) = (719.341 524.351 878.099); ShowHistory = 0; SolidType (RO) = Exception occurred; TrueColor = #<VLA-OBJECT IAcadAcCmColor 15a02738>; Visible = -1; Volume (RO) = 2.34704e+007
(setq ent (entsel "\nSelect an object: ")obj (vlax-ename->vla-object (car ent)))
(setq PDir (vla-get-principaldirections obj))
hello , friend , my idea hit my head .so i need some help again if you see attached file, you can see my problem .wanted routine . line project on solid suface pls can you help again ?