模糊输入

守仁格竹GM

我想在输入时候 比如只输入D 就会出现DIm等等CAD所有自带的命令，都出现在下拉列表中，请问如何实现呢。

Lispboy

你用OPENDCL写一个非模式框，应该很容易实现的。

守仁格竹GM

Lispboy 发表于 2013-5-13 16:33
你用OPENDCL写一个非模式框，应该很容易实现的。

能帮忙弄个简单的吗，对那个不熟悉，谢谢:)

XDSoft

守仁格竹GM 发表于 2013-5-13 16:34
能帮忙弄个简单的吗，对那个不熟悉，谢谢

不熟悉就去OPENDCL论坛讨论嘛，自己要动手写才能学会新东西。

牢固

此功能高版本自带！

ll_j

这在高版本的CAD中是自带的功能。

开启动态输入

关闭动态输入

我使用的2012版本，输入时稍作停顿就会显示。

没有刻意研究，不知是不是有变量控制。

夏生生

:lol试试这个
[pcode=lisp,true](defun c:q (/ oi)
  (initget
    "1.quite 2.qcclose 3.qdim 4.qleader 5.qnew 6.qsave 7.qselect 8.qtext 9.quickcalc"
  )
(setq oi (cond
          ((getkword
           "\n[1.quite/2.qcclose/3.qdim/4.qleader/5.qnew/6.qsave/7.qselect/8.qtext/9.quickcalc]<1.quite>"
         ))
          ("1.quite")
  ))
  (command (substr oi(+ 2(vl-string-search "." oi))))
)[/pcode]

守仁格竹GM

:lol 多谢多谢，不过这个我会。有个类似find的命令 我也有个但是效果不一样，给大家贴一下。论坛里面高手写的

;;;=============================================================================
;;;改进后：模糊查询
(defun C:TT (/ CMD_OLD E I LST NAME PT SS STR)
    (princ "\n**在\"TEXT\"对象中模糊查询**")
    ;;
    (setq CMD_OLD (getvar "CMDECHO"))
    (setvar "CMDECHO" 0)
    ;;
    (if        (and (/= (setq NAME (getstring "\n请输入查询内容：")) "")
             (or (setq SS (ssget "x"
                                 (list (cons 0 "TEXT") (cons 1 NAME))
                          )
                 )
;;;                 (setq SS (ssget "x"
;;;                                 (list (cons 0 "TEXT")
;;;                                       (cons 1 (strcat NAME "*"))
;;;                                 )
;;;                          )
;;;                 )
;;;                 (setq SS (ssget "x"
;;;                                 (list (cons 0 "TEXT")
;;;                                       (cons 1 (strcat "*" NAME))
;;;                                 )
;;;                          )
;;;                 )
                 (setq SS (ssget "x"
                                 (list (cons 0 "TEXT")
                                       (cons 1 (strcat "*" NAME "*"))
                                 )
                          )
                 )
             )
        )
        (progn
            ;;组建排序表
            ;;其格式为：((字符长度 字符 点位)()...)
            (setq LST '()
                  I   0
            )
            (repeat (sslength SS)
                (setq E          (ssname SS I)
                      STR (cdr (assoc 1 (entget E)))
                      PT  (cdr (assoc 10 (entget E)))
                )
                (setq LST (cons (list (strlen STR) STR PT E) LST))
                (setq I (1+ I))
            ) ;_结束repeat
            ;;排序
            (setq LST (vl-sort LST
                               (function (lambda (E1 E2)
                                             (< (car E1) (car E2))
                                         )
                               )
                      )
            )
            ;;逐个显示
            (foreach N LST
                (progn
                    (command "._pan" (caddr N) (getvar "VIEWCTR"))
                    (redraw (last N) 3)
                    (princ "\n找到内容: \"")
                    (princ (cadr N))
                    (getstring "\" 请按空格键继续...: ")
                    (redraw (last N)4)
                )
            ) ;_结束foreach
        )
        (princ "\n没有找到!")
    )
    ;;
    (setvar "CMDECHO" CMD_OLD)
    (princ)
);_结束defun

ysyshui

夏生生 发表于 2013-5-13 17:01
试试这个
(defun c:q (/ oi)
  (initget

好，学习学习