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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 另类拷贝AnotherCopy
返回列表 发新帖
查看: 1754|回复: 10

[原创] 另类拷贝AnotherCopy

[复制链接]
/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2013-6-24 13:33:16 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
本帖最后由 牢固 于 2013-6-24 13:40 编辑

看到wowan1314整得很热闹，我也凑一凑
自己觉得还是较实用的
{:soso_e138:}
谁在砸我头，轻点!
  1. ;;---------------------------------另类拷贝AnotherCopy
  2. ;; 末尾数字+1 自贡黄明儒
  3. ;;ayEntSSHighLight见http://www.xdcad.net/forum/thread-668461-1-1.html
  4. ;;SA_change就是10楼的w1或者w2了
  5. (defun C:AC (/ P0 SS0)  
  6.   ;;2  对象na之后所有实体产生的选择集
  7.   (defun newsel        (na / ss e1)
  8.     (if        na
  9.       (setq na (entnext na))
  10.       (setq na (entnext))
  11.     )
  12.     (setq ss (ssadd))
  13.     (while na
  14.       (setq e1 (entget na))
  15.       (if (wcmatch (LI_item 0 e1) "VERTEX,SEQEND,ATTRIB")
  16.         nil
  17.         (setq ss (ssadd na ss))
  18.       )
  19.       (setq na (entnext na))
  20.     )
  21.     ss
  22.   )
  23.   ;;3  copy
  24.   (defun do-copy (ss0 p0 / A BOOL PT SS SS1 SS2)
  25.     (setq bool T)
  26.     (setq ss ss0
  27.           pt p0
  28.     )
  29.     (while bool
  30.       (setq a (entlast))
  31.       (princ "\n >>下一点或者输入距离:")
  32.       (command "_.copy" ss "" pt pause)
  33.       (setq ss1 (newsel a))
  34.       (ayEntSSHighLight ss)
  35.       (command "._Select" ss1 "")
  36.       (if (setq ss2 (ssget "_p" '((0 . "*TEXT,ATTDEF,INSERT"))))
  37.         (SA_change ss2)
  38.       )
  39.       (if (equal pt (setq pt (getvar "lastpoint")) 0.001)
  40.         (progn (command "undo" "2") (setq bool nil))
  41.       )
  42.       (setq ss ss1)
  43.       ;;(princ (getvar 'errno))
  44.     )
  45.   )
  46.   ;;4  主程序
  47.   (command "undo" "be")
  48.   (if (and (setq ss0 (ssget))
  49.            (setq p0 (getpoint "\n >基点:"))
  50.       )
  51.     (do-copy ss0 p0)
  52.   )
  53.   (command "undo" "e")
  54.   (princ)
  55. )
  56. ;;---------------------------------另类拷贝AnotherCopy

评分

参与人数 2D豆 +8 收起 理由
wowan1314 + 5 很给力!经验；技术要点；资料分享奖！
牢固 + 3 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

st788796

已领礼包: 1268个

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

使用道具 举报

qianzj

已领礼包: 146个

财富等级: 日进斗金
发表于 2013-6-24 15:25:40 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
LI_item 没提供 。。

点评

/db_自贡黄明儒_
(Defun LI_item (N E) (CDR (Assoc N E)))  发表于 2013-6-24 16:25
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

HLCAD

已领礼包: 5679个

财富等级: 富甲天下
发表于 2013-6-24 15:30:02 | 显示全部楼层
我支持黄大侠！

点评

/db_自贡黄明儒_
其余见http://www.xdcad.net/forum/thread-668461-1-1.html  发表于 2013-6-24 16:26
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lgttblue

已领礼包: 35个

财富等级: 招财进宝
发表于 2013-6-24 21:45:05 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
强烈支持:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

phoevana
发表于 2013-6-25 08:06:55 | 显示全部楼层
黄大，这个另类在哪啊，我没用出来，:(

点评

/db_自贡黄明儒_
1 同copy比，基点 2 文字尾数+1  发表于 2013-6-25 08:12
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2013-6-25 09:08:12 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
都是高手。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-27 16:27 , Processed in 0.173418 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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