VBA For CAD如何获得光标下的CAD坐标

Question

用VB或VBA或Lisp或其它方法都可以，在CAD的图形窗口下，不进行鼠标点击的情况下，获得光标下的CAD的坐标，也就是要和左下角那个坐标栏里的坐标一致

Answer 1

请参考:
http://www.mjtd.com/bbs/dispbbs.asp?boardid=33&id=54166&star=1&page=4他是在2006与2007中的.

Answer 2

低版本的CAD不可以吗？有没有VB6的代码?

Answer 3

参考:
http://www.celiang.net/CELIANG/down_view.asp?id=453

Answer 4

易某点歌系统 VB源代码 (源码大小17M) 
 
华软网 下源码 送U盘 380套大型精品源码 火爆下载中
 
赶紧去看看吧，名额有限，送完为止！
 
源码下载地址：http://www.huarw.com/bbs/X_AdvCom_Vip.asp?UserID=1 (精品源码有详细软件界面截图)本站提供几百套大型商业源码，平均一元一套，火爆下载中......QQ：283072、283672　EMAIL：[e-mail]、[e-mail]　TEL：见下面页面选择华软网精品源码八大理由：http://www.huarw.com/hur/200811/1635418.html
 
  
全自动点歌系统
详细说明书首先，在使用本系统之前，请务必认真阅读本文档。
以下将把****全自动点歌系统分成：安装部分、文件部分、界面部分、操作部分、后台部分、维护部分、数据库部分等七部分详细说明：一、 安装部分：本系统基于WIN98系统平台设计，主系统使用VB60开发，核心使用VC60开发，
标准的硬件需求平台为：586以上CPU，16M以上内存，网卡及神龙DVD二代卡或以上。
    一般来说，本系统不需要烦琐配置系统环境即可在PC上良好的运行，但是对于一些特殊的用户，我们提供了一些简单的配置，用以改变某某全自动点歌系统所需的环境以适合特殊的要求，配置接口提供并集成在EtDVD.INI 里，以下将作简要介绍：
例：                                                说明：
[ThisBFName]                            //当前包房名项
ThisBFName=某某                    //指出当前包房名为“某某”
[BDNumber]                             //歌曲被次数设定（此版本不提供支持）
BDNumber=1500                         //当一首歌的点击次数大于设定值时自动将
此首歌放入最受欢迎的歌曲类别中。
[WelcomeMessage]                        //点歌系统运行后的顶部滚动条信息设定
WelcomeMessage=某某全自动点歌系统  //滚动条信息为“某某全自动点歌系统”
[DBDriver]                               //点歌系统的数据库驱动名称。
DriverName=Microsoft Access Driver (*.mdb)   //建议不改动，如果您的系统不能正确连接数
据库，请改动此项使之与ODBC中的
ACCESS驱动名称一致，包括空格及其它符
号在内，相应的数据库名在控制面板中的
ODBC控制器中可以查看到。
[DVDCardSet]                             //DVD卡的设置
IsNoDVD=0                               //如果系统暂时不支持或没有安装DVD解
压卡，或PC中没有安装相应的或解压卡驱
动，将此项置为1，系统将不再检测DVD
卡运行，因此将不可以点歌，否则置为0。二、 文件部分:
如果是默认安装，则系统会自动安装到C:\Program Files\EtKlok目录下，文件列表详细如下：
PIC                                    界面图片文件夹
STAR                                  歌星图片文件夹
EtDVD.DLL                           DVD卡驱动核心库
EtDVD.INI                            系统配置文件
EtDVDSYS.EXE                        系统后台程序
EtKLOK.EXE                           系统主程序
EtKLOK.MDB                          系统库文件
在PIC目录中，包含了系统运行时所有的界面图片，如果缺少将导致系统加载时报错。在STAR目录中，包含了系统全部的歌星的相应图片，如果缺少将导致系统库中歌星记录与实际歌星图片不一致，则在系统运行后此歌星图片显示将为空，EtDVD.DLL为系统的核心驱动，所有DVD卡的调用都是由该核心库完成，该文件必须存在于本系统当前目录，否则将导致系统加载时报错。EtDVD.INI在上面已有详细介绍，如EtDVD.DLL一样，该文件也须在本系统当前目录，如缺损则会导致加载失败。EtDVDSYS.EXE为本系统的后台扩展程序，通过该程序，可以对歌曲库，歌星库，及配置文件进行相应操作。EtKLOK.EXE为本系统主程序，为本系统的主体文件。EtKLOK.MDB为本系统的数据库，记录着所有相关的信息。三、 界面部分:本系统为单界面系统，免去了选歌时跳来跳去的烦琐操作，直接单界面完成所有的点歌操作功能，界面图例如下：
 点歌菜单分为大类菜单项和小类菜单项，详细如下：
