'ThisDrawing'... sounds like a VBA thang... then this thread may help:
http://forums.autodesk.com/t5/AutoCA...BA/td-p/621912


Registered forum members do not see this ad.
Hi All,
I have added a point using
Then Rotated the point usingCode:ThisDrawing.ModelSpace.AddPoint(pnt)
Now how can i read the current rotation value of the point?Code:pnt.Rotate p, somevalue
**The dxf code 50 representing the Rotation value.
Thanks,
Kumar.
'ThisDrawing'... sounds like a VBA thang... then this thread may help:
http://forums.autodesk.com/t5/AutoCA...BA/td-p/621912
"Potential has a shelf life." - Margaret Atwood


It doesn't seems like the point object in VBA has no .Rotation property at all. It is just a point. To have a rotation you should better use a block containing a point or just any kind of block.




Search for DUMPENT.lsp good for finding out all sorts of stuff about an object and naming for VL & VBA will confirm if rotation supported.
A man who never made mistakes never made anything
Code:(defun c:DUMP ( / eName) (if (setq eName (car (entsel "\nSelect object: "))) (progn (vlax-dump-object (vlax-ename->vla-object eName) T) (textpage)) (prompt "\n** Nothing selected ** ")) (princ))
"Potential has a shelf life." - Margaret Atwood




Thanks Renderman didn't have that lisp at time of post. Dumpfor a Autocad point does not appear to have rotation. NOTE CIV3D point is totally different
Code:Select object: ; IAcadPoint: AutoCAD Point Interface ; Property values: ; Application (RO) = #<VLA-OBJECT IAcadApplication 000000013fdc2308> ; Coordinates = (613.794 53.8048 0.0) ; Document (RO) = #<VLA-OBJECT IAcadDocument 0000000026ac7068> ; EntityTransparency = "ByLayer" ; Handle (RO) = "116C2" ; HasExtensionDictionary (RO) = 0 ; Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000000003768f208> ; Layer = "DEFAULT" ; Linetype = "ByLayer" ; LinetypeScale = 1.0 ; Lineweight = -1 ; Material = "ByLayer" ; Normal = (0.0 0.0 1.0) ; ObjectID (RO) = 87 ; ObjectID32 (RO) = 87 ; ObjectName (RO) = "AcDbPoint" ; OwnerID (RO) = 88 ; OwnerID32 (RO) = 88 ; PlotStyleName = "ByLayer" ; Thickness = 0.0 ; TrueColor = #<VLA-OBJECT IAcadAcCmColor 00000 Select object: 00037684520> ; Visible = -1
A man who never made mistakes never made anything
You're welcome; I have a slew of Dump* and Entget* functions for various objects. I'd be happy to share if you'd find them useful.
** Edit - I do need to add Civil 3D specific support though; many of the Aecc* objects are not even supported by vlax-dump-object. I'm going to need to code some .NET LispFunction Methods to expand LISP for this.
"Potential has a shelf life." - Margaret Atwood




Renderman your mailbox is full can not send you some help for AECC CIV3d
A man who never made mistakes never made anything
Bookmarks