求助：带基点复制命令和上一选择集P合成一个命令代码如何写？

xuchunyang · 发表于 2013-8-5 09:34:31

本帖最后由 xuchunyang 于 2013-8-5 10:35 编辑

平时画图经常用到带基点复制命令和上一选择集命令P，能否和成一个命令？现只知道复制COPY和上一选择集合在一起的代码：
defun c:X ()
(command "copy" "previous" "")
(princ)
)
上带基点复制命令和一选择集P合成一个命令代码如何写？各位高手帮帮忙~

edsion24 · 发表于 2013-8-5 10:44:07

关注。。。。。。。。。。。

Andyhon · 发表于 2013-8-5 10:45:03

题意不清...
试试 (command "copy" "previous" "" "@") ...

xuchunyang · 发表于 2013-8-5 11:03:33

Andyhon 发表于 2013-8-5 10:45
题意不清...
试试 (command "copy" "previous" "" "@") ...

我的意思是跨文件复制经常用到copybase命令，能否把这个命令和上一选择集P和成一个命令操作，怎么写不过还是谢谢你

ysq101 · 发表于 2013-8-5 11:16:14

;------------移动小改造----------
(defun c:rd (  / L1 L2 ss )
(setvar "cmdecho" 0)
(setvar "OrthoMode" 1)  ；开正交模式
(SETQ SS (SSGET))
(setq L2 12)
(if (= L1 L2) ；判断右键返回值
(setq L1 (car(grread 2)))
(command "move" "p" "")
  )
  )

这是个移动的，，，，需要选对象时按右键或空格直按选上一次选择集
给你个参考

自贡黄明儒 · 发表于 2013-8-5 11:18:34

(setq ss (ssget))
(command "_copybase" (getpoint) (ssget "_P") "")

xuchunyang · 发表于 2013-8-5 11:28:25

ysq101 发表于 2013-8-5 11:16
;------------移动小改造----------
(defun c:rd ( / L1 L2 ss )
(setvar "cmdecho" 0)

还是不行不能跨文件带基点复制 ...在一个文件里可以..

tranney · 发表于 2013-8-28 17:00:33

你真是太有才了

zmzk · 发表于 2022-12-10 06:24:04

自贡黄明儒的能跨文件带基点复制

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

[已解答] 求助：带基点复制命令和上一选择集P合成一个命令代码如何写？

相关帖子

点评