启用英文输入法---找到用API的简便方法

/db_自贡黄明儒_

如下的代码在VBE中是能运行的，成功调用英文输入法
哪位大神帮看看，能否用lisp调用。我一运行，提示缺少;

(defun w2 (/ STR)
  (setq *scr* (vlax-create-object "ScriptControl"))
  (vlax-put *Scr* "language" "JScript")
  (setq        str
         "Public Declare LoadKeyboardLayout Lib \"user32\" Alias \"LoadKeyboardLayoutA\" (ByVal pwszKLID As String, ByVal flags As Long) As Long
  Sub aa()
  LoadKeyboardLayout \"00000409\", &H1
  End Sub"
  )
  (vlax-invoke *Scr* 'ExecuteStatement str)
)

[1.54] (*ERROR* "Microsoft JScript 编译错误: 缺少 ';'")
[2.49] (_call-err-hook #<SUBR @0d32fce4 *ERROR*> "Microsoft JScript 编译错误:
缺少 ';'")
[3.43] (sys-error "Microsoft JScript 编译错误: 缺少 ';'")
:ERROR-BREAK.38 "Microsoft JScript 编译错误: 缺少 ';'"
[4.35] (IDispatch.Invoke #<VLA-OBJECT IScriptControl 08151fe0> EXECUTESTATEMENT
1 "Public Declare LoadKeyboardLayout Lib \"user32\" Alias
\"LoadKeyboardLayoutA\" (ByVal pwszKLID As String, ByVal flags As Long) As
Long\n  Sub aa()\n  LoadKeyboardLayout \"00000409\", &H1\n  End Sub")
[5.27] (vlax-invoke #<VLA-OBJECT IScriptControl 08151fe0> EXECUTESTATEMENT
"Public Declare LoadKeyboardLayout Lib \"user32\" Alias \"LoadKeyboardLayoutA\"
(ByVal pwszKLID As String, ByVal flags As Long) As Long\n  Sub aa()\n  
LoadKeyboardLayout \"00000409\", &H1\n  End Sub")
[6.20] (W2) LAP+64
[7.15] (#<SUBR @0e4022e4 -rts_top->)
[8.12] (#<SUBR @0a090334 veval-str-body> "(w2)" T #<FILE internal>)
:CALLBACK-ENTRY.6 (:CALLBACK-ENTRY)
:ARQ-SUBR-CALLBACK.3 (nil 0)
下面9楼的办法是加载Project.dvb（里面定义有函数aa)，然后在命令行输入(command "_-vbarun" "aa")就可以切换到英文输入法了

aeo

lisp调用winapi

10年前就在讨论：
http://bbs.mjtd.com/thread-72145-1-1.html
从头看到底。

http://bbs.mjtd.com/thread-74063-1-1.html

高飞鸟的帖子里面也有讨论。

还有高飞鸟搞了一个 Dynwrapx 的工具，你找找，很强大。
如果本论坛找不到，可以到明经上去找，很早以前看到的，现在不知道在哪里了，只好你自己找了。

还有利用excel的vba的。excel一般人都装的，但cad的vba就不一定安装了，所以excel反而可行。

如果vbe简单几句就搞定，vbe都强得变天了，怎么可能。

/db_自贡黄明儒_

晓东这么多高手，都哪儿去了。别沉呀

/db_自贡黄明儒_

aeo 发表于 2016-11-29 22:28

这个在vbe在VBE中确实可行，我是运行成功后才想移植到lisp中。
高飞鸟的 Dynwrapx 我也是知道的，但好像与这个问题没有关系。

'调用英文输入法VBE中成功运行
Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
Sub aa()
    LoadKeyboardLayout "00000409", &H1
End Sub

kqqt6236

也有楼主搞不定的？

/db_自贡黄明儒_

aeo 发表于 2016-11-29 22:28

版主指示的方向应该是对，要用高飞大师的Dynwrapx。但对于注册时“输入参数”为什么那么写，高飞大师说见原型，原型可不是那样的呀。最后一个是返回值，这个好理解l ,就是long的条一字母。

elitefish

Dynwrapx  也有局限，Win10    32位的CAD2006无法创建 dynwrapx对象

/db_自贡黄明儒_

elitefish 发表于 2016-12-1 22:51

是不是你的输入法切换，使用Dynwrapx后已经更新了？

/db_自贡黄明儒_

现在终于找到一个办法，先在VB中编辑好这个工程Project.dvb（里面有函数aa)，加载这个工程。然后在lisp中可用了(command "_-vbarun" "aa")，这样就可以切换到英文输入法了

;;1.bask 中是源码，放入VB编辑中，制作成Project.dvb，然后加载
;;;Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
;;;Sub aa()
;;;  LoadKeyboardLayout "00000409", &H1
;;;End Sub

;;;执行如下代码，就可以切换到英文输入法了
(vl-vbarun "aa");(command "_-vbarun" "aa");;因为Project.dvb中定义了函数“AA“

/db_自贡黄明儒_

;;;Public Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long
;;;Public Declare Function LoadKeyboardLayout Lib "user32" Alias "LoadKeyboardLayoutA" (ByVal pwszKLID As String, ByVal flags As Long) As Long
;;;'[功能]134481924英文
;;;Public Sub GetKeyboardLayout1()
;;;   If not GetKeyboardLayout(0) = 134481924 Then LoadKeyboardLayout "00000409", &H1
;;;End Sub
;;如果不是英文输入法，启用英文输入法
(vl-vbarun "GetKeyboardLayout1")

/db_自贡黄明儒_

;;;'[功能]小写时，按下CapsLock
;;;Public Sub KeyStatesCAPITAL()
;;;    Set WshShell = CreateObject("wscript.shell")
;;;    If GetKeyState(&H14) = 0 Then WshShell.SendKeys "{CAPSLOCK}"
;;;End Sub
(vl-vbarun "KeyStatesCapital")

lucas3

长老, 能用这个做些什么?

elitefish

/db_自贡黄明儒_ 发表于 2016-12-2 07:51

因为 DynamicWrapperX 无法在win10 cad2006中使用  现在还是使用快捷键的方式来触发了，这个方法不挑系统，也不需要额外的程序。

aeo

/db_自贡黄明儒_ 发表于 2016-12-2 15:29

看我上面二楼回复的倒数第二行

kurt1000

cAD中可以运行exCeL中的函数，在明经中我看到了，黄老师您的帖子在明经没看到啊？晓东电脑登陆不了