明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3359|回复: 29

[源码] 框选复制

[复制链接]
发表于 2023-7-15 17:42:23 | 显示全部楼层 |阅读模式
2明经币
本帖最后由 kzd2004 于 2023-7-15 18:26 编辑

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

附件: 您需要 登录 才可以下载或查看,没有账号?注册
发表于 2023-7-16 01:59:06 | 显示全部楼层
本帖最后由 lee50310 于 2023-7-17 04:31 编辑




如動態圖所示
回复

使用道具 举报

 楼主| 发表于 2023-7-16 05:07:28 | 显示全部楼层

请问,有源码吗?
回复

使用道具 举报

发表于 2023-7-16 05:53:48 | 显示全部楼层
本帖最后由 lee50310 于 2023-7-16 06:08 编辑
kzd2004 发表于 2023-7-16 05:07
请问,有源码吗?

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

回复

使用道具 举报

发表于 2023-7-16 07:44:44 | 显示全部楼层
当框内有别的图元和文字时,出现错误“Error: 参数值错误: AcDbCurve 67”
回复

使用道具 举报

 楼主| 发表于 2023-7-16 07:45:53 | 显示全部楼层
lee50310 发表于 2023-7-16 05:53
源碼已分享!!
執行指令:scp

请问,能改为对角线点选吗?
回复

使用道具 举报

发表于 2023-7-16 11:02:34 | 显示全部楼层
bai2000 发表于 2023-7-16 07:44
当框内有别的图元和文字时,出现错误“Error: 参数值错误: AcDbCurve 67”

已更新,請重新下載
回复

使用道具 举报

发表于 2023-7-16 11:06:03 | 显示全部楼层
本帖最后由 lee50310 于 2023-7-16 11:17 编辑
kzd2004 发表于 2023-7-16 07:45
请问,能改为对角线点选吗?
加上選取框
已更新,請重新下載
回复

使用道具 举报

发表于 2023-7-16 15:20:20 | 显示全部楼层
多谢分享
回复

使用道具 举报

发表于 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)
        )
)
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-17 00:21 , Processed in 0.170055 second(s), 22 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表