[原创]：介绍一种新的CAD二次开发程序语言

chenronglin · 发表于 2004-8-3 08:59:44

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

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

×

初学、初用AutoCAD提供的二次开发程序语言者，一般会觉得这些语言不错，一但熟悉这些语言、尤其是深究之，会逐渐发现这些语言的欠缺，甚至语言架构有问题。 CAD的操作过程很随意，按下Esc键是非常平常的事，不少AutoLISP程序的运行，就是因为按下这个键后出现紊乱，以致不能正常再运行，如果程序中有开启的文件句柄，情况会更糟。。。

迄今Autodesk公司为AutoCAD提供的众多二次开发语言中没有一个理想的。把Java引入AutoCAD中也不是好事，Java是一个极端性编译型语言，凡事用Class表达，且必须在Class定义体内表述，当Class中内容较多时，程序的可读性很差！另外，其垃圾回收机制的不可预测性和对内存巨大需求，使该语言所谓的优势大打折扣。学习并用好Java，其难度和复杂度并不会比C++小。

Python语言具有很好功能和扩展性,可惜该语言有它的致命点，它对程序对齐格式有非常严格要求，多一个空格、多一个空行都会导致程序错误，这初看起来是一个很简单要求，但是，有点编程经验的人都会发觉这是非常难以避免的、并会频繁发生的错误，其情形让我想起当年FORTRAN 77程序语言对格式对齐的要求----太原始了。

虽然AutoLISP语言功能欠佳，但是不可否认，早期AutoCAD的成功，在很大程度上得益于AutoLISP !

我在国外工作的一位朋友，花费约七年的业余时间研究、设计成功一种程序语言，这里姑且称为Dx语言，该语言以ADS/ARX形式，与AuoCAD R14 ---- AutoCAD2004 很好地结合，很可能引发AutoCAD一次变革。如果能与其他CAD软件结合，譬如国产CAD，在二次开发领域，足以与AutoCAD抗衡，甚至超越后者，对CAD本身的进一步发展及其发展模式都可能发生深刻变革。不多说了，下面简要介绍一下：

Dx是一个集面向对象、面向过程、面向泛型于一体的解释性程序语言，不需要任何编译，电脑直接运行源程序码，Dx在AutoCAD里使用时，与AutoLISP一样方便，而其程序的架构、简洁性、可读性、尤其是功能等方面比AutoLISP好很多。Dx程序格式与C /C++相同或相似，其他语言的一些优秀架构在Dx中也可以见到身影。Dx并不是在简单模仿其他语言架构，除了简化、提高外，Dx也拥有本身特色的一些结构。

1) Dx的Class定义，支持"简化型"的多重继承。实际上，是在C++的普通公共单继承的基础上，同时继承任意个数的"简单型"基类：该基类上没有任何继承关系。拿Java相比，就是把Java中的接口(interface)换成"简单型"基类。这里既可以避免普通多重继承所产生的网状复杂继承关系，又可以弥补单一继承所存在的一些缺憾，另外，还省了"接口"这个概念！

class A1 { ...略... };
class A2 { ........ };
class A3 { ........ };
class B { ........ };
class C : B { ........ };

class MyDemo (A1, A2, A3) : C
{
 static int count = 0;

 public:
 int age = 24;
 str (姓名) = "赵明"；

 sub MyDemo() { }
 sub ~MyDemo() { }
 sub Run( ) {...}
};

懂得C++的人，对上面大部分class的定义体，应该不会陌生，对于MyDemo的定义有必要说明一下，(A1, A2, A3) 就是同时继承这些"简单型"的class，而 : C是普通继承基类C。成员函数的定义以关键字sub开头 (在Class 体外定义函数时，以关键字defun开头)。这里有一个有趣功能：类的成员变量名可以为非英文，只要用括号括起来就可以了，如何存取？如下：

X = new MyDemo;
name = X.[姓名];

2) Dx提供名字空间功能，通过名字空间概念，可以显著降低程序命名冲突，这对于解释型语言程序来说尤其重要。

