正交模式下的记忆复制（用心回帖有奖）

炫翔 · 发表于 2013-7-4 16:29:42

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

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

×

本帖最后由炫翔于 2013-7-4 16:31 编辑

下面是记忆复制的源代码，现在出现的问题是:
在开启正交的时候，用捕捉点进行复制时，复制不到捕捉点

程序要实现的要求:重点，要求还原程序执行前的设置，如已经打开的正交，对象捕捉等
选取对象移动鼠标
没有捕捉点时，空格可以进行方向复制
有捕捉点时，复制到捕捉点

;记忆复制
(defun c:xx ( / aa pt)
(command ".copy" (ssget) "" "m")
(command (setq pt (getpoint "\n指定基点:")))
(IF (NULL *aa*)
(setq *aa* 100)
)
(setq aa (getdist pt (strcat "\n值<" (rtos *aa* 2 2) ">:")))
(if (NULL aa)
(setq aa *aa*)
(SETQ *aa* aa)
)
(command aa)
)

ysq101 · 发表于 2013-7-4 18:42:19

这个很实用

newer · 发表于 2013-7-4 19:22:20

炫翔斑竹，没太明白这个程序的意思，加载使用了下，那个值100，起什么作用？

--@----- · 发表于 2013-7-4 23:24:38

就是原CAD复制命令增加个记忆功能（能记住上次输入的距离）：命令有以下两种常见使用方式;1 选择物体鼠标给个方向然后空格即选中的物体就复制到方向上的位置了距离是上次输入的距离（这种情况是使用了记忆功能）2是选择物体直接复制到捕捉点上即可（正交还是非正交的情况下都能复制到捕捉点）这种情况是没有使用记忆功能就是原CAD的复制命令(有些人会说既然第一种情况已经可以了，第二种情况使用原CAD的复制命令不就行了吗，如果那样的话一个复制命令就有俩快捷键意义也就不大了版主的代码在正交开的情况下复制不到第一个捕捉点上，继续点第二个捕捉点第三.....都能复制上去。。很遗憾我也不会，期待高手出现:)

ysq101 · 发表于 2013-7-5 00:01:40

楼上解释得很清楚...只是文字有点乱~~~

--@----- · 发表于 2013-7-5 00:07:22

这个复制命令很实用，无须增加多重复制（多重复制还直接用阵列的一些工具就行了）就是增加个记忆的功能此代码在没开正交的情况下是可以的。网上相关的帖子也很多，不过还没找到相关的解决方法，我语文学的差哈哈

--@----- · 发表于 2013-7-5 13:36:57

嗯感谢eachy大侠的帮忙，帮了我不少，画图效率提高更快了我在这里感谢他下面是他写的代码真的是解决了上面的问题

(defun c:xx (/ aa pt)
(IF (NULL *aa*)
(setq *aa* 100)
)
(vl-cmdf ".copy" (ssget) "")
;;"m")
(command (setq pt (getpoint "\n指定基点:")))
(setq aa (getpoint pt (strcat "\n值<" (rtos *aa* 2 2) ">:")))
(if (NULL aa)
(setq aa *aa*)
(SETQ *aa* (distance pt aa))
)
(command aa)
)

eachy · 发表于 2013-7-5 13:58:22

注意 Copy 命令有些变化，低版本的多重复制要每次输入 M

(vl-cmdf ".copy" (ssget) "" "m")

高版本是 O 选项

(vl-cmdf ".copy" (ssget) "" "o" "m" "")

eachy · 发表于 2013-7-5 14:08:19

ysq101 发表于 2013-7-5 00:01
楼上解释得很清楚...只是文字有点乱~~~

这样描述就清楚点：
在 Copy 命令选择基点后，增加一个默认距离提示，其他和标准 Copy 一样

--@----- · 发表于 2013-7-5 22:07:21

--@----- 发表于 2013-7-5 13:36
嗯感谢eachy大侠的帮忙，帮了我不少，画图效率提高更快了我在这里感谢他下面是他写的代码真的是解决了 ...

08的CAD用上面代码就不能连续复制了。 eachy大侠做了修改能连续复制了现在已经很完美了我再次感谢下eachy大侠。 {:soso_e112:}

(defun c:xx (/ aa pt)
(IF (NULL *aa*)
(setq *aa* 100)
)
(vl-cmdf ".copy" (ssget) "" "m")
(command (setq pt (getpoint "\n指定基点:")))
(setq aa (getpoint pt (strcat "\n值<" (rtos *aa* 2 2) ">:")))
(if (NULL aa)
(setq aa *aa*)
(SETQ *aa* (distance pt aa))
)
(command aa)
)

NET-JOB · 发表于 2013-7-6 10:20:29

还是不能连续复制啊

st788796 · 发表于 2013-7-6 12:30:33

NET-JOB 发表于 2013-7-6 10:20
还是不能连续复制啊

看cad版本，注意一个有 m 一个没 m

newer · 发表于 2013-7-6 12:58:13

eachy 发表于 2013-7-5 14:08
这样描述就清楚点：
在 Copy 命令选择基点后，增加一个默认距离提示，其他和标准 Copy 一样

这个默认的提示有什么作用？

st788796 · 发表于 2013-7-6 13:02:41

newer 发表于 2013-7-6 12:58
这个默认的提示有什么作用？

画图习惯不一样

--@----- · 发表于 2013-7-6 22:40:56

你想说的是复制阵列那种吧那种实际不咋用的用的话也有其他命令的你要是按空格一直整列上去那咋结束呢难道要按esc 那你平时的一般不阵列的复制呢都用esc吗 esc种没有空格键好用吧 :)

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

[研讨] 正交模式下的记忆复制（用心回帖有奖）

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

评分

相关帖子

点评

点评

评分

点评

点评

点评

[研讨] 正交模式下的 记忆复制（用心回帖有奖）

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

评分

相关帖子

点评

点评

评分

点评

点评

点评

[研讨] 正交模式下的记忆复制（用心回帖有奖）