Select Civil 3d Alignment

Select Civil 3d Alignment

Anonymous
Not applicable
532 Views
2 Replies
Message 1 of 3

Select Civil 3d Alignment

Anonymous
Not applicable

Hallo,

 

i want to select just Alignment. For example, this code for selection of just a Circles

Sub Ch4_FilterMtext()
  Dim sstext As AcadSelectionSet
  Dim FilterType(0) As Integer
  Dim FilterData(0) As Variant
  Set sstext = ThisDrawing.SelectionSets.Add("SS2")
  FilterType(0) = 0
  FilterData(0) = "Circle"
  sstext.SelectOnScreen FilterType, FilterData
End Sub

 what is the name of Civil 3d Alignments???

 

Regards,

 

Hossam

0 Likes
Accepted solutions (1)
533 Views
2 Replies
Replies (2)
Message 2 of 3

Alfred.NESWADBA
Consultant
Consultant
Accepted solution

Hi,

 

LISP command should help you to identify the DXF-Name:

(entget (car (entsel "Select your alignment: ")))

- alfred -

------------------------------------------------------------------------------------
Alfred NESWADBA
ISH-Solutions GmbH / Ingenieur Studio HOLLAUS
www.ish-solutions.at ... blog.ish-solutions.at ... LinkedIn ... CDay 2026
------------------------------------------------------------------------------------

(not an Autodesk consultant)
0 Likes
Message 3 of 3

Anonymous
Not applicable

thanks for your reply, it works

 

"AECC_ALIGNMENT"

0 Likes