VBA Autocad: How to find lines?

[ElCidCampeador]

I'm trying to write a VBA code that searches in a general drawing all lines that have a specific length and slope. Then, every time it finds that line in the drawing, it will write next to a specific text, for example "line". Do you think it's possibile? Any idea? Thanks

[Tyke]

In principle what you want to do is perfectly possible.

 

You search the current drawing filtering on lines to create a selection set. Then loop through the selection set and write your text at your desired position.

[BIGAL]

As VBA

 

Dim FilterDXFCode(0) As Integer
Dim FilterDXFVal(0) As Variant

FilterDXFCode(0) = 0
FilterDXFVal(0) = "LINE"


Set SS = ThisDrawing.SelectionSets.Add("Linelens")
SS.Select acSelectionSetAll, , , FilterDXFCode, FilterDXFVal
For Cntr = 0 To SS.Count - 1

'now get the length etc and do something

As lisp

(setq ss (ssget (list (cons 0 "Line"))))
(repeat (setq x (sslength ss))
(setq obj (vlax-ename->vla-object (ssname  ss (setq x (- x 1)))))
(vla-get-length obj)
(princ "\n")
)

[maratovich]

Do you think it's possibile?

Can.

Write all the requirements, and attach an example.

[ElCidCampeador]

Thank you all! It works...!

[BIGAL]

What worked ? You dont have to post the code just how, others may want the same answer.

[ElCidCampeador]

I used your idea Bigal, vba