04-01-2015
03:11 PM
- Marcar como nuevo
- Favorito
- Suscribir
- Silenciar
- Suscribirse a un feed RSS
- Resaltar
- Imprimir
- Denunciar
04-01-2015
03:11 PM
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