QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 2824|回复: 1
收起左侧

[已解决] VBA如何获得光标位置?

[复制链接]
发表于 2006-7-20 18:27:19 | 显示全部楼层 |阅读模式 来自: 中国上海

马上注册,结识高手,享用更多资源,轻松玩转三维网社区。

您需要 登录 才可以下载或查看,没有帐号?注册

x
VBA如何获得光标位置?相对于鼠标移动事件???
8 q% s! D6 H; E3 Q. F0 I/ D. \* F* V" d* `
[ 本帖最后由 唐昕晨 于 2009-1-10 16:06 编辑 ]
发表于 2008-6-10 12:33:44 | 显示全部楼层 来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!) ?" y; l; e* O
据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
* g  {: L; F& ~% t按下面是实例:# ?, ?+ f6 T$ m) `/ d' K
Import VLAX.cls. f8 {0 N! h2 m" u" r& P
Sub TEST(): u, y9 w0 m" v" ~* x6 U$ b
Dim VL As New VLAX5 t% U; @7 ~& {5 S, y( X/ l7 T) y, @
Dim pt As Variant5 S* l( F$ ~) J/ U- p9 z' L: A
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")" F/ }0 a) C: {
MsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
. x1 r0 j3 T, P( x) gEnd Sub1 d+ Q% L5 P, _) I. u% x+ ^

& Y8 J0 F2 {" W* u4 T转自明经通道1 i. w: z8 J( x) b+ E; |9 e
3 [0 W5 w7 P2 S- X
[ 本帖最后由 sealive_leafage 于 2008-6-10 13:18 编辑 ]

200310313553755958.txt

4.29 KB, 下载次数: 15

评分

参与人数 1三维币 +5 收起 理由
woaishuijia + 5 应助

查看全部评分

发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表