3) Dx支持多线程(Thread)和同步机制。

4) Dx中，类的非静态成员函数也可以成为回调函数，因此，设计窗口之类的程序很方便。

5) Dx的函数定义，支持关键字参数格式：
defun MyFunc (Name, age=1)
{
 .........;
}

MyFunc("John", 24);
或
MyFunc(age=24, Name="Jhon");

6) Dx的函数定义，支持参数个数可变模式：
defun MyFunc (A, B, ...)
{
 ............;
}

顺便说一下，Dx中的线程主函数也可以是参数个数可变模式的函数。

7) Dx支持子函数、甚至孙函数定义，这些子孙函数拥有其长辈函数的存取权限。这个支持，进一步提高Dx程序的简洁性、可读性。

defun MyDemo :: Run . SubFun()
{
 .....;
}

8) Dx内部的内存回收机制优于AutoLISP、Java、C＃等，Dx不仅可以回收直接产生的动态内存，而且可以自动关闭相关的各类句柄，比如文件句柄，因此，在Dx中 fclose()，
EndPaint()之类的函数是多余的。程序员可以控制、清楚知道内存回收过程。程序是正常结束、还是异常中断，所有该回收的内存，程序会自动回收，所有该关闭的句柄，程序会自动关闭。

9) Dx支持C /C++中的大部分数据类型，包括64-bit整数、指针和结构(struct)位域，也支持简单型宏替换，甚至在结构定义中可以支持不同位对齐，因此与C/C++的沟通能力很强，这为Dx的扩展性提供一个很好的基础。指针的支持，可能会引起一些人的恐惧，其实大可不必，在很多情况下Dx根本用不着指针，但是指针的支持，既为一些程序高手提供便利，也为Dx与C/C++的高度兼容提供架构，Dx程序极易仿真到C/C++，反之亦然。Dx还支持货币 (Currency)、日期 (Date)、日期时间（DateTime)、复数等数据类型，此外，Dx还提供超高精度整数(Number)、超高精度实数(Decimal)，两者的十进制有效数字位高达78位:

Number: -5.7896 E+77 到 5.7896+77
Decimal: -5.7896 E+39 到 5.7896+39，小数点后精密(无失真)记录到1.0E-38

10) Dx内部定义多种数据链，并提供大量操作方法，包括迭代操作方法，处理数据非常方便。当然，其中包括 AutoLISP 的LIST 数据链，下面看看如何方便操作LIST数据链：

 Lx = new LIST ( 11, 22, <33, <"$$$", PI>>, "Hello!");
Lx的当前值(实际上是一种高级指针)：
 (11 22 (33 ("$$$" 3.14159)) "Hello")

 Lx.len();
得到LIST链主结点个数：
 4

 Lx++;
Lx的当前值：
 (22 (33 ("$$$" 3.14159)) "Hello")

 Lx -> Value;
得到结果：
 22

 Lx++;
Lx的当前值：
 ((33 ("$$$" 3.14159)) "Hello")

 Lx->Value; 与 Lx[0].Value;
得到相同结果：
 33

 Lx[1].Value;
得到结果：
 "$$$"

 Lx[1].Value = "NewX";
Lx的当前值是：
 ((33 ("newX" 3.14159)) "Hello")

 Lx--;
Lx的当前值：
 (22 (33 ("newX" 3.14159)) "Hello")

 Lx.ToLast();
Lx的担前值：
 ("Hello")

 Lx.ToFirst();
Lx的当前值：
 (11 22 (33 ("newX" 3.14159)) "Hello")

