乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 64|回复: 4

TrueColor对话框

[复制链接]

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2006-5-24 11:14:48 | 显示全部楼层 |阅读模式
有人知道如何从VBA调用真彩色对话框吗,比如LISP中的' acad_truecolordlg '?
我知道有一个用于ACI颜色对话框的API,但是找不到类似于TrueColor的API。
A2k7...蒂亚·于尔格

本帖以下内容被隐藏保护;需要你回复后,才能看到!

游客,如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2006-5-27 16:18:01 | 显示全部楼层
以下是我所知道的关于
选项显式
公共声明函数acedSetColorDialog Lib"acad.exe"(Color As Long, ByVal bAllowMetaColor As Boolean, ByVal nCurLayerColor As Long)As Boolean
Sub test()
Dim lngInitClr As Long
Dim blnMetaColor As Boolean
Dim lngCurClr As Long
On Error Resume Next
如果acedSetColorDialog(lngInitClr, blnMetaColor, lngCurClr)然后
MsgBox lngInitClr
结束如果
结束子
公共函数ColorDialog()As整数
Dim intVariable As整数
如果连接则
objAcad.Application.WindowState=acMin
'调用acad颜色对话框并返回
'调用颜色对话框
ThisDrawing1.SendCommand("(setq clr(acad_colordlg1))"&vbCr)
ThisDrawing1.SendCommand("(if(=clr nil)"&_
"(setvar""USERI5"""-1)"&_
"(setvar""USERI5""clr)"&vbCr)
ColorDialog=ThisDrawing1.GetVariable("USERI5")
'重置sysvar
ThisDrawing1.SetVariable"USERI5", intVariable
End如果
Fred Castillo
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2006-5-29 02:29:10 | 显示全部楼层
谢谢你,弗雷德…
我从AutoCAD的VBA调用ACI颜色对话框没有问题,而是在A2k4+中调用TrueColor对话框<第三条路呢<干杯
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2006-5-29 04:05:52 | 显示全部楼层
http://www.fmsinc.com/products/components/components2000/ControlTour/cdlg.htm
http://www.shareup.com/Aurigma_Color_Dialog-download-5471.html
http://www.shareup.com/ColorCombo_ActiveX-download-27898.html
回复

使用道具 举报

9

主题

25

帖子

1

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
61
发表于 2006-5-29 11:39:29 | 显示全部楼层
我会试一试,谢谢弗雷德。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-5 19:14 , Processed in 0.448052 second(s), 62 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表