kzd2004 发表于 2023-7-15 17:42:23

框选复制

本帖最后由 kzd2004 于 2023-7-15 18:26 编辑

请大佬帮忙，点选矩形，也可以对角线框选，然后自动复制到距离L的下方来，万分感谢！！！

lee50310 发表于 2023-7-16 01:59:06

本帖最后由 lee50310 于 2023-7-17 04:31 编辑




如動態圖所示

kzd2004 发表于 2023-7-16 05:07:28

lee50310 发表于 2023-7-16 01:59
如動態圖所示

请问，有源码吗?

lee50310 发表于 2023-7-16 05:53:48

本帖最后由 lee50310 于 2023-7-16 06:08 编辑

kzd2004 发表于 2023-7-16 05:07
请问，有源码吗?
源碼已分享!!
執行指令:scp

bai2000 发表于 2023-7-16 07:44:44

当框内有别的图元和文字时，出现错误“Error: 参数值错误: AcDbCurve 67”

kzd2004 发表于 2023-7-16 07:45:53

lee50310 发表于 2023-7-16 05:53
源碼已分享!!
執行指令:scp

请问，能改为对角线点选吗？

lee50310 发表于 2023-7-16 11:02:34

bai2000 发表于 2023-7-16 07:44
当框内有别的图元和文字时，出现错误“Error: 参数值错误: AcDbCurve 67”

已更新,請重新下載

lee50310 发表于 2023-7-16 11:06:03

本帖最后由 lee50310 于 2023-7-16 11:17 编辑

kzd2004 发表于 2023-7-16 07:45
请问，能改为对角线点选吗？加上選取框
已更新,請重新下載

loveu515 发表于 2023-7-16 15:20:20

多谢分享

wzg356 发表于 2023-7-16 22:01:13

这种别写程序了，用cad扩展工具自带的extrim

(defun c:tt()
        (princ "\n框选要处理的对象")
        (and(setq ss(ssget))
                (setq p(cdr(assoc 10(entget(ssname ss 0)))))
                (princ "\n确定复制的位置")
                (list(command "_copy" ss "" "non" p pause ))
                (princ "\n点击要裁剪的矩形框，再点击框外")
                (c:extrim)
        )
)
页: [1] 2 3
查看完整版本: 框选复制