data extraction from multiple polylines at same time with unique id

data extraction from multiple polylines at same time with unique id

sk.akshay25
Observer Observer
852 Views
6 Replies
Message 1 of 7

data extraction from multiple polylines at same time with unique id

sk.akshay25
Observer
Observer

Hi,

Can anyone help me getting data extraction from multiple polylines to excel sheet at the same time with a unique id for every polyline

0 Likes
853 Views
6 Replies
Replies (6)
Message 2 of 7

Anonymous
Not applicable

How would your file look in excel?
Polyline01 ID
polyline02 ID
[...]

0 Likes
Message 3 of 7

sk.akshay25
Observer
Observer

yes like this with its properties

0 Likes
Message 4 of 7

Anonymous
Not applicable

what properties? color ? size? ...

0 Likes
Message 5 of 7

sk.akshay25
Observer
Observer

yes like this. i mean handle key so that if we want to search the same polyline in AutoCAD again so we can search with that handle key

0 Likes
Message 6 of 7

sk.akshay25
Observer
Observer

properties; drawing name/no, layer name, area and perimeter of polyline and handle key fr the same. (for closed and open both tpyes of polylines)

0 Likes
Message 7 of 7

Sea-Haven
Mentor
Mentor

If you searched a bit you should have found something close. Its a task asked many times before, the simplest answer is to create a csv file that can be read into excel.

 

If you dump a pline using VL lisp you get the following properties which can be written to a file.

 

Select object: ; IAcadLWPolyline: AutoCAD Lightweight Polyline Interface
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 00007ff6efad1e30>
;   Area (RO) = 22851.0
;   Closed = 0
;   ConstantWidth = 0.0
;   Coordinate = ...Indexed contents not shown...
;   Coordinates = (438.274 377.093 350.597 263.545 487.373 208.873 ... )
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000016800a9b248>
;   Elevation = 0.0
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "11C6A"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 000001682be60ca8>
;   Layer = "DEFAULT"
;   Length (RO) = 471.499
;   Linetype = "ByLayer"
;   LinetypeGeneration = 0
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 43
;   ObjectName (RO) = "AcDbPolyline"
;   OwnerID (RO) = 44
;   PlotStyleName = "ByLayer"
;   Thickness = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 000001682be60d00>
;   Visible = -1

 

(setq obj (vlax-ename->vla-object (car (entsel "pick object "))))

(setq lay (vla-get-layer obj))
(setq hand (vla-get-handle obj))
0 Likes