找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1218|回复: 10

[求助] 请问怎么设置缩写命令?

[复制链接]
发表于 2016-9-23 23:07:52 | 显示全部楼层 |阅读模式

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

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

×
请问如何给插件设置一个简短的命令尼?例如一个插件的命令是ycz_tt,可以按照提示输入命令简写。就是小萝卜头的命令缩写设置,有人知道怎么写吗?defun c:后面好像不能是变量

请问怎么设置缩写命令?

请问怎么设置缩写命令?



  1. (setq tt (getstring))

  2. (defun c:ycz_tt()
  3.   (setq en (entsel))
  4.   (command "ERASE" en)  
  5. )

  6. (defun c:tt()
  7.   (c:ycz_tt)
  8. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-9-23 23:15:23 | 显示全部楼层
你这么定义又什么问题吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 264个

财富等级: 日进斗金

发表于 2016-9-24 06:29:10 来自手机 | 显示全部楼层
本帖最后由 iLisp 于 2016-9-24 06:31 编辑

(mapcar (function (lambda (a b) (eval (read (stract "(defun c:" a " nil" "(c:" b ")(princ))")))))) lst lst1)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-9-24 14:04:11 | 显示全部楼层

好像还是不行啊,求指导啊
  1. (defun c:ycz_tt()
  2.   (setq en (entsel))
  3.   (command "ERASE" en)  
  4.   (setq tt "aad")
  5.   (setq tta "ycz_tt")
  6.   
  7.   
  8. )
  9. (mapcar (function (lambda (a b) (eval (read (strcat "(defun c:" a " nil" "(c:" b ")(princ))"))))) tt tta)


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-9-24 14:07:28 | 显示全部楼层

我是想参考小萝卜头的插件,提示可以让你输入一个简短的命令,刚刚按照ilisp的修改,好像还是有问题,请版主指导啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-9-24 14:14:45 | 显示全部楼层

你要是确定知道原来的LISP命令是 (defun c: xxx() .....)定义的,也就是说,你在命令行执行 (c:xxx) 能运行程序的话,

那你就这样定义快捷

(defun c:a()
    (c:xxx)
    (princ)
)

你输入a 就相当于运行 xxx了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-9-24 15:10:46 | 显示全部楼层

这种方法我知道啊,我想参考小萝卜头那样,可以再界面上输入简写命令,不用再lsp中修改啊,不知道怎么实现的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2016-9-24 15:37:29 | 显示全部楼层

你要想写那个,假设你得实现个对话框吧?比如用OPENDCL,写对画框的时候,代码是你组织,编辑框输入什么内容对应修改哪个LISP命令,是你自己设计的,你根据编辑框的内容和对应的执行哪个LISP命令,自己写个上面的例子代码就行了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-9-24 15:53:14 | 显示全部楼层

opendcl的界面已经写好了,主要我是从textbox里读取的内容是个变量啊,所以不知道怎么将变量定义成命令啊,比如下面我得到的minglingjianxie是个变量啊,不能直接定义(defunc c:minglingjianxie)啊
  1. (setq minglingjianxie  (dcl-Control-GetText dxbj/Form1/TextBox9))


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-9-24 17:08:02 | 显示全部楼层

论坛讨论过很多方法了,遇到问题多搜搜论坛, 你用   字符串 变函数  做关键字搜索,第一条就是,去看看,怎么通过EVAL和READ变字符串为函数执行的。

QQ截图20160924170649.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2016-9-24 21:46:48 | 显示全部楼层

多谢版主              
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-29 17:12 , Processed in 0.396527 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表