主菜单：=> 各子菜单项：
分类歌曲=>国语歌曲，粤语歌曲，台语歌曲，英文歌曲，音乐舞曲
合唱歌曲=>国语合唱，粤语合唱，台语合唱，英文合唱，其它合唱
流行歌曲=>流行独唱，流行合唱
电影小品=>精彩电影，相声小品
当选取某大类菜单项后，则会列出相应的小类菜单项，选择小类菜单项后则等于选定了相应类型的歌曲，则此类型歌曲会出现在待选栏内，包括编号、歌名及歌星名，当此类待选歌曲过多时，查找相应歌曲仍十分困难，则可通过字数，字首，性别来对此类待选歌曲作进一步筛选。在界面的偏右半部分，列出相应的歌星，单击相应歌星图片则此歌星的歌曲会出现在左边的待选栏内，在待选栏内单击，则被点击歌曲被选中，如果当前为停止状态则自动播放，如果为播放状态，则将被选中歌自动加入已点歌曲序列，并显示为红色，当待选栏歌曲为红色时，则表示已点播，不能再选中。通过歌星点歌栏右边的钮来切换已点歌曲目和歌星点歌曲目。
点歌功能钮可以对当前的一些播放状态进行控制，在此对循环作简要介绍，当正在播放时点击循环钮则此首点播歌进入循环状态，直至下次点击时停止循环。当点击最下面的字母钮后，将在所有歌曲内找寻字首为相应字母的歌曲，而不管是否选择了哪个类别的子类歌曲。四、 操作部分:本系统支持多种终端操作模式，其中最常用的为三种，键盘，鼠标及遥控器，除鼠标直接单击外，将键盘和遥控器的相应操作键值对应功能列出如下：
具体功能                键盘操作键         遥控器对应键值
重唱                        r                  114
停唱                        s                  115
原/伴唱                      a                  97
暂停                        p                  112
删歌                        d                  100
主画面                      m                  109
已点歌                      w                  119
优先                        i                   105
类别选择                    1-9数字键           49-57
退出                        ESC                27
选择                        回车                13
选歌上页                    PageUp              33
选歌下页                    PageDown            34
选歌向上                    方向键上             38
选歌向下                    方向键下             40
歌星上页                    方向键左             37
歌星下页                    方向键右             39
左上歌星选择                ,                     44
右上歌星选择                .                     46
左下歌星选择                b                     98
右下歌星选择                f                     102注意，由于本系统为单界面，所以对遥控器的操作有一定难度，所以对遥控器选择歌曲的类别时设置了组合键，组合键及功能如下：
以大类菜单为前部分加上以小类菜单为后部分的组合形成两位数字键即代表以下功能：
   1          1         2         3         4         5
分类歌曲=>国语歌曲，粤语歌曲，台语歌曲，英文歌曲，音乐舞曲
   2          1         2         3         4         5
合唱歌曲=>国语合唱，粤语合唱，台语合唱，英文合唱，其它合唱
   3          1         2
流行歌曲=>流行独唱，流行合唱
   4          1         2
电影小品=>精彩电影，相声小品例：如果想选择国语歌曲则输入数字键11即可，因为其属于分类歌曲类，所以前位为1，再上国语歌曲本身位为1，所以键入11即可选中国语歌曲，同理21表示选中国语歌唱，24表示选中了英文合唱，32表示为流行合唱等等，如果选择项超出菜单项则无任何动作。
对于使用计算机进行播放，可以在播放以后使用F2将视频图像切换至VGA显示输出，F3则将视频图像切换至TV显示输出。
 
五、 后台部分:后台系统配置主要由EtDVDSYS.EXE后台程序完成，运行此程序时，请确保点歌主系统没有运行。此后台程序分成三个部分的设置，包括歌曲库设置、歌星库设置、及其它设置。以下作简要介绍：
1． 歌曲库设置
在这个部分里可以对歌曲库进行相应的管理，包括添加、编辑、删除歌曲等等，并提供按歌曲名称的快捷查找。添加歌曲时，每一项均为必须填写或选择项，在添加一首歌曲时请单击添加钮，则所有录入项进入编辑状态，在相应的栏目项内输入或选择相应的选项即可，在歌名字数中直接选择歌曲字数，汉字单字算一个字数，如果歌名超过10个字数，请选择11。在歌名字首中选择此歌曲的歌名首字拼音。选择相应的歌曲文件到歌曲文件项中，如果选择歌曲存在并连接正确则左下角会出现“此文件连接正确”的相应提示，反之会出现“此文件连接不正确”提示，因此可以根据此信息判别歌曲文件是否连接正确。当点选了正确的歌曲后，可单击左下的播放钮来播放相应的歌曲，通过播放歌曲来确定歌星的名称、歌曲名称、歌曲语种、是否合唱、原唱声道等等。通过左声道右声道钮切换播放歌曲的声道，如果播放的此首歌曲左声道为歌星原声则在原唱声道中选择左声道，反之选择右声道。如果在是否流行项中选择流行，则此歌曲将会出现在点歌主系统的流歌歌曲一类中。当全部项填好后，单击停唱，保存新歌曲，亦可通过相应的方法来修改歌曲及删除歌曲。
可以通过歌名快速查找指定歌曲及跳至指定歌曲处。注意：在添加使用歌曲名称时，歌曲名称一律不得包含半角的逗号，分号，单引号，双引号，大括号，减号，等号及加号等，如果歌曲名称中必须使用这些符号，请将这些符号转全角方式。2． 歌星库设置
在歌星库设置一部分里，具体操作方式同上，如果需要添加新的歌星资料，务必需要把需要添加的歌星图片拷贝到当前系统的歌星图片目录(Star)中，然后再在歌星库里选中添加即可，如果歌星图片不在上述目录中则何存时会提示找不到该歌星图片。
3． 其它设置
在其它设置部分中，可以对包房名，最受欢迎点击次数，及以滚动栏信息进行重新设置，修改即可保存。此部分功能亦可在EtDVD.INI中直接手动修改。