设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 每日插件 › 交点拷贝
返回列表 发新帖
查看: 2455|回复: 10

[工具] 交点拷贝

[复制链接]
newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2018-9-22 13:39:48 | 显示全部楼层 |阅读模式
  • 插件名称 ： 交点拷贝
  • 作　　者 ： newer
  • 运行环境 ：XDRX API 晓东工具箱 
  • 发布时间 ：2018-09-22
  • 命令名称 ：xdtb_intscopy
  • 插件介绍 ：交点拷贝
  • 备　　注 ： (点击图片可以放大)
(点击图片可以放大)

晓东温馨提示 1、运行环境为 晓东工具箱 和 XDRX API 的插件，请下载最新版本的 晓东工具箱 或 XDRX API开发环境 一键安装
2、在ACAD中如何加载插件，请看 论坛插件使用方法
3、如果您有要求需要定制插件，请到 编程申请 论坛发帖求助

插件详细内容

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
  1. (defun c:xdtb_intscopy (/ ss ss1 x mat pj)
  2.   (xdrx_begin)
  3.   (if (and (xdrx_initssget "\n选择要拷贝的实体<退出>:")
  4.            (setq ss (xdrx_ssget))
  5.            (setq ss (xdrx_pickset->ents ss))
  6.            (xd::doc:setosnap 97)
  7.            (setq pj (getpoint "\n基点<退出>:"))
  8.   (xdrx_initssget "\n选择网格曲线<退出>:")
  9.          (setq ss1 (xdrx_ssget '((0 . "*line,arc,circle,ellipse"))))
  10.     )
  11.      (progn (setq pj (trans pj 1 0))
  12.        (setq ints (xdrx_get_inters ss1))
  13.             (mapcar '(lambda (x)
  14.                        (setq mat (xdrx_matrix_settranslation (mapcar '- x pj)))
  15.                        (xdrx_entity_copy ss mat)
  16.                      )
  17.                     ints
  18.             )
  19.        (xdrx_prompt "\n在" (length ints) "个交点上拷贝了对象.")
  20.      )
  21.   )
  22.   (xdrx_end)
  23. )


论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

cfc123456

已领礼包: 3534个

财富等级: 富可敌国
发表于 2018-9-22 15:52:46 | 显示全部楼层
谢谢提供！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

=^_^=

已领礼包: 3443个

财富等级: 富可敌国
发表于 2018-9-22 15:58:37 | 显示全部楼层
看着象土方平整用的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

longer88

已领礼包: 1227个

财富等级: 财源广进
发表于 2018-9-23 06:50:36 | 显示全部楼层
谢谢，学习一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lqxe

已领礼包: 25个

财富等级: 恭喜发财
发表于 2018-9-23 10:15:29 | 显示全部楼层
谢谢提供！正需要
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

coverne

已领礼包: 6434个

财富等级: 富甲天下
发表于 2018-9-24 07:50:16 | 显示全部楼层
看着象土方平整用的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tzfcn

已领礼包: 5295个

财富等级: 富甲天下
发表于 2018-9-24 08:28:02 | 显示全部楼层
值得学习一下的好玩艺！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

evayleung

已领礼包: 2239个

财富等级: 金玉满堂
发表于 2018-9-24 14:18:38 | 显示全部楼层
谢谢提供，很有参考意义
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

的大

已领礼包: 3个

财富等级: 恭喜发财
发表于 2018-10-10 11:01:53 | 显示全部楼层
谢谢，很有用啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xdcad9819

已领礼包: 137个

财富等级: 日进斗金
发表于 2019-12-29 13:05:54 | 显示全部楼层
没有成功啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

猪八戒悟能
发表于 2019-12-30 09:24:31 | 显示全部楼层
感谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-22 03:22 , Processed in 0.288825 second(s), 51 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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