框选复制

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

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

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

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

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

如動態圖所示

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

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

请问，有源码吗?

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

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

kzd2004 发表于 2023-7-16 05:07
请问，有源码吗?

源碼已分享!!
執行指令:scp

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

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

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

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

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

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

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

已更新,請重新下載

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

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

kzd2004 发表于 2023-7-16 07:45
请问，能改为对角线点选吗？

加上選取框
已更新,請重新下載

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

多谢分享

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

这种别写程序了，用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)
)
)

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

[源码] 框选复制