Question

autocad lisp中，command如何调用find这个函数？

Answer 1

好象这个命令执行会跳出对话框，这正是你不想让它出现的情况，是吗？

如果要老亏型在lisp程序侍猜里，完成类似查找替换的操作，可以直接用LISP函数实现，靠你的大脑了，用LISP，而空槐不通过CAD的原始COMMAND也是可以实现的。

Answer 2

命令: (command "find")

追问

他里面的参数顺序是如何？

追答

你要找的是这个吧：
tblsearch (AutoLISP)
Searches a symbol table for a symbol name
(tblsearch table-name symbol [setnext])

Arguments
table-name
A string that identifies the symbol table to be searched. This argument is not case-sensitive.

symbol
A string identifying the symbol name to be searched for. This argument is not case-sensitive.

setnext
If this argument is supplied and is not nil, the tblnext entry counter is adjusted so the following tblnext call returns the entry after the one returned by this tblsearch call. Otherwise, tblsearch has no effect on the order of entries retrieved by tblnext .

Examples
The following command searches for a text style named “standard”:
Command: (tblsearch "style" "standard")
((0 . "STYLE") (2 . "STANDARD") (70 . 0) (40 . 0.0) (41 . 1.0) (50 . 0.0) (71 . 0) (42 . 0.3) (3 . "txt") (4 . ""))

Related References
tblnext (AutoLISP)

追问

这个的用法是怎样用呢？感觉不怎么像lisp的？

追答

查一下tblsearch、tblnext的AutoLISP帮助文件。
例如下面一段代码，就是找一个叫做rod的层，如果没找到就造一个：
( if ( null ( tblsearch "layer" "rod" ))
( progn
( prompt "\n创造新层 ROD, 用于..." )
( command "layer" "new" "rod" "color" "cyan" "rod" "" )
( princ "OK!" )
)); if - progn