[求大神]一个自定义命令再开发怎么做。

XMAN2013 · 发表于 2013-7-17 08:15:43

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

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

×

(defun c:tt ()
  (INITGET "Yes No")
  (setq KEY (GETKWORD "是否弹出对话框? [Yes/No]<Yes>"))
  (if (= key "Yes")(ALERT "弹出对话框"))
  (command "line" )
)
这是一个LSP文件。编译成VLX后。怎么再改这个TT命令。让KEY默认为 NO。。在不知道源码的情况下怎么再来改这个命令。

Free-Lancer · 发表于 2013-7-17 08:40:39

改不了，找作者来自: Android客户端

XMAN2013 · 发表于 2013-7-17 08:47:32

不会呀。好像听说有人能改就是不出手。不知道是不是这个论坛的版主。

XMAN2013 · 发表于 2013-7-17 08:54:16

我来给个方法。好像可以，才看到一个群里人给的方法。大家给点意见。(vlax-add-cmd "ts" 'c:tt)
(command "ts""")

zhangq_cai1 · 发表于 2013-7-17 09:51:00

什么原理~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

XMAN2013 · 发表于 2013-7-17 09:52:03

(vlax-add-cmd "ts" 'c:tt)
(command "ts""")

XMAN2013 · 发表于 2013-7-18 08:29:17

这个问题我自己解决了。。。也算是给论坛有贡献了吧。加一个贡献分吧。

ll_j · 发表于 2013-7-18 09:05:03

XMAN2013 发表于 2013-7-18 08:29
这个问题我自己解决了。。。也算是给论坛有贡献了吧。加一个贡献分吧。

如果你自己能看懂你自己给的程序，你应该知道，程序默认的就是NO，所谓<YES>只是写写罢了，并没有判别，不信你可以把if一句改成
(if (or (= key "Yes") (= Key nil)) (... 再试试。

XMAN2013 · 发表于 2013-7-18 09:32:14

我只提供一个解决问题的方法。

(vlax-add-cmd "ts" 'c:tt)
(command "ts" "N")(command "ts" "Y") 一定要我这样写这两句自己按需要选择吗。可以省一步就是进步吧。

XMAN2013 · 发表于 2013-7-18 09:33:29

不给分就算了吧。积分才是重要的。好多资料积分不到看不了。。。。

ll_j · 发表于 2013-7-18 11:42:49

XMAN2013 发表于 2013-7-18 09:32
我只提供一个解决问题的方法。

(vlax-add-cmd "ts" 'c:tt)

这种思路值得鼓励，但这不是能通用的，有些Lisp文件是无法用这样转化的（ET中就有一个，记不清是哪个了）。

顺便说一句，积分不是最重要的，水平高也不是最重要的，在这里，最重要的是乐于助人的奉献精神，如果你的出发点不仅仅是索取，那么你会得到很多。

XMAN2013 · 发表于 2013-7-18 12:31:03

没看到你们乐于助人

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

[求助] [求大神]一个自定义命令再开发怎么做。

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

相关帖子

评分