QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
VBA如何获得光标位置?相对于鼠标移动事件???
% C1 U: @  J' `, q1 X& P- A0 D3 G1 b% c" N5 T# x
[ 本帖最后由 唐昕晨 于 2009-1-10 16:06 编辑 ]
发表于 2008-6-10 12:33:44 | 显示全部楼层 来自: 中国浙江宁波
VBA实现有难度,可以考虑使用lisp函数grread实现!
( @( Z- s2 y  ~0 E6 B/ M; D6 [据说VBA利用下面的VLAX.CLS可以实现,原理也是让VBA执行LISP的GRREAD函数
) ?9 n; S  B( S. ~+ `3 ?" ^按下面是实例:" C( F- G( f1 z" g3 f' N6 N
Import VLAX.cls
! Y2 m+ \& [: MSub TEST()3 p. C- h5 H9 U+ ~. d
Dim VL As New VLAX( V' F8 X5 q( X
Dim pt As Variant/ I0 H' ?1 L7 w; t; H
pt = VL.EvalLispExpression("(VLAX-3D-POINT (CADR (GRREAD t))) ")
; a. e$ I" a3 E9 N* ]; c5 UMsgBox pt(0) & ", " & pt(1) & ", " & pt(2)
4 S6 ]+ C0 x% y" Y5 E1 sEnd Sub, w$ B8 v3 b5 q# V/ l
) B# i+ v- n* }; ?9 X) d8 U4 U, P3 T
转自明经通道& n; T0 B* @" q2 W# K( L

* _8 a( o0 f% }' h: J- b+ `3 y[ 本帖最后由 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 )

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