[求助]调用颜色选择对话框

starlet2003

想问一下，怎么调用标准的颜色选择对话框(比如图层颜色选择)？以及怎么得到返回值？

caoyin

显示标准的 AutoCAD 颜色选择对话框
(acad_colordlg colornum [flag])
参数
colornum
整数，其取值范围是 0-256 （包括 0 和 256），它用于指定颜色对话框的缺省的颜色代码。
flag
如可选参数 flag 设为 nil，禁用“随层”和“随块”按钮；省略 flag 参数或将其设为非 nil 值，则可启用“随层”和“随块”按钮。

colornum 为 0 时代表 BYBLOCK（随块），为 256 时代表 BYLAYER（随层）。
返回值
用户所选择的颜色代码，如果用户取消该对话框则返回 nil。
示例
下列代码提示用户选择一种颜色，如果不选则指定绿色为缺省颜色：
(acad_colordlg 3)

显示 AutoCAD 真彩色选择对话框
(acad_truecolordlg color [allowbylayer] [currentlayercolor])
参数
color
点对，它用于指定颜色对话框的缺省的颜色。点对的第一个元素必须是颜色的DXF组码(62、420 或 430)中的一个，如：
(62 . 颜色索引值)
(420 . 真彩色值)
(430 . "配色系统$颜色名")
allowbylayer
如可选参数 allowbylayer 设为非 nil 值，则启用“随层”和“随块”按钮，省略该参数时，则缺省值为 T，则启用“随层”和“随块”按钮。
curLayerColor
该可选项控制在对话框中“随层”和“随块”的颜色。该参数与第一个参数使用一样的点对。
返回值
用户取消该对话框则返回 nil，成功时，返回用户所选择的颜色的一个或多个点对的列表。列表中的最后一个点对确定了所选择的颜色。以下为返回列表的详细资料：
配色系统颜色 - 如果返回列表的最后一项为430点对，则是由配色系统中指定颜色。(返回的列表将同时包含了相对应真彩色的420点对和最接近的颜色索引值的62点对)。
真彩色 - 如果返回列表的最后一项为420点对，则指定的是真彩色(即“红、绿、蓝)。该列表将同时包含最接近的颜色索引值的62点对。(此时并没有430点对)
颜色索引 - 如果返回列表的最后一项为62点对，则选定了颜色索引。(此时并没有返回其它点对)
示例
下列代码提示用户选择一种颜色，如果不选则指定绿色为缺省颜色：
(acad_truecolordlg '(62 . 1))
(acad_truecolordlg '(420 . 2686760))
(acad_truecolordlg '(430 . "Color Book Sample File$Sample 0C"))
(acad_truecolordlg '(420 . 2686760) nil)

123426006

学习

盗墓笔记全文阅读 盘龙全文阅读 星辰变全文阅读 混世小农民全文阅读
鬼吹灯全文阅读 冒牌大英雄全文阅读 坏蛋是怎样炼成的全文阅读
足球比分