Dx对LIST数据链的数据存取操作，是基于高级指针，它可以对数据链各结点局部操作，不会影响其它结点的数据，因此很有效率。下面是用函数entget获得的轻型LWPOLYLINE实体(Entity)的LIST数据链MyList:
 ((-1 . <Entity name: 33e0528>) (0 . "LWPOLYLINE") (5 . "4D")
(100 . "AcDbEntity") (67 . 0) (8 . "0")(100 . "AcDbPolyline")
(90 . 3) (70 . 0) (43 . 0.0) (38 . 0.0)(39 . 0.0)
(10 5.39471 4.932 0.0) (40 . 0.0)(41 . 0.0)(42 . 0.0)
(10 7.10083 6.636 1.21312e-126) (40 . 0.0)(41 . 0.0)(42 . -0.792233)
(10 9.38367 5.22 7.74682e-304) (40 . 0.0)(41 . 0.0)(42 . 1.39127)
(210 0.0 0.0 1.0)
)

该LIST数据链含3个顶点(对应代码 10)。在AutoLISP程序里要修改该3个顶点的值(比如Scale)，是比较复杂的，如果不重构整条数据链，好象做不到。在Dx里进行该操作非常简单，且用不着重构：

把顶点的X和Y值放大到2倍，而Z值置0：
scale = 2.0;

for (p=MyList; p && (p=p.SeekType(10)); p++) {
 p->Value[0] *= scale;
 p->Value[1] *= scale;
 p->Value[2] = 0.0;
}

或用迭代法：
MyList.do() {
 if (Just->Type != 10) continue;
 Just->Value[0] *= scale;
 Just->Value[1] *= scale;
 Just->Value[2] = 0.0;
}

事实上，这里的关键字Just还可以用符号 ^ 代替：
MyList.do() {
 if (^Type != 10) continue;
 ^Value[0] *= scale;
 ^Value[1] *= scale;
 ^Value[2] = 0.0;
}

11) Dx可以直接调用电脑操作系统中数以千计的WIN32 的API库函数：
 api.gdi32.Ellipse( hdc, x1, y1, x2, y2);
或
 My = api.gdi32;
 My.Ellipse(hdc, x1, y1, x2, y2);

12) Dx支持COM构件操作，比如操作MS Excel:
 xApp = CreateDispatch("Excel.Application");
 xApp.Visible = TRUE;
 xApp.Workbooks.Add();
 xSheet = xApp.Sheets[1];
 xSheet.Cells[1, 1] = "Hello, my friends!";
 ... ...;

今天就粗粗讲这些。最后，给出Dx在AutoCAD中的一个应用实例：

// 从客户提供的DXF文件读得的AutoCAD图中，存在数以千计的"圆":由半
// 圆型的、同圆心、同半径的两个圆弧构成。现在需要把这些"圆"的圆心
// 坐标(X, Y)按半径从小到大输出到指定文件 "A2C.NC"中，同时在屏幕显示。
// 下面的Dx程序就是执行该功能，该程序装入内存后，会自动在AutoCAD
// 的命令序列中插入一个命令"A2C"，用于启动下面程序。

defun C_A2C()
{
Sysvar = SaveSysVar();
$luprec= 3;
$D2 = TRUE;
$Xstr = "X";
$Ystr = "Y";
acc = 0.0005;

filter = buildlist(0, "ARC");
ss = ssget(filter);
if (!ss) return;
len = ss.len();

T = new TREE.Real.Lvect(acc);

for (i=0; i<len; i++) {
 eg = entget(ss);
 Ra = eg.SeekType(40)->Value;
 Pt = eg.SeekType(10)->Value;
 dA = eg.SeekType(50)->Value -
 eg.SeekType(51)->Value;
 if (Ra>acc && equal(abs(dA), PI, acc) && !T[Ra].Seek(Pt, acc))
 T[Ra].Add(Pt);
}

fw = fopen("A2C.NC", "w");

T.Sort();

Xout(fw, "%\n");
T.Queue.Do() {
 Xprintf(fw, "T%02dD%0.3lf\n", $i+1, Just->Key *2);
}
T.Queue.Do() {
 Xprintf(fw, "\nT%02d\n", $i+1);
 Just->Value.Xout(fw);
 Xout(fw, "\nM99\n");
}
Xout(fw, "%\n");
}

下面是输出的部分结果：
%
T01D0.701
T02D0.800
T03D0.899
... ...
T11D3.200
T12D4.000

