Ejecuta comando en una capa y establece la actual a capa 0

Ir abajo

Ejecuta comando en una capa y establece la actual a capa 0 Empty Ejecuta comando en una capa y establece la actual a capa 0

Mensaje por supertxull el Jue Mar 28, 2019 1:33 pm

Hola a todos, a ver si podéis echarme una mano con esta rutina:
Me gustaría que hiciese la nube de revisión en la capa "_SIM_COMENTARIOS" y al finalizar la orden, se establezca la capa 0 como actual.
¿Es posible?
Código:
(vl-load-com)
(defun C:REVISIONES ()
  (initcommandversion 2)
  (setq acadObj (vlax-get-acad-object))
  (setq doc (vla-get-ActiveDocument acadObj))
  (setq color (vlax-create-object
 (strcat "AutoCAD.AcCmColor."
 (substr (getvar "ACADVER") 1 2)
 )
      )
  )
  (setq layerObj (vla-Add (vla-get-Layers doc) "_SIM_REVISIONES"))
  (vla-put-color layerObj "10")
  (SETVAR "REVCLOUDGRIPS" 1)
  (SETVAR "REVCLOUDCREATEMODE" 0)
  (vla-put-ActiveLayer doc layerObj)
  (setq acadObj (command "._REVCLOUD" "L" "0.5" "0.5" "E" "C"))
  (vla-Regen doc :vlax-true)
  (vlax-release-object color)
  (SETVAR "CLAYER" "0")
)

supertxull

Mensajes : 17
Fecha de inscripción : 21/03/2016

Volver arriba Ir abajo

Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.