【已解决】如何在函数内部读取"(defun c:tt01 ()...)"tt后面的字符串...

sh_h · 发表于 2017-4-22 13:07:03

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

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

×

本帖最后由 sh_h 于 2017-10-22 12:52 编辑

求助各位大师，有什么办法能够在函数内部读取"(defun c:tt01 ()...)"tt后面的字符串以便在函数内部当做变量来使用，谢谢！

st788796 · 发表于 2017-4-22 13:59:58

(setq tt (function (lambda () ... )))

sh_h · 发表于 2017-4-22 23:30:10

st788796 发表于 2017-4-22 13:59

谢谢 st788796 大师指教！
比如下面这个修改对象图层的代码，

;;;修改对象图层
(defun c:tt02 ()
(setq ss (ssget))
(command "chprop" ss "" "layer" "02" "")
(prin1)
)
如何让(command "chprop" ss "" "layer" "02" "")中的02通过一个表达式来读取到c:tt02中的02，
这样我就可以只需要修改tt后面的数字来快速创建小程序了！
...

Lisphk · 发表于 2017-4-22 23:43:09

sh_h 发表于 2017-4-22 23:30

你这样多麻烦啊，修改10个层，你就写10个命令啊。
直接在程序里面交互输入下层名，一个命令多通用啊。

sh_h · 发表于 2017-4-23 00:02:01

Lisphk 发表于 2017-4-22 23:43

您说的有道理，我只是通过上面的例子来把我的问题说的更清楚些！
看看有没有一种方法能够实现这样的功能，小弟初学，见笑了！

Lisphk · 发表于 2017-4-23 00:15:36

sh_h 发表于 2017-4-23 00:02

那你可以用VL-ACAD-DEFUN 定义成命令，然后函数里面用(GETVAR "CMDNAME") 获得执行的命令名。也可以用LISP反应器，获得执行的LISP函数的第一行字符串，然后提取。

wowan1314 · 发表于 2017-4-23 09:56:04

试试用lastprompt

sh_h · 发表于 2017-5-5 13:51:38

wowan1314 发表于 2017-4-23 09:56

大师，lastprompt 是个函数还是...？没查到啊

fan_zh · 发表于 2017-10-19 13:20:26

sh_h 发表于 2017-5-5 13:51

是系统变量名，不是函数名

sh_h · 发表于 2017-10-20 08:59:24

fan_zh 发表于 2017-10-19 13:20

好的，谢谢您的提醒！

牢固 · 发表于 2017-10-20 11:41:18

本帖最后由牢固于 2017-10-20 11:45 编辑

sh_h 发表于 2017-4-22 23:30

想不明白楼主这样做的目的何在？既然每个c:ttxx都已经单独写成代码了，那么xx就是确定的，为什么还要去判断提取xx是什么呢？
而且，在函数内部，并没有能知道自己所在函数叫什么的名字的函数！

ShaoRui · 发表于 2017-10-21 00:55:23

这个按应用场景组合的新命令名应该是无效命令才对,因为新的ttxx xx为不确定,不一定在cad中注册过命令

sh_h · 发表于 2017-10-22 12:50:09

牢固发表于 2017-10-20 11:41

确实有些矛盾，当时初学，不得要领，所以才有了那么一个幼稚的想法
现在有些明白了，谢谢大师指教！！！

chenxu123qq · 发表于 2018-9-7 13:29:07

看不到函数

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

[已解决] 【已解决】如何在函数内部读取"(defun c:tt01 ()...)"tt后面的字符串...

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