cad输入法自动切换插件V1.0 源码

发表评论

A+

所属分类：CAD

适用场景：cad绘图需要切换中英文,避免输命令的时候而打出文字

【优化】

1.增加了双击标注线上正确触发输入法切换

2.修复多次按Ctrl+Z导致的不能连续撤销(使用Alt+Shift)

3.单行文字连续编辑，第二次编辑不会自动切换,需要另添加补丁

:注销系统自带的DDEDIT和MLEADERCONTENTEDIT,重写命令

(vl-cmdf "_.UNDEFINE" "DDEDIT")
(vl-cmdf "_.UNDEFINE" "MLEADERCONTENTEDIT")

(defun c:DDEDIT (/ ent ss tt e)
      (setq ss (ssget "_I")
      tt T)
      (while tt
      (vlax-invoke *sptshel* "SendKeys" "%+2");;如果需要切换为中文或判断选中的文字中非全英文数字,自动切换中文,需要单独写代码判断,
      ;;(vlax-invoke *sptshel* "SendKeys" "+");这里模拟按了Shift,实现中英文切换,我在实际使用中是手工操作的
      (if ss
      (progn
      (setq ent (ssname ss 0)
      e (cdr (assoc 0 (entget ent)))
      ss nil)
      )
      (progn
      (princ "\n选择注释对象或 [放弃(U)]: ")
      (setq ent (car (entsel)))
      (if (not ent)
      (progn
      (vlax-invoke *sptshel* "SendKeys" "%+1")
      (setq tt nil)
      ))))
      (if tt
      (vl-cmdf "TEXTEDIT" ent))
      (if (= e "MULTILEADER") (setq tt nil))
      )
(princ)
)
(defun c:MLEADERCONTENTEDIT ()
(c:DDEDIT))(princ)