ODCL 是否能用空格重复按钮的命令呢

spp_wall

如何让ODCL里的按钮执行过命令后
再按空格继续执行按钮的命令？

newer

你要想让空格后执行命令，那么你点按钮后那个回调函数，执行的要设计成命令。
而且你说的是非模式对话框里面的按钮吧？

spp_wall

newer 发表于 2013-11-30 12:32
你要想让空格后执行命令，那么你点按钮后那个回调函数，执行的要设计成命令。
而且你说的是非模式对话框里 ...

不太懂

附上我的代码  你帮我改一个命令 我看看 比如

谷歌-图层 里的实验命令1   如何在执行完实验命令1后  点空格或者回车后在执行这个命令呢

newer

spp_wall 发表于 2013-11-30 16:02
不太懂

附上我的代码  你帮我改一个命令 我看看 比如

把你的那些 (c:xxxx)用 Vlax-Add-Cmd 定义成命令。

spp_wall

newer 发表于 2013-11-30 16:39
把你的那些 (c:xxxx)用 Vlax-Add-Cmd 定义成命令。

有空的话  能否改一个命令 我看看！

newer

和ODCL无关，你把你程序里面定义的 (c:xxx)这些函数，找几个，用vlax-add-cmd定义成命令，然后你再执行那个按钮，然后空格看看。

spp_wall

newer 发表于 2013-11-30 17:56
和ODCL无关，你把你程序里面定义的 (c:xxx)这些函数，找几个，用vlax-add-cmd定义成命令，然后你再执行那个 ...

比如

(defun c:1111 ()
(princ "\n圆：相切 相切 半径:")
(COMMAND "CIRCLE" "2P")
(princ)
)


这个命令 如何用vlax-add-cmd定义成命令呢

newer

spp_wall 发表于 2013-11-30 19:46
比如

