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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 简单的自由移动复制
返回列表 发新帖
查看: 2647|回复: 13

[每日一码] 简单的自由移动复制

[复制链接]
lijiao
发表于 2014-10-26 10:06:56 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
(defun c:csedit ( / BIAOJI MSG PT PT1 SS1cscopy inimsg)
(setvar "cmdecho" 0)
(setq ss1 (ssget))
(setq pt (getpoint "\n基准点："))
(setq msg "\n移动到[P基准点/C复制/R旋转/S比例/J镜像/E退出]<退出>")
(setq inimsg "P基准点 C复制 R旋转 S比例 J镜像 E退出")
(setq cssopy nil)
(setq biaoji t)
(while biaoji
   (initget inimsg)
   (setq pt1 (ACET-SS-DRAG-MOVE ss1 PT msg t 0))
   (cond
     ((= (type pt1) 'list)
      (if cscopy
          (command "copy" ss1 "" ptpt)
          )
      (command "move" ss1 "" pt pt1)
      (setq pt pt1)
      )
     ((= pt1 "P基准点")
      (if (setq pt1 (getpoint pt "\n基准点："))
          (setq pt pt1)
          )
      )
     ((= pt1 "C复制")
      (setq cscopy t)
      (setq msg "\n复制到[P基准点/M移动/R旋转/S比例/J镜像/E退出]<退出>")
      (setq inimsg "P基准点 M移动 R旋转 S比例 J镜像 E退出")
      )
     ((= pt1 "M移动")
      (setq cscopy nil)
      (setq msg "\n移动到[P基准点/C复制/R旋转/S比例/J镜像/E退出]<退出>")
      (setq inimsg "P基准点 C复制 R旋转 S比例 J镜像 E退出")
      )
     ((= pt1 "R旋转")
      (if (setq pt1 (ACET-SS-DRAG-rotate ss1 PT "\n旋转角度：" t0))
          (progn
           (command "rotate" ss1 "" pt (rtod pt1))
          )
          )
      )
     ((= pt1 "S比例")
      (if (setq pt1 (ACET-SS-DRAG-scale ss1 PT "\n比例系数：" t0))
          (progn
            (command "scale" ss1 ""pt pt1)
            )
          )
      )
     ((= pt1 "J镜像")
      (if (setq pt1 (getpoint PT "\n对称线："))
          (progn
            (command "MIRROR" ss1 ""pt pt1 "y")
          )
          )
      )
     ((or (= pt1 "E退出") (not pt1))
      (setq biaoji nil)
      )
     )
    )
(setvar "cmdecho" 1)
(princ)
  )

评分

参与人数 1D豆 +5 收起 理由
炫翔 + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

iLisp

已领礼包: 264个

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

使用道具 举报

SU初学者
发表于 2014-10-26 17:07:26 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
看不懂呢？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

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

使用道具 举报

evayleung

已领礼包: 2232个

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

使用道具 举报

yoyoho

已领礼包: 8965个

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

使用道具 举报

13993359550
发表于 2017-4-30 10:42:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼主呀，怎么会报错
错误: no function definition: ACET-SS-DRAG-MOVE
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

MENGZE

已领礼包: 24个

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

使用道具 举报

sdlyjc

已领礼包: 12个

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

使用道具 举报

sicky111

已领礼包: 6468个

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

使用道具 举报

evayleung

已领礼包: 2232个

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

使用道具 举报

linyangxiaodong
发表于 2019-10-16 22:03:24 | 显示全部楼层
ACET-SS-DRAG-rotate   请问这个是什么函数呢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

波浪
发表于 2019-10-16 22:26:07 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
版块A/VLISP怎么看不到我手机发的帖子啊
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

波浪
发表于 2019-10-16 22:28:00 来自手机 | 显示全部楼层
lv1不能发贴吗？发贴又显示成功，我的个人中心也有显示，回复别人的帖子也能看到，就是我自己发的帖子不可见，奇怪啊
来自: 微社区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-12 05:14 , Processed in 0.327159 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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