发个简单的小程序，预设两点执行copy操作

panliang9

实际上，我非常想要的是这个程序的的一个变化，即预设两点进行stretch，

即预设两点，后面执行的stretch选中对象后都是执行前面预设两点的stretch!

masterlong

有难度
拉伸命令的操作过程
和copy相差太远了

express里的多重拉伸挺好用

cj52000

masterlong 发表于 2021-6-17 12:25
有难度
拉伸命令的操作过程
和copy相差太远了

你好，程序很有创意，工作中一般是先找到终点的位置，所以能不能把预设第1点改为终点，第2点才是起点，谢谢！

masterlong

cj52000 发表于 2021-6-17 18:02
你好，程序很有创意，工作中一般是先找到终点的位置，所以能不能把预设第1点改为终点，第2点才是起点，谢 ...

CC2P中的两个P1改P2
P2改P1即可

cj52000

大师，按照你说的已经改了，如下图示，但是运行后提示如下

命令: cc2p
CC2P```预设两点，作为2CC命令的起点与终点
2CC````以预设2点进行快速复制
指定预设第2点 :  ok
参数类型错误: point: nil
命令:

走走逛逛瞧瞧

看起来不错

magicheno

支持大侠的功能

masterlong

cj52000 发表于 2021-6-18 09:58
大师，按照你说的已经改了，如下图示，但是运行后提示如下

命令: cc2p

按你的需求应该是下面这样
(defun c:cc2p()
        (princ "\nCC2P```预设两点，作为2CC命令的起点与终点 \n2CC````以预设2点进行快速复制")
        (if (and
                                (setq p2 (getpoint "\n指定预设终点 : "))
                                (princ " ok ")
                                (setq p1 (getpoint p2 "\n指定预设基点 : "))
                                (princ " ok ")
                )
                (progn
                        (setq cc2p###2plist (list (u2w p1) (u2w p2)))
                        (princ "\n预设复制坐标已完成，可使用【2CC】命令进行快速复制")
                )
        )
(princ)
)

另外说一句
因为这个程序是单独命令设置基点和终点
所以改变指定基点终点的顺序
其实没有意义
反而容易操作失误
如果是实时指定点坐标
那可能有一点点用
但是彻底颠覆操作顺序
我认为欠妥

cj52000

masterlong 发表于 2021-6-19 18:59
按你的需求应该是下面这样
(defun c:cc2p()
        (princ "\nCC2P```预设两点，作为2CC命令的起点与终点 \n2 ...

谢谢，可以使用了

magicheno

大侠，请教下个问题，copy命令选择对象后，如何可以实现复制后的对象变成上一个选择集呢，CAD默认的机制P是复制的原对象是上一个选择集的，L是复制后的对象的某一单个图元