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

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

本帖最后由 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 static/image/common/back.gif
题意不清...
试试 (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 static/image/common/back.gif
;------------移动小改造----------
(defun c:rd (/ L1 L2 ss )
(setvar "cmdecho" 0)


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

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

你真是太有才了

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

自贡黄明儒的能跨文件带基点复制
页: [1]
查看完整版本: 求助：带基点复制命令和上一选择集P合成一个命令代码如何写？