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

/db_自贡黄明儒_

aeo 发表于 2016-12-10 10:48

看来版主也是对此很研究的，其实我搞这个主要是为了输入法

;;切换输入法
(defun C:w1 ()
  (setq *excel* (vlax-get-or-create-object "excel.application"))
  (vlax-invoke *excel* 'SendKeys "^ ")
)

;;大小写锁定
(defun C:w2 ()
  (setq *excel* (vlax-get-or-create-object "excel.application"))
  (vlax-invoke *excel* 'SendKeys "{CAPSLOCK}")
)

/db_自贡黄明儒_

;;[输入法之一]关闭中文输入法，套用Highflybird的帖子http://bbs.xdcad.net/forum.php?mod=viewthread&tid=667889&ctid=13
;;;利用excel直接调用API 运行过程sub
(defun command-will-start (reactor command-list / MOD OBK STR)
  ;;不知道为什么要如下的注册???
  (or *wsh* (setq *wsh* (vlax-get-or-create-object "wscript.Shell")))
  (vlax-invoke *wsh* 'RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\11.0\\Excel\\Security\\AccessVBOM" 1 "REG_DWORD")
  (vlax-invoke *wsh* 'RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\12.0\\Excel\\Security\\AccessVBOM" 1 "REG_DWORD")
  (vlax-invoke *wsh* 'RegWrite "HKEY_CURRENT_USER\\Software\\Microsoft\\Office\\14.0\\Excel\\Security\\AccessVBOM" 1 "REG_DWORD")
  ;;(vlax-release-object *wsh*)

  (or *excel* (setq *excel* (vlax-get-or-create-object "excel.application")))
  (setq obk (vlax-invoke (vlax-get *excel* 'workbooks) 'add))
  (setq mod (vlax-invoke (vlax-get (vlax-get obk 'VBProject) 'VBComponents) 'add 1))
  (setq str
"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
Public Sub GetKeyboardLayout1()
   If not GetKeyboardLayout(0) = 134481924 Then LoadKeyboardLayout \"00000409\", &H1
End Sub"
  )
  (vlax-invoke (vlax-get mod 'CodeModule) 'AddFromString str)
  (vlax-invoke *excel* 'run "GetKeyboardLayout1")
  (vlax-put *excel* 'DisplayAlerts 0)
  (vlax-invoke obk 'close)
  (vlax-invoke *excel* 'quit)
  (vlax-release-object mod)
  (vlax-release-object obk)
  ;;(vlax-release-object *excel*)
  (princ)
)
(VLR-editor-Reactor
  nil
  '((:vlr-commandEnded . command-will-start))
)

Lisphk

/db_自贡黄明儒_ 发表于 2017-1-4 14:14

黄总，能不能综合的说下，这个帖子里面的函数应用在什么场合

yjch

向黄总学习了

/db_自贡黄明儒_

;;;==============================================================英文
;;[输入法之二]关闭中文输入法,同时锁定为大写字母
;;大写字母
(defun command-will-start (reactor command-list)
  (or *WSH* (setq *WSH* (vlax-get-or-create-object "wscript.shell")))
  (or *word*
      (setq *word* (vlax-get-or-create-object "word.application"))
  )
  (if (= (vlax-get *word* 'CapsLock) 0)
    (Vlax-Invoke *WSH* 'Sendkeys "{CAPSLOCK}")
  )
)
(VLR-editor-Reactor
  nil
  '((:vlr-commandEnded . command-will-start))
)
;;;==============================================================英文

/db_自贡黄明儒_

;;;==============================================================英文
;;[输入法之四]关闭中文输入法,没有安装ET工具不能用
(defun command-will-start (reactor command-list)
  (or *wsh* (setq *wsh* (vlax-get-or-create-object "wscript.Shell")))
  (IF (= (ACET-SYS-KEYSTATE 20) 0)
    (Vlax-Invoke *WSH* 'Sendkeys "{CAPSLOCK}")
  )  
)
(VLR-editor-Reactor
  nil
  '((:vlr-commandEnded . command-will-start))
)
;;;==============================================================英文

/db_自贡黄明儒_

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

版主能否将http://bbs.mjtd.com/thread-74063-1-1.html
Vlisp-API(改进版).fas
转一个过来？

/db_自贡黄明儒_

elitefish 发表于 2016-12-1 22:51
Dynwrapx  也有局限，Win10    32位的CAD2006无法创建 dynwrapx对象

最近使用win10才现此问题，不知道您解决没有？