https://foro.gambas-es.org/viewtopic.php?f=24&t=8002&p=48229#p48229
-----------------------------------
tincho
Jueves, 30 Abril 2020, 23:03

Re: Material De Estudio Que Puede Interesar.
-----------------------------------
Lista de entidades DXF
[code linenumbers=false syntax=gambas]
Public Function GetEntityList() As Collection

  Dim entity As New Collection

  'entity.Add(True, "3DFACE")
  'entity.Add(True, "3DSOLID")
  'entity.Add(True, "ACAD_PROXY_ENTITY")
  entity.Add(True, "ARC")

  'entity.Add(True, "ATTDEF")
  'entity.Add(True, "ATTRIB")
  'entity.Add(True, "BODY")
  entity.Add(True, "CIRCLE")
  entity.Add(True, "DIMENSION")
  entity.Add(True, "ELLIPSE")
  entity.Add(True, "HATCH")
  'entity.Add(True, "HELIX")
  'entity.Add(True, "IMAGE")
  entity.Add(True, "INSERT")
  'entity.Add(True, "LEADER")
  'entity.Add(True, "LIGHT")
  entity.Add(True, "LINE")
  'entity.Add(True, "LWPOLYLINE")
  'entity.Add(True, "MLINE")
  'entity.Add(True, "MULTILEADER")
  'entity.Add(True, "MLEADERSTYLE")
  'entity.Add(True, "MTEXT")
  'entity.Add(True, "OLEFRAME")
  'entity.Add(True, "OLE2FRAME")
  'entity.Add(True, "POINT")
  entity.Add(True, "POLYLINE")
  'entity.Add(True, "RAY")
  'entity.Add(True, "REGION")
  'entity.Add(True, "SECTION")
  'entity.Add(True, "SEQEND")
  'entity.Add(True, "SHAPE")
  'entity.Add(True, "SOLID")
  'entity.Add(True, "SPLINE")
  'entity.Add(True, "SUN")
  'entity.Add(True, "SURFACE")
  'entity.Add(True, "TABLE")
  entity.Add(True, "TEXT")
  'entity.Add(True, "TOLERANCE")
  'entity.Add(True, "TRACE")
  'entity.Add(True, "UNDERLAY")
  'entity.Add(True, "VERTEX")
  'entity.Add(True, "VIEWPORT")
  'entity.Add(True, "WIPEOUT")
  'entity.Add(True, "XLINE")

End
[/code]
Comento las que no son necesarias al principio ya que son entidades avanzadas que me parece que en la etapa temprana que estamos pueden omitirse.
Saludos.


