|
发表于 2008-8-21 08:35:36
|
显示全部楼层
来自: 中国辽宁营口
也可以用发送键盘命令的方式传递参数
+ e4 O B" i" I" U" D; }8 E4 S, ?比如LSP程序:4 v$ x: F' Y8 j5 U# P! l% ~
---------------------------------------
( l8 K+ V, ]% _* h# G+ p(defun c:aaa()' ^, ^9 u# u5 s1 R3 g
(command "-vbarun" "a" "AAA" )4 ~- Q h3 |9 ^0 H
)2 Z$ E" W8 u. z4 ^* h1 r& H) Y, \
---------------------------------------
" ?3 [0 t0 }3 n+ W! X
6 N0 p' r' I, u7 D3 V% XVBA模块代码:
7 u V# j0 ]6 k$ O) v4 ~---------------------------------------3 r6 M, ^9 V; Q' k2 o$ t
Sub A()
. q" S, F' J( V" y. s6 B6 w* M If ThisDrawing.Utility.GetString(0) = "AAA" Then UserForm1.Show
$ `, C1 V$ w _3 B& p4 dEnd Sub9 P! s( y/ D8 O( A
---------------------------------------
, R9 r7 ?. x* x1 F& O$ T, H5 {, _ `# O) _
另外我想,用读写文本文件的方式也应该可以传递参数。我对LISP了解不多,不知可否使用注册表?如果可以应该也是一种方法。
S1 b( T! ^9 W4 J# r! v2 |( v4 a9 }! {3 e# T4 f
[ 本帖最后由 woaishuijia 于 2008-8-21 08:46 编辑 ] |
评分
-
查看全部评分
|