找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 789|回复: 14

[研讨] 关于使复制,移动,拉伸具有记忆功能

[复制链接]
发表于 2017-4-26 12:40:06 | 显示全部楼层 |阅读模式

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

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

×
前几天看到相关帖子,出于兴趣尝试了下,想了半天想出的思路是通过透明命令来实现 记忆的数字输入。
比如可以把F1设置为默认上次输入的距离。这样使用这三个命令时如果要重复上次距离就按下F1即可.
后来又没兴趣了,所以只初步编了个代码。也没调试。看哪位有兴趣的可以继续尝试完善。



;;;研究使copy具有记忆功能,当阵列用!copy的基点是否改变? 改变基点就好处理,但是与习惯不同了。
;;不改变基点改造copy如下
;;BY WOWAN1314  2017.4.22
;;
(defun c:t11 (/ ss p1 loop juli i p0)
    (setvar 'cmdecho 0);关闭行回显
    (if *w-codis* nil (setq *w-codis* '(350 1)))
    (if (setq ss (ssget ":L"))
        (if (setq p0 (getpoint "\n指定基点:" ) )
            (progn
                (setq loop 1314 i 1)
                (while loop
                    (princ (strcat "\n指定第二点, 或上次位移<" (rtos (car *w-codis*)) ">:"))
                    (command "copy" ss "" p0 pause)
                    (setq p1 (getvar 'lastpoint) p2 p1)
                    (setq juli (distance p0 p1))
                    (if (or (equal p1 p2 1e-6)(= 0 juli))
                        (setq loop nil *w-codis* (list (car *w-codis*) 1))
                        (if (= juli (* (car *w-codis*) i))
                            (setq i (1+ i) *w-codis* (list (car *w-codis*) i))
                            (setq i 2 *w-codis* (list juli i))
                        )
                    )
                )
            )
        )
    )
)
;;透明命令
(defun yco (/ ycod)
    (if *w-codis*
        (progn
            (setq ycod (* (car *w-codis*)(cadr *w-codis*)))
            (setq ycod (strcat (rtos ycod 2) " " ))
            (vla-sendcommand (vlax-get (vlax-get-acad-object) "activedocument") ycod)
        )
    )
)
(vlax-add-cmd "yco" 'yco "yco" acrx_cmd_transparent)

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

点评

我是举个例子,F1早被我定义成正交与极轴的切换了。  发表于 2017-4-27 11:21
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 23个

财富等级: 恭喜发财

发表于 2017-4-26 23:23:55 | 显示全部楼层
测试了,能运行,但没明白....先顶顶大侠.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5060个

财富等级: 富甲天下

发表于 2017-4-26 23:25:48 来自手机 | 显示全部楼层
键盘的向上键不是可以了?

点评

编程的肯定更好.不过后来发现鼠标侧键可以定义成向上键,所以没兴趣了。  发表于 2017-4-27 11:23
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-4-26 23:36:29 | 显示全部楼层
试试直接用ureal函数

点评

这个程序要借助本身命令的动态显示,应该用不上这个函数  发表于 2017-4-27 11:27
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 23个

财富等级: 恭喜发财

发表于 2017-4-27 00:35:31 | 显示全部楼层
本帖最后由 wkq004 于 2017-4-27 00:37 编辑

记得你参与讨论过一个关于伪源码与源码界定的话题,,支持你的观点,我搜索和看你的帖子都没找到.麻烦你发下链接吧,

点评

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

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

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

使用道具 举报

已领礼包: 394个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 1304个

财富等级: 财源广进

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

使用道具 举报

已领礼包: 12个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 158个

财富等级: 日进斗金

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-28 20:07 , Processed in 0.359103 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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