请教：vla-sendcommand函数的用法

xiayuxue213

假设tt是我自定义的命令（函数）
为啥这样

• (vla-sendcommand *DOC* “ tt ”)  tt不会被执行
• 
  
  • (vla-sendcommand *DOC* “0,0 tt ”)tt会才执行
    

marting

你TT是怎么定义的？ 贴上来看看

Lisphk

vla-sendcommand 这个函数作用就是替你把字符串发送到命令行，所以，你手工在命令行怎么输入函数能执行，就把这些字符串做参数给这个函数，最后的回车键是\n，别忘了

比如你定义的是函数，

1. (defun tt()
   
2.    (princ "\ntest.")
   
3.    (princ)
   
4. )
   

(defun tt()<br />    (princ "\ntest.")<br />    (princ)<br /> )<br />

你手工在命令行是需要输入 (tt) 回车，才执行，
你用这个函数就要

1. (vla-sendcommand "(tt)\n")
   

(vla-sendcommand "(tt)\n")<br />

xiayuxue213

Lisphk 发表于 2017-7-30 18:40

老大，我试了一下你的方法好像不行。
下面这段代码是论坛里别人写的。我现在不明白为什么(setq p (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " HH "))
        (vla-sendcommand *DOC* p)这两行要这样写？

;;自定义双击反应器,空，文本则变色
(defun dblclkedit (reactorObject point / B COLOR1 ENT OWNER P)
  (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  (or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
  (setq owner (nentselp (setq p (trans (car point) 0 1))))
  (cond
    ((and
       (= (vla-get-ActiveSpace *DOC*) 1)                    ;模型空间
       (= 0 (getvar 'cmdactive))                            ;无命令执行
     )
     (cond
       ((not owner)                                            ;击点在空白
        (setq p (strcat (rtos (car p) 2 3) "," (rtos (cadr p) 2 3) " HH "))
        (vla-sendcommand *DOC* p)
       )
       (T
        (cond ((> (length owner) 2) (setq ent (last (last owner))))
              (T (setq ent (car owner)))
        )
        (cond
          ((wcmatch (cdr (assoc 0 (entget ent))) "*TEXT,ATTDEF")
           (setq ent (vlax-ename->vla-object ent))
           (cond ((> (setq color1 (vla-get-Color ent)) 2) (setq color1 0)))
           (vla-put-Color ent (1+ color1))
          )
        )
       )
     )
    )
  )
)



(defun Start-Mouse-Reactor ()
  (VLR-Mouse-Reactor nil '((:VLR-beginDoubleClick . dblclkedit)))
)
;;(Start-Mouse-Reactor);启用命令反应器,先要有dblclkedit定义
(cond ((or (not (getenv "dblclkedit")) (= (getenv "dblclkedit") "1")) (Start-Mouse-

Reactor)))

(defun Stop-Mouse-Reactor (/ *dblclkReactor*)
  (cond        ((setq *dblclkReactor* (assoc :VLR-Mouse-Reactor (vlr-reactors)))
         (vlr-remove (cadr *dblclkReactor*))
        )
  )
)
;;(Stop-Mouse-Reactor);停止双击命令反应器

newer

xiayuxue213 发表于 2017-7-30 18:53

非模式对话框，OPENDCL程序，的技巧。

非模式对话框，ACAD可能不是焦点，

执行前，你打印下 p 看看是什么。

用 非模式 搜索下 OPENDCL论坛，看看以前的知识。