指定现有配色系统的颜色名称。 支持的平台:仅窗口 签名工 务 局: object.SetColorBookColor BookName, ColorName
返回值(RetVal)无返回值。 言论没有额外的评论。 例子工 务 局: Sub Example_SetColorBookColor() ' This example draws a line and specifies a color name ' from an existing color book. Dim FirstColor As AcadAcCmColor Set FirstColor = AcadApplication.GetInterfaceObject("AutoCAD.AcCmColor." & Left(AcadApplication.Version, 2)) FirstColor.SetRGB 80, 100, 244 Dim line As AcadLine Dim startPoint(0 To 2) As Double Dim endPoint(0 To 2) As Double startPoint(0) = 1#: startPoint(1) = 1#: startPoint(2) = 0# endPoint(0) = 5#: endPoint(1) = 5#: endPoint(2) = 0# Set line = ThisDrawing.ModelSpace.AddLine(startPoint, endPoint) ZoomAll FirstColor.SetColorBookColor "PANTONE+ Solid Uncoated", "PANTONE Yellow 012 U" line.TrueColor = FirstColor End Sub Visual LISP: (vl-load-com) (defun c:Example_SetColorBookColor() ;; This example draws a line and specifies a color name ;; from an existing color book. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) (setq FirstColor (vlax-create-object (strcat "AutoCAD.AcCmColor." (substr (getvar "ACADVER") 1 2)))) (vla-SetRGB FirstColor 80 100 244) (setq startPoint (vlax-3d-point 1 1 0) endPoint (vlax-3d-point 5 5 0)) (setq modelSpace (vla-get-ModelSpace doc)) (setq lineObj (vla-AddLine modelSpace startPoint endPoint)) (vla-ZoomAll acadObj) (vla-SetColorBookColor FirstColor "PANTONE+ Solid Uncoated" "PANTONE Yellow 012 U") (vla-put-TrueColor lineObj FirstColor) (vlax-release-object FirstColor) ) |
|Archiver|CAD开发者社区 ( 苏ICP备2022047690号-1 )
GMT+8, 2024-5-19 13:54
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.