Anuncios

The Autodesk Community Forums has a new look. Read more about what's changed on the Community Announcements board.

JamesMaeding
en respuesta a: hmsilva

oh, I meant 2014 and 2015, typo, thx

 

my full routine is: (for acad and bricscad)

;(MAKE-AX-COLOR (cons acColorMethodByaci 2))
(DEFUN MAKE-AX-COLOR (color-list / color-object color-method)
  (cond
    ;BRICSCAD
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\V12*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "BricscadDb.AcadAcCmColor.12.0")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\V13*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "BricscadDb.AcadAcCmColor.13.0")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\V14*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "BricscadDb.AcadAcCmColor.14.0")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\V15*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "BricscadDb.AcadAcCmColor.15.0")
            color-method (car color-list)
      )
    )
    
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\R16*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.16")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\R17*") ;(vlax-dump-Object (vlax-get-acad-object))
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.17")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\R18*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.18")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\R19*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.19")
            color-method (car color-list)
      )
    )
    ((WCMATCH (VLAX-PRODUCT-KEY) "*\\R20*")
      (setq color-object (vla-GetInterfaceObject (vlax-get-acad-object) "AutoCAD.AcCmColor.20")
            color-method (car color-list)
      )
    )
  )
  (vla-put-ColorMethod color-object color-method)
  (if (= color-method acColorMethodByRGB)
    (vla-SetRGB  color-object  (NTH 1 color-list) (NTH 2 color-list) (NTH 3 color-list))
   )
   (if (= color-method acColorMethodByACI)
    (vla-put-ColorIndex color-object (cdr color-list))
   )
   (if (= color-method acColorMethodByLayer)
    (vla-put-ColorIndex color-object 256)
   )
  color-object
)

 


internal protected virtual unsafe Human() : mostlyHarmless
I'm just here for the Shelties