ColorName 属性 (ActiveX)
指定颜色的名称(如果有)。 支持的平台:仅限 Windows 属性值只读:是的 类型:字符串 颜色名称。 言论没有其他评论。 例子VBA: Sub Example_ColorName() 'This example draws a circle and 'returns the color name and color book name of the color. Dim cir As AcadCircle Dim pt(0 To 2) As Double Set cir = ThisDrawing.ModelSpace.AddCircle(pt, 2) Dim col As AcadAcCmColor Set col = cir.TrueColor col.SetRGB 125, 175, 235 col.SetNames "MyColor", "MyColorBook" cir.TrueColor = col ZoomAll Dim retCol As AcadAcCmColor Set retCol = cir.TrueColor MsgBox "BookName=" & col.BookName & vbLf & _ "ColorName=" & col.ColorName End Sub 可视化 LISP: (vl-load-com) (defun c:Example_ColorName() ;; This example draws a circle and ;; returns the color name and color book name of the color. (setq acadObj (vlax-get-acad-object) doc (vla-get-ActiveDocument acadObj)) (setq pt (vlax-3d-point 0 0 0)) (setq modelSpace (vla-get-ModelSpace doc) cir (vla-AddCircle modelSpace pt 2) col (vla-get-TrueColor cir)) (vla-SetRGB col 125 175 235) (vla-SetNames col "MyColor" "MyColorBook") (vla-put-TrueColor cir col) (vla-ZoomAll acadObj) (setq retCol (vla-get-TrueColor cir)) (alert (strcat "BookName=" (vla-get-BookName retCol) "\nColorName=" (vla-get-ColorName retCol))) ) |
|Archiver|CAD开发者社区
( 苏ICP备2022047690号-1 苏公网安备32011402011833)
GMT+8, 2025-3-14 05:52
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.