[LISP程序]：一个方便,实用,能列出AutoCAD内部函数的小程序

lsjjm · 发表于 2004-2-28 06:08:44

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

一个方便,实用,能列出AutoCAD内部函数的小程序

[php]
(defun c:test ()
(setq funn (getstring "\nFunction Name <*>: "))
(if (= funn "")(setq funn "*"))
(setq fl (vl-remove-if-not
(function (lambda (i)(wcmatch i (strcase funn))))
(atoms-family 1)
)
)
(if fl
(foreach i (acad_strlsort fl)(write-line i))
(alert "no function definition!")
)
(princ)
)
[/php]

例如输入"ss*", 可列出所有以"ss"开头的函数:

SSADD
SSDEL
SSGET
SSGETFIRST
SSLENGTH
SSMEMB
SSNAME
SSNAMEX
SSSETFIRST

陌生人 · 发表于 2004-2-28 11:48:50

直接回车不是默认的*
应该'*

eachy · 发表于 2004-2-28 11:51:19

应该输出到一个文件，看起来方便

cxzr8 · 发表于 2004-3-4 00:05:58

如能改进一下，想必一定很实用

lsjjm · 发表于 2004-3-4 05:14:22

按照陌生人建议, 第二行后加入: (if (= funn "")(setq funn "*"))

myrooms · 发表于 2004-3-25 09:20:30

水平不够，没看明白，那个函数的功能是列出内部函数

wujimmy · 发表于 2004-4-3 14:03:27

好像有问题啊？是不是要装什么东西啊？

Command: test

Function Name <*>: s*
error: null function
(VL-REMOVE-IF-NOT (FUNCTION (LAMBDA (I) (WCMATCH I (STRCASE FUNN))))
(ATOMS-FAMILY 1))
(SETQ FL (VL-REMOVE-IF-NOT (FUNCTION (LAMBDA (I) (WCMATCH I (STRCASE FUNN))))
(ATOMS-FAMILY 1)))
(C:TEST)
*Cancel*

lsjjm · 发表于 2004-4-4 11:57:00

最初由 wujimmy 发布
[B]好像有问题啊？是不是要装什么东西... [/B]

没有问题呀! 加载调用程序后: s*
返回: (2004)
SAFEARRAY
SAFEARRAY-GET-DIM
SAFEARRAY-GET-ELEMENT
SAFEARRAY-GET-L-BOUND
SAFEARRAY-GET-U-BOUND
SAFEARRAY-PUT-ELEMENT
SAFEARRAY-TYPE
SAFEARRAY-VALUE
...

xxhlovekr · 发表于 2004-4-7 04:14:53

我怎么还是不能下啊???

lsjjm · 发表于 2004-4-7 08:10:42

最初由 xxhlovekr 发布
[B]我怎么还是不能下啊??? [/B]

怎么个"不能下" 法, 请说清楚? 加载后运行就是了!

floyd007 · 发表于 2004-4-24 18:43:39

好好学习

buba · 发表于 2004-5-18 03:58:36

如能改进一下，想必一定很实用

lsjjm · 发表于 2004-5-18 04:59:20

最初由 buba 发布
[B]如能改进一下，想必一定很实用 [/B]

你希望在哪方面改进? 请提出具体意见.

myrooms · 发表于 2004-5-25 18:46:35

能够用来查变量的值吗？

lt_zzy · 发表于 2004-5-25 18:56:35

最好能将相关的帮助内容也输出，这样会更方便使用。

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：一个方便,实用,能列出AutoCAD内部函数的小程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子