关于使复制，移动，拉伸具有记忆功能

wowan1314

前几天看到相关帖子，出于兴趣尝试了下，想了半天想出的思路是通过透明命令来实现 记忆的数字输入。
比如可以把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)

WhoCanSay

F1不是帮助吗？把它重新定义了？

wkq004

测试了,能运行,但没明白....先顶顶大侠.

xinxirong

键盘的向上键不是可以了？

xyp1964

试试直接用ureal函数

wkq004

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

sicky111

一群大师。

yzhyxh

一群大神！

longer1000

一群大神！

sdlyjc

感谢分享！！

qyming2000

学习了。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。