T01
X58.499Y98.501
X48.339Y98.501
X48.339Y103.624
... ...
X43.0Y165.039
M99

T02
X26.5Y48.501
X26.5Y57.501
... ...
X80.249Y158.75
X85.011Y160.637
M99

.....

T12
X75.001Y92.25
X0.0Y0.0
X119.499Y0.0
X120.5Y0.0
X119.501Y0.0
X120.499Y0.0
M99
%

// OK! ///////////////////////////////

DARCY · 发表于 2004-8-3 15:00:55

不知道国内是否已有个人或机构开始使用？它是不是还是实验室中的东东？

小树袋熊 · 发表于 2004-8-3 15:25:20

说了一大堆，那里有下载啊？

boaosun · 发表于 2004-8-5 14:04:51

看来看去，跟C也差不多！！不过，会不会有持续的升级版本支持就不知道了！

小树袋熊 · 发表于 2004-8-5 14:17:30

估计是来这里骗钱混帖的

magyar · 发表于 2004-8-24 23:29:46

看不懂

ishou · 发表于 2004-9-13 01:32:49

1楼对Dx 比较粗糙的介绍，只是对Dx功能的部分披露。Dx还没有
正式对外公布，只是在极少数朋友中试用。在书写格式和运作方式
上，Dx很象C/C++，但是与C/C++又有很多不同处，Dx属于解释性
智能型语言，可以象LISP一样方便使用。Dx可以很简洁方式调用
COM 函数、属性，也可以与 AutoLISP函数很简洁方式混合调
用，比如，有LISP定义的函数
(defun MyLispFunc ( x y) ....)

可以在Dx中直接调用:
res = MyLispFunc !(88, 999); // 这里是用 !(...) 格式调用的

对Dx介绍太多，很枯燥吧。下面给大家两个应用实例看看：

// 人们在使用AutoCAD的 offset 和copy 等命令时，往往需要把得到的新的实体的层、
// 颜色、线型等设置成当前的对应设置。下面程序可以实现这个功能。在Command下
// 输入ActEd启动该功能，输入DelEd 则关闭该功能。
/************************************************************************/
#package myDemo //开始建立程序包 myDemo，也就是开始建立名字空间
/************************************************************************/
private var myEd=NIL;
/************************************************************************/
public defun [C:ActEd] () // 定义函数 C:ActEd，自动在AutoCAD命令序列
// 注册命令 ActEd
{
myEd = NIL;
myEd = EditorReactor (new MyEdReactor);
// 用下面定义的class MyEdRector 建立Editor反应器
prinn("Acting myEd...");
}
/////////////////////////////////////////////////////////////////////////
public defun [C:DelEd] ()
{
myEd = NIL; // 把程序包中的变量myEd中记录的反应器释放。
prinn("myEd deleted.");
}
/************************************************************************/
class MyEdReactor // 定义用于Editor反应器的class
{
var m_en;
STR m_curLayer, m_curColor, m_curLtype;
sub commandWillStart ();
sub commandEnded (cmd);
};
/////////////////////////////////////////////////////////////////////////
defun MyEdReactor::commandWillStart () // 命令开始时的回调函数
{
m_en = entlast();
m_curLayer = getvar ("CLAYER");
m_curColor = getvar ("CECOLOR");
m_curLtype = getvar ("CELTYPE");
}
/////////////////////////////////////////////////////////////////////////
defun MyEdReactor::commandEnded (cmd) // 命令正常结束时的回调函数
{
var ss;
switchx (cmd, TRUE) // switchx 是对switch的拓展：可以不单纯比较整数
{ // 第二个参数是精度设置、或是否不区分字母大小写
case "OFFSET":
case "COPY" :
ss = sslast (m_en); // 获取自m_en 实体之后产生的新的实体集合
if (!ss) break;
ss.SetLayer (m_curLayer); // 设置实体集ss中的所有实体的层
ss.SetColor (m_curColor); // 设置实体集ss中的所有实体的颜色
ss.SetLtype (m_curLtype); // 设置实体集ss中的所有实体的线型
break;
}
}
#package //程序包 myDemo 定义结束
/************************************************************************/