(defun c:1111 ()

将命令添加到 AutoCAD 内置命令集中

(vlax-add-cmd global-name func-sym [local-name cmd-flags])

使用 vlax-add-cmd 可以将函数定义为 AutoCAD 命令，而无需在函数名中使用 c: 前缀。用它也可以定义透明 AutoLISP 命令，而对于 c: 函数，这是不可能的。

警告! 不能使用 command 函数透明调用那些由 vlax-add-cmd 函数定义的命令。这样做会造成 AutoCAD 意外关闭。

vlax-add-cmd 函数使某个 明经通道 Visual LISP 函数在当前 AutoCAD 任务中作为 ObjectARX 类型的命令，在 AutoCAD 命令行提示中使用。vlax-add-cmd 函数提供了对 ObjectARX acedRegCmds 宏的访问，从而提供了一个到 ObjectARX 系统 AcEdCommandStack 对象的指针。

vlax-add-cmd 函数自动将命令指定到命令组。从文档名称空间发出命令时，vlax-add-cmd 将命令添加到组 doc-ID。doc-ID 是标识文档的十六进制值。从独立名称空间 VLX 发出命令时，vlax-add-cmd 将命令添加到组 VLC-Ddoc-ID:VLX-name。这里 VLX-name 是发出 vlax-add-cmd.的应用程序名。

推荐从独立名称空间 VLX 使用 vlax-add-cmd 函数。然后使用 APPLOAD 命令明确加载 VLX，这样比将 LISP 文件放到启动组好。

注意 不能使用 vlax-add-cmd 显露创建反应器对象的函数，也不能用它来显露反应器的回调函数。

参数

global-name

字符串。

func-sym

符号，指定不带参数的 明经通道 Visual LISP 函数。

local-name

字符串（缺省值为 global-name）。

cmd-flags

整数型（缺省值为 ACRX_CMD_MODAL + ACRX_CMD_REDRAW）。

主要标志有：

ACRX_CMD_MODAL (0) 在使用其他命令时不能调用该命令。

ACRX_CMD_TRANSPARENT (1) 在使用其他命令时可以调用该命令。

二级标志有：

ACRX_CMD_USEPICKSET (2) 检索选择优先集时，在 AutoCAD 中清除设置。命令能够获取优先集，但不能检索或设置夹点。

ACRX_CMD_REDRAW (4) 检索选择优先集或夹点集时，不将它们从 AutoCAD 中清除。命令可获取优先集和夹点集。

如果同时设置了 ACRX_CMD_USEPICKSET 和 ACRX_CMD_REDRAW，则效果和仅设置 ACRX_CMD_REDRAW 一样。关于标志的详细信息，请参见 《ObjectARX 参考手册》中的“Command Stack”。

返回值

如果成功则返回 global-name 参数。如果 acedRegCmds->addCommand(...) 返回错误条件，则函数返回 nil。

示例

下例中的 hello-autocad 函数没有 c: 前缀，但 vlax-add-cmd 将其作为 ObjectARX 类型的命令显示在 AutoCAD 命令行提示：

_$ (defun hello-autocad () (princ "hello Visual LISP"))HELLO-AUTOCAD_$ (vlax-add-cmd "hello-autocad" 'hello-autocad)"hello-autocad"

Gdlprfcu

Odcl有向命令行发送命令的函数，你只需在控件事件函数里执行向命令行发送你想要执行的命令，你再次按空格就可以达到你想要的效果了。

spp_wall

Gdlprfcu 发表于 2013-12-3 18:05
Odcl有向命令行发送命令的函数，你只需在控件事件函数里执行向命令行发送你想要执行的命令，你再次按空格就 ...

不知如何操作呢！！！！

Gdlprfcu

spp_wall 发表于 2013-12-3 20:29
不知如何操作呢！！！！

假如下面的函数是你按钮的点击事件函数，当你点击后就会向命令行发送画直线命令，完成后再次按空格就可以重复画直线啦。。。
(defun c:Button_OnClicked()  (dcl_SendString "line ")

)

spp_wall

Gdlprfcu 发表于 2013-12-3 20:58
假如下面的函数是你按钮的点击事件函数，当你点击后就会向命令行发送画直线命令，完成后再次按空格就可以 ...

这个我试试看 谢谢

我刚学的 都是在别人的ODCL上面改

QiaoCheng

多谢Gdlprfcu
原来是这样

2. (defun c:test_ChForm_TCListView_OnClicked (Row Column /)
   
3.   (setq str (dcl_ListView_GetItemText test_ChForm_TCListView Row Column))
   
4.   (cond
   
5.     ((= str "测试") (c:aa_aa) (dcl_SendString "aa_aa"))
   
6.   )
   
7. )
   
8. 
   
9. (defun c:aa_aa (/ p1 p2)
   
10.   (setq p1 (getpoint "\n选取点位置: "))
    
11.   (setq p2 (getpoint p1))
    
12.   (command "line" p1 p2 "")
    
13.   (princ)
    
14. )

(defun c:test_ChForm_TCListView_OnClicked (Row Column /)<br />   (setq str (dcl_ListView_GetItemText test_ChForm_TCListView Row Column))<br />   (cond<br />     ((= str "测试") (c:aa_aa) (dcl_SendString "aa_aa"))<br />   )<br /> )<br /> <br /> (defun c:aa_aa (/ p1 p2)<br />   (setq p1 (getpoint "\n选取点位置: "))<br />   (setq p2 (getpoint p1))<br />   (command "line" p1 p2 "")<br />   (princ)<br /> )

spp_wall

Gdlprfcu 发表于 2013-12-3 20:58
假如下面的函数是你按钮的点击事件函数，当你点击后就会向命令行发送画直线命令，完成后再次按空格就可以 ...

  好想我的程序里的命令 用你说的办法不行

能看下我的代码 在2楼  随便修改一个命令 我参考下么

因为我是用别人的模板 很多命令不太懂

spp_wall

QiaoCheng 发表于 2013-12-5 21:27
多谢Gdlprfcu
原来是这样

  好想我的程序里的命令 用你说的办法不行
能看下我的代码 在2楼  随便修改一个命令 我参考下么
因为我是用别人的模板 很多命令不太懂