[求助]：用VBA如何调出CAD的颜色属性对话框，之后，如何获得所选的颜色号

cyt4321 · 发表于 2004-9-29 09:00:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

用VBA如何调出CAD的颜色属性对话框，之后，如何获得所选的颜色号

雪山飞狐(lzh) · 发表于 2004-9-29 09:34:45

CommonDialog控件的ShowColor方法
例
CommonDialog1.ShowColor
MsgBox CommonDialog1.Color

cyt4321 · 发表于 2004-9-29 10:50:57

斑竹，我指是CAD的颜色属性对话框以及获得所选的颜色号

雪山飞狐(lzh) · 发表于 2004-9-29 11:00:38

好像没办法，对象模型并没有提供相应的方法

雪山飞狐(lzh) · 发表于 2004-9-29 11:35:02

在mjtd看见你的帖子了，Lisp不是有相应的函数麽
http://www.xdcad.net/forum/showthread.php?s=&threadid=262640

cyt4321 · 发表于 2004-9-29 13:15:46

多谢了

小美菜 · 发表于 2004-10-9 20:35:23

是不是这个

cyt4321 · 发表于 2004-10-10 10:36:44

是，请赐教。

wyj7485 · 发表于 2004-10-12 14:46:00

Private Declare Function acedSetColorDialog Lib _
"acad.exe" (color As Long, ByVal bAllowMetaColor _
As Boolean, ByVal nCurLayerColor As Long) As Boolean

Public Function ChooseColor(ByVal lngInitClr As Long, _
ByVal blnMetaColor As Boolean, _
ByVal lngCurClr As Long) As Long
ChooseColor = -1
On Error Resume Next
If acedSetColorDialog(lngInitClr, blnMetaColor, lngCurClr) Then
ChooseColor = lngInitClr
End If
On Error GoTo 0
End Function

Sub Test()
MsgBox ChooseColor(0, True, 0)
End Sub

cyt4321 · 发表于 2004-10-12 15:34:16

多谢楼上的大侠，还有斑竹

flydyt · 发表于 2004-10-18 11:38:55

请问怎么得到ACAD.EXE文件中的函数。谢谢

弓长 · 发表于 2004-10-30 16:41:50

11楼的问题是什么意思？

dearjdz123 · 发表于 2004-10-30 18:20:41

看帮助吧

Job_ho · 发表于 2004-12-28 09:46:56

Sub test()
  ThisDrawing.SendCommand "(setvar " & Chr(34) & "useri1" & Chr(34) & " (acad_colordlg 3))" & vbCr
  vardata = ThisDrawing.GetVariable("useri1")
  MsgBox "color=" & vardata
End Sub
不是很好的方法,但可以使用.

winabcd · 发表于 2005-1-10 13:54:22

请问9楼，你用了下列语句：
Private Declare Function acedSetColorDialog Lib _
"acad.exe" (color As Long, ByVal bAllowMetaColor _
As Boolean, ByVal nCurLayerColor As Long) As Boolean
你能告诉我如何能得到“acad.exe”中的其它函数吗？

账号		自动登录	找回密码
密码			立即注册

[求助]：用VBA如何调出CAD的颜色属性对话框，之后，如何获得所选的颜色号

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子