// 人们在使用AutoCAD的 offset 和copy 等命令时，往往需要把得到的新的实体的层、 
// 颜色、线型等 设置成当前的对应设置。下面程序可以实现这个功能。在Command下 
// 输入ActEd启动该功能，输入DelEd 则关闭该功能。 
 
 
/************************************************************************/ 
#package  myDemo  //开始建立程序包 myDemo，也就是开始建立名字空间 
 
/************************************************************************/ 
private  var myEd=NIL; 
 
 
/************************************************************************/ 
public defun [C:ActEd] ()  // 定义函数 C:ActEd，自动在AutoCAD命令序列 
                           // 注册命令 ActEd 
{ 
    myEd = NIL; 
    myEd = EditorReactor (new MyEdReactor); 
                 // 用下面定义的class MyEdRector 建立Editor反应器 
 
    prinn("Acting myEd..."); 
} 
 
///////////////////////////////////////////////////////////////////////// 
public defun [C:DelEd] () 
{ 
    myEd = NIL;  // 把程序包中的变量myEd中记录的反应器释放。 
    prinn("myEd deleted."); 
} 
 
/************************************************************************/ 
class MyEdReactor  // 定义用于Editor反应器的class 
{ 
    var  m_en; 
    STR  m_curLayer, m_curColor, m_curLtype; 
 
    sub  commandWillStart (); 
    sub  commandEnded     (cmd); 
}; 
 
