Creación de objetos Point

AutoCAD ActiveX

 
Creación de objetos Point
 
 
 

Los objetos de punto pueden ser de mucha utilidad, por ejemplo, como puntos de referencia o de nodo hacia los cuales podrá forzar el cursor o desfasar los objetos. Si lo desea, podrá especificar el estilo del punto, así como su tamaño, en relación con la pantalla o en unidades absolutas.

Las variables de sistema PDMODE y PDSIZE controlan el aspecto de los objetos de punto. Los valores 0, 2, 3 y 4 de PDMODE seleccionan una figura que debe dibujarse a través del punto. El valor 1 establece que no se visualice nada.

Añada 32, 64 o 96 al valor anterior para seleccionar una forma que debe dibujarse alrededor del punto además de la que se dibuja para atravesarlo:

PDSIZE controla el tamaño de las figuras de punto, salvo en los valores 0 y 1 de PDMODE. Al establecer PDSIZE en 0 se genera el punto al 5% de la altura del área gráfica. Un valor positivo de PDSIZE especifica un tamaño absoluto para las figuras de punto. Un valor negativo se interpreta como un porcentaje del tamaño de la ventana gráfica. El tamaño de todos los puntos vuelve a calcularse al regenerar el dibujo.

Después de cambiar PDMODE y PDSIZE, la próxima vez que se regenere el dibujo cambiará el aspecto de los puntos existentes.

Para definir PDMODE y PDSIZE, utilice el método SetVariable.

Creación de un objeto Point y modificación de su aspecto

El código siguiente crea un objeto Point en las coordenadas (5, 5, 0) del espacio modelo. Después se actualizan las variables de sistema PDMODE y PDSIZE.

Sub Ch4_CreatePoint()
    Dim pointObj As AcadPoint
    Dim location(0 To 2) As Double
      
    ' Define the location of the point
    location(0) = 5#: location(1) = 5#: location(2) = 0#
      
    ' Create the point
    Set pointObj = ThisDrawing.ModelSpace.AddPoint(location)
    ThisDrawing.SetVariable "PDMODE", 34
    ThisDrawing.SetVariable "PDSIZE", 1
    ZoomAll
End Sub