请问这种函数怎么调用

zrg1 · 发表于 2019-9-24 18:44:19

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

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

×

请问自定功能函数怎么用？类似（defun xx(a)·······）这个怎么调用

Lisphk · 发表于 2019-9-25 08:40:56

用函数名和参数调用,看参数a什么类型，可能
(xx 1)
或者
(xx "abc")
.....

zrg1 · 发表于 2019-9-26 11:17:25

Lisphk 发表于 2019-9-25 08:40
用函数名和参数调用,看参数a什么类型，可能
(xx 1)
或者

用了别人的图层反选源码（函数）（忘记是谁的了），出现了问题。不知道哪里原因可以帮忙解决一下吗？

zrg1 · 发表于 2019-9-26 11:19:05

zrg1 发表于 2019-9-26 11:17
用了别人的图层反选源码（函数）（忘记是谁的了），出现了问题。不知道哪里原因可以帮忙解决一下吗？

错误代码把LE改为la也一样显示错误

Lisphk · 发表于 2019-9-26 11:38:05

zrg1 发表于 2019-9-26 11:19
错误代码把LE改为la也一样显示错误

把代码贴上来啊，别图片啊

Lisphk · 发表于 2019-9-26 11:52:43

zrg1 发表于 2019-9-26 11:19
错误代码把LE改为la也一样显示错误

参数要求图层名，比如0层
调用
(test "0")
试试
当然，图层上要画东西才行

zrg1 · 发表于 2019-9-26 12:46:19

Lisphk 发表于 2019-9-26 11:52
参数要求图层名，比如0层
调用
(test "0")

defun test(la)
(setq s1 (ssget "x") s2 (ssget "x" (list (cons 8 la))))
(if s2
(progn
(command "select" s1 "r" s2 "")
(setq s3 (ssget "p"))
s3
)
)
(sssetfirst nil la)
)
(defun c:t5()
(setq lm (entget (car (entsel))))
(setq le (cdr (assoc 8 lm)))
(test le)
)
顺便能不能给我说明一下if条件函数，if s2=空？还有S3 有些看不懂

zrg1 · 发表于 2019-9-26 12:48:12

zrg1 发表于 2019-9-26 12:46
defun test(la)
(setq s1 (ssget "x") s2 (ssget "x" (list (cons 8 la))))
(if s2

开头少复制了半个括号注意一下

Lisphk · 发表于 2019-9-26 13:21:31

zrg1 发表于 2019-9-26 12:48
开头少复制了半个括号注意一下

s2 变量里面保存的是图层上的实体，
if s2 作用就是，如果图层上有实体，那么就执行后面的select命令等语句，没实体就跳过

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

[求助] 请问这种函数怎么调用

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