///////////////////////////////////////////////////////////////////////// 
defun MyEdReactor::commandWillStart ()  // 命令开始时的回调函数 
{ 
    m_en = entlast(); 
    m_curLayer = getvar ("CLAYER"); 
    m_curColor = getvar ("CECOLOR"); 
    m_curLtype = getvar ("CELTYPE"); 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun MyEdReactor::commandEnded (cmd)  // 命令正常结束时的回调函数 
{ 
    var   ss; 
 
 
    switchx (cmd, TRUE)  // switchx 是对switch的拓展：可以不单纯比较整数 
    {                    // 第二个参数是精度设置、或是否不区分字母大小写 
        case "OFFSET": 
        case "COPY"  : 
 
            ss = sslast (m_en); // 获取自m_en 实体之后产生的新的实体集合 
            if (!ss) break; 
 
            ss.SetLayer (m_curLayer); // 设置实体集ss中的所有实体的层 
            ss.SetColor (m_curColor); // 设置实体集ss中的所有实体的颜色 
            ss.SetLtype (m_curLtype); // 设置实体集ss中的所有实体的线型 
            break; 
    } 
} 
 
#package  //程序包 myDemo 定义结束 
 
/************************************************************************/

// 下面程序枚举acadbtn.dll 中的资源：bitmap，并且用工具条的方式显示出来：
/************************************************************************/
#include "windows.ch"
#package myDemo
/************************************************************************/
public defun [c:myDemo] () // 定义函数 C:myDEmo，自动在AutoCAD
// 命令序列注册命令 MyDemo
{
static var hWnd;
static var count=0, DlgProc;
if (count == 0) {
DlgProc = AsWndProc(&myDlgProc());
// 用函数myDlgProc() 建立对话框回调函数
count++;
}
hWnd = NIL;
hWnd = CreateDialog (ThisInstance(), "BLANCK", AcadDocWnd(), DlgProc);
// 建立一个非模式对话框
}
/////////////////////////////////////////////////////////////////////////
defun myDlgProc(msg)
{
public:
sub OnInitDialog (msg);
sub OnCommand (msg);
sub OnPaint (msg);
switch (msg.message) {
case WM_INITDIALOG:
OnInitDialog(msg);
return TRUE;
case WM_COMMAND:
return OnCommand(msg);
case WM_PAINT:
OnPaint(msg);
return TRUE;
case WM_CLOSE:
DestroyWindow(msg.hwnd);
return TRUE;
case WM_DESTROY:
break;
}
return FALSE;
}
/////////////////////////////////////////////////////////////////////////
defun myDlgProc.OnInitDialog(msg)
{
static var hToolBar;
static var imgList;
var tbId=88, hInst=ThisInstance();
var sourceFile="acadbtn.dll";
var tbButtons;
var num, hModule, Enum, lstr;
hToolBar = NIL;
imgList = NIL;
SetWindowText(msg.hwnd, "MyDemo");
SetWindowPos(msg.hwnd, NULL, 0, 0, 790, 500, 0);
ShowWindow(msg.hwnd, SW_NORMAL);
hModule = LoadLibrary (sourceFile);
if (!hModule) return;
Enum = new [COLOR=Red]CEnumResource[/COLOR](hModule); //在下面定义
Enum.Start(); // 开始枚举资源
if (Enum.m_Lbitmap == NULL) return;
num = Enum.m_Lbitmap.len();
hToolBar = CreateToolbarEx ( // 建立工具条
msg.hwnd,
WS_CHILD | WS_VISIBLE | WS_BORDER | TBSTYLE_FLAT |
TBSTYLE_TRANSPARENT |
TBSTYLE_WRAPABLE | CCS_ADJUSTABLE,
tbId,
0,
hInst,
0,
NULL,
0,
0, 0,
0, 0,
sizeof(TBBUTTON)
);
tbButtons = new TBBUTTON[num];
for (i=0; i < num; i++) {
tbButtons[i].iBitmap = i;
tbButtons[i].idCommand = i;
tbButtons[i].fsState = TBSTATE_ENABLED;
tbButtons[i].fsStyle = TBSTYLE_BUTTON;
tbButtons[i].iString = 0;
}
imgList = ImageList_Create(16, 16, ILC_COLOR8, 0, num);
lstr = Enum.m_Lbitmap;
for (i=0; i < num; i++, lstr++) {
hImg = LoadBitMap(hModule, *lstr);
ImageList_Add (imgList, hImg, NULL);
}
SendMessage (hToolbar, TB_SETIMAGELIST, 0, imgList);
SendMessage (hToolbar, TB_ADDBUTTONS, num, tbButtons);
SendMessage (hToolbar, TB_ADDBUTTONS, 0, 0);
}
/////////////////////////////////////////////////////////////////////////
defun myDlgProc.OnCommand(msg)
{
switch (msg.wParam) {
case 0:
DestroyWindow(msg.hwnd);
break;
case 1:
SendCommand("\3\3LINE ");
break;
default:
return FALSE;
}
return TRUE;
}
/////////////////////////////////////////////////////////////////////////
defun myDlgProc.OnPaint(msg)
{
hdc = BeginPaint(msg.hwnd);
}
/************************************************************************/
class [COLOR=Red]CEnumResource // 用于枚举资源 [/COLOR]
{
public:
sub CEnumResource( hInst);
sub Start();
sub EnumResTypeProc( hInst, pszType, lParam);
sub EnumResNameProc( hInst, lpszType, lpszName, lParam);
HINSTANCE m_hInst;
LSTR m_Lbitmap; // 记录 bitmap名字的字符串数据链
LSTR m_Licon; // 记录 icon 名字的字符串数据链
HAPI m_kn32 = api.kernel32;
// 记录 kernel32.dll的入口句柄
CB_P3 m_TypeProc; // 记录 3 元变量的回调函数
CB_P4 m_NameProc; // 记录 4 元变量的回调函数
};
/////////////////////////////////////////////////////////////////////////
defun CEnumResource::CEnumResource ( hInst)
{
m_hInst = hInst;
m_TypeProc = AsProc3 (&EnumResTypeProc(), this);
// 设置 3 元变量的回调函数
m_NameProc = AsProc4 (&EnumResNameProc(), this);
// 设置 4 元变量的回调函数
}
/////////////////////////////////////////////////////////////////////////
defun CEnumResource::Start()
{
m_kn32.EnumResourceTypesA( m_hInst, m_TypeProc, NULL);
}
/////////////////////////////////////////////////////////////////////////
defun CEnumResource::EnumResTypeProc( hInst, pszType, lParam)
{
m_kn32.EnumResourceNamesA( hInst, pszType, m_NameProc, lParam);
return TRUE;
}
/////////////////////////////////////////////////////////////////////////
defun CEnumResource::EnumResNameProc( hInst, lpszType, lpszName, lParam)
{
if (lpszName <= 0xffff) return TRUE;
lpszName = (char *) lpszName;
switch (lpszType)
{
case RT_BITMAP:
m_Lbitmap.add( lpszName);
break;
case RT_ICON:
m_Licon.add( lpszName);
break;
}
return TRUE;
}
#package
/************************************************************************/

// 下面程序枚举acadbtn.dll 中的资源：bitmap，并且用工具条的方式显示出来： 
 
/************************************************************************/ 
#include "windows.ch" 
 
#package myDemo 
 
/************************************************************************/ 
public  defun [c:myDemo] () // 定义函数 C:myDEmo，自动在AutoCAD 
                                            // 命令序列 注册命令 MyDemo 
 
 
{ 
   static var  hWnd; 
   static var  count=0, DlgProc; 
 
 
   if (count == 0) { 
       DlgProc = AsWndProc(&myDlgProc()); 
          // 用函数myDlgProc() 建立对话框回调函数 
                         
       count++; 
   } 
 
   hWnd = NIL; 
   hWnd = CreateDialog (ThisInstance(), "BLANCK", AcadDocWnd(), DlgProc); 
          // 建立一个非模式对话框 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun myDlgProc(msg) 
{ 
public: 
    sub  OnInitDialog (msg); 
    sub  OnCommand (msg); 
    sub  OnPaint  (msg); 
 
 
    switch (msg.message) { 
    case WM_INITDIALOG: 
        OnInitDialog(msg); 
        return TRUE; 
 
    case WM_COMMAND: 
        return OnCommand(msg); 
 
    case WM_PAINT: 
        OnPaint(msg); 
        return TRUE; 
 
    case WM_CLOSE: 
        DestroyWindow(msg.hwnd); 
        return TRUE; 
 
    case WM_DESTROY: 
        break; 
    } 
 
    return FALSE; 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun myDlgProc.OnInitDialog(msg) 
{ 
    static var  hToolBar; 
    static var  imgList; 
    var   tbId=88, hInst=ThisInstance(); 
    var   sourceFile="acadbtn.dll"; 
    var   tbButtons; 
    var   num, hModule, Enum, lstr; 
 
 
    hToolBar = NIL; 
    imgList  = NIL; 
 
    SetWindowText(msg.hwnd, "MyDemo"); 
    SetWindowPos(msg.hwnd, NULL, 0, 0, 790, 500, 0); 
    ShowWindow(msg.hwnd, SW_NORMAL); 
 
    hModule = LoadLibrary (sourceFile); 
    if (!hModule) return; 
 
    Enum = new [COLOR=Red]CEnumResource[/COLOR](hModule);  //在下面定义 
    Enum.Start(); // 开始枚举资源 
 
    if (Enum.m_Lbitmap == NULL) return; 
    num = Enum.m_Lbitmap.len(); 
 
    hToolBar = CreateToolbarEx ( // 建立工具条 
        msg.hwnd, 
        WS_CHILD | WS_VISIBLE | WS_BORDER | TBSTYLE_FLAT | 
        TBSTYLE_TRANSPARENT | 
        TBSTYLE_WRAPABLE | CCS_ADJUSTABLE, 
        tbId, 
        0, 
        hInst, 
        0, 
        NULL, 
        0, 
        0, 0, 
        0, 0, 
        sizeof(TBBUTTON) 
    ); 
 
    tbButtons = new TBBUTTON[num]; 
     for (i=0; i < num; i++) { 
        tbButtons[i].iBitmap   = i; 
        tbButtons[i].idCommand = i; 
        tbButtons[i].fsState   = TBSTATE_ENABLED; 
        tbButtons[i].fsStyle   = TBSTYLE_BUTTON; 
        tbButtons[i].iString   =  0; 
    } 
 
    imgList = ImageList_Create(16, 16, ILC_COLOR8, 0, num); 
 
    lstr = Enum.m_Lbitmap; 
    for (i=0; i < num; i++, lstr++) { 
        hImg = LoadBitMap(hModule, *lstr); 
        ImageList_Add (imgList, hImg, NULL); 
    } 
 
    SendMessage (hToolbar, TB_SETIMAGELIST, 0, imgList); 
    SendMessage (hToolbar, TB_ADDBUTTONS, num, tbButtons); 
    SendMessage (hToolbar, TB_ADDBUTTONS, 0, 0); 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun myDlgProc.OnCommand(msg) 
{ 
    switch (msg.wParam) { 
    case 0: 
        DestroyWindow(msg.hwnd); 
        break; 
 
    case 1: 
        SendCommand("\3\3LINE "); 
        break; 
 
    default: 
        return FALSE; 
    } 
 
    return TRUE; 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun myDlgProc.OnPaint(msg) 
{ 
    hdc = BeginPaint(msg.hwnd); 
} 
 
 
/************************************************************************/ 
class  [COLOR=Red]CEnumResource   // 用于枚举资源 [/COLOR] 
{ 
public: 
    sub  CEnumResource( hInst); 
    sub  Start(); 
    sub  EnumResTypeProc( hInst, pszType, lParam); 
    sub  EnumResNameProc( hInst, lpszType, lpszName, lParam); 
 
    HINSTANCE  m_hInst; 
    LSTR       m_Lbitmap;    // 记录 bitmap名字的字符串数据链 
    LSTR       m_Licon;      // 记录 icon  名字的字符串数据链 
    HAPI       m_kn32 = api.kernel32; 
                             // 记录 kernel32.dll的入口句柄 
    CB_P3      m_TypeProc;   // 记录 3 元变量的回调函数 
    CB_P4      m_NameProc;   // 记录 4 元变量的回调函数 
}; 
 
///////////////////////////////////////////////////////////////////////// 
defun  CEnumResource::CEnumResource ( hInst) 
{ 
    m_hInst = hInst; 
    m_TypeProc = AsProc3 (&EnumResTypeProc(), this); 
                           // 设置 3 元变量的回调函数 
 
    m_NameProc = AsProc4 (&EnumResNameProc(), this); 
                           // 设置 4 元变量的回调函数 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun  CEnumResource::Start() 
{ 
    m_kn32.EnumResourceTypesA( m_hInst, m_TypeProc, NULL); 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun  CEnumResource::EnumResTypeProc( hInst, pszType, lParam) 
{ 
    m_kn32.EnumResourceNamesA( hInst, pszType, m_NameProc, lParam); 
    return TRUE; 
} 
 
///////////////////////////////////////////////////////////////////////// 
defun  CEnumResource::EnumResNameProc( hInst, lpszType, lpszName, lParam) 
{ 
    if (lpszName <= 0xffff) return TRUE; 
    lpszName = (char *) lpszName; 
 
    switch (lpszType) 
    { 
        case RT_BITMAP: 
            m_Lbitmap.add( lpszName); 
            break; 
 
        case RT_ICON: 
            m_Licon.add( lpszName); 
            break; 
    } 
 
    return TRUE; 
} 
 
#package 
 
/************************************************************************/

ymd · 发表于 2004-9-13 08:53:37

粗看又象VB又象VC

yusongrong · 发表于 2004-9-13 09:40:47

有什么实际意义？

bitgothic · 发表于 2004-9-13 10:05:45

好象有点意思，哪里可以下载试用呢

AiJue · 发表于 2005-4-12 08:31:45

好像目前为止还没有人用过

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

[原创]：介绍一种新的CAD二次开发程序语言

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

相关帖子