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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [寻找]：论坛曾发表过一个多重拷贝的帖子，哪位知道请告 ...
返回列表 发新帖
查看: 728|回复: 9

[寻找]：论坛曾发表过一个多重拷贝的帖子，哪位知道请告知一下，谢谢！

[复制链接]
light_dream
发表于 2003-11-19 09:13:30 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
论坛曾发表过一个多重拷贝的帖子，哪位知道请告知一下，谢谢！
拷贝, 多重, 哪位

相关帖子

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

使用道具 举报

snsj
发表于 2003-11-19 12:06:37 | 显示全部楼层

  3. ;直接多重拷贝
  4. ;cc.lsp
  5. ??(defun c:cc (/ ss pt1)      
  6. ??(setq ss (ssget))
  7.       (if (/= ss nil)
  8.         (progn
  9.           (prompt "拾取基点:")
  10.       (setq pt1 (getpoint))
  11.       (if (/= pt1 nil)
  12.         (progn
  13. ??(command ".copy" ss "" "m" pt1)
  14. ?)
  15.         (exit)
  16.         )
  17.       )
  18.       (princ "\n#--选择的物体为空!!!--#")
  19.       )
  20.       (princ)
  21.         )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-11-19 12:44:03 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

  3. ;;连续 copy + 旋转
  4. ;;BY LUCAS(龙龙仔〕
  5. (defun C:CR1 (/ HOLDOSMODE SS SS1 PT1 PT2 ROT MARK)
  6.   (arxload "ACETUTIL.ARX" NIL)
  7.   (defun RTD (ANG) (* ANG (/ 180 pi)))
  8.   (setq HOLDOSMODE (getvar "osmode"))
  9.   (if (setq SS1 (ssget))
  10.     (progn
  11.       (initget 1)
  12.       (setq PT1 (getpoint "\n指定基准点: "))
  13.       ;;acet-ss-drag-move缺点:
  14.       ;;Normally returns the selected point(即不能输入距离), but will honor "initget"
  15.       ;;settings and can return arbitrary text or keywords.
  16.       ;;Returns nil if the dragging operation is aborted.
  17.       (while (setq PT2 (acet-ss-drag-move
  18.                          SS1
  19.                          PT1
  20.                          "\n指定位移的第二点: "
  21.                          t
  22.                        )
  23.              )
  24.         (setvar "osmode" 0)
  25.         (setq MARK (entlast))
  26.         (command "_.copy" SS1 "" PT1 PT2)
  27.         (setq SS (ssadd))
  28.         (while (setq MARK (entnext MARK))
  29.           (ssadd MARK SS)
  30.         )
  31.         (setvar "osmode" HOLDOSMODE)
  32.         (if (setq ROT (acet-ss-drag-rotate
  33.                         SS
  34.                         PT2
  35.                         "\n指定旋转角度: "
  36.                         t
  37.                       )
  38.             )
  39.           (setq ROT (RTD ROT))
  40.           (setq ROT 0.0)
  41.         )
  42.         (command "_.ROTATE" SS "" PT2 ROT)
  43.       )
  44.     )
  45.   )
  46.   (princ)
  47. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

libo2000
发表于 2003-11-19 14:31:51 | 显示全部楼层
copy命令本身就有多次copy功能，
copy->选择对象->M->选择基点->就可以多次拷贝了.
用不着编程
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

snsj
发表于 2003-11-19 14:40:41 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
libo2000兄比我勤快，我就是那个不想输入M的人：）～～～～
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

libo2000
发表于 2003-11-19 17:33:20 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
最初由 snsj 发布
[B]libo2000兄比我勤快，我就是那个不想输入M的人：）～～～～ [/B]


太懒了也不好^_^ ---虽然我也很懒.
c:cc用了几天就kill kill kill,老和c糊涂,麻烦!
c+m习惯就好了:--)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-11-19 22:39:52 | 显示全部楼层
(defun  c:c() (command ".copy" (ssget) "" "m" ))
就一句话.



前面我写过LUCAS 的方法,不过我的没旋转，但可以每步undo掉.(和命令line时一样,就不会copy错一个而前功尽弃)找一下吧,要装express tools的


LUCAS说的不能输入距离，应该可以的.
其实它好像是grread一样的。

  3.       (setq pt2 t)
  4.    (while pt2
  5.            (setvar "lastpoint" pt1)   ;这样输数字就可以了.
  6.            (setq PT2 (acet-ss-drag-move SS1 PT1 "\n指定位移的第二点: " t )  )
  7.            (if(= 1(getvar "orthomode"))   ;orthomode =1时距离要改正.
  8.               (progn
  9.                (setq pt3(cadr(grread 5)))
  10.                (if(not(equal pt2 pt3 1e-3))
  11.                (setq pt2
  12.                   (polar pt1(angle pt1 pt2)
  13.                   (abs(/(distance pt1 pt2)(if(equal(sin(angle pt1 pt2))0 1e-3)(cos(angle pt1 pt3))(sin(angle pt1 pt3)))))))
  14.                  )
  15.             ))
  16.           (setvar "osmode" 0)
  17.         (setq MARK (entlast))
  18.         (command "_.copy" SS1 "" PT1 PT2)
  19.         (setq SS (ssadd))
  20.         (while (setq MARK (entnext MARK))
  21.              ......
  22.    

orthomode =1时只能这么考虑，因为它自动修正过了。
设了极轴就没办法的，要转换很麻烦.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
发表于 2003-11-20 02:28:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
虽然一般情况下不推荐用pause
但有的时候也可四两拨千斤,程序可以小很多.要冒一点风险,但是未必不值得:)

  3. (defun c:cc ( / ss pt1 tt pt2)
  4. (princ "\n连续相对点拷贝------陌生人.2001.2")
  5. (setq ss (ssget) pt1 (getpoint "\n基点:") tt "true")
  6. (command "copy" ss "" pt1 pt1)  ;原点拷贝
  7. (while tt
  8.   (princ "\n下一基点:")
  9.   (command "move" ss "" pt1 pause) ;;用了pause,但可输入距离值或者取点
  10.   (setq pt2 (getvar "lastpoint"))
  11.   (if (equal pt1 pt2)
  12.    (progn(entdel ss)(setq tt nil));当回车/原点时pt2=pt1
  13.    (progn(setq pt1 pt2)(command "copy" ss "" pt2 pt2))
  14.   )
  15. )(princ)
  16. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-11-21 07:59:31 | 显示全部楼层

  3. ;;受教了,那就再增加Undo功能吧!
  4. ;;连续 copy + 旋转 + Undo功能
  5. ;;BY LUCAS(龙龙仔〕+ AEO
  6. (defun C:CR1 (/ HOLDOSMODE SS SS1 PT1 PT2 PT4 ROT MARK N)
  7.   (arxload "ACETUTIL.ARX" NIL)
  8.   (defun RTD (ANG) (* ANG (/ 180 pi)))
  9.   (setq HOLDOSMODE (getvar "osmode"))
  10.   (command "_.undo" "_group")
  11.   (if (setq SS1 (ssget))
  12.     (progn
  13.       (initget 1)
  14.       (setq PT1 (getpoint "\n指定基准点: "))
  15.       (setq PT2        t
  16.             N 0
  17.       )
  18.       (while
  19.         (and (setvar "lastpoint" PT1)
  20.              (progn (initget "Undo")
  21.                     (setq
  22.                       PT2 (acet-ss-drag-move
  23.                             SS1
  24.                             PT1
  25.                             "\n指定位移的第二点(U-undo): "
  26.                             t
  27.                           )
  28.                     )
  29.              )
  30.         )
  31.          (cond ((= PT2 "Undo")
  32.                 (if (> N 0)
  33.                   (progn (command "_.undo" "2") (setq N (1- N)))
  34.                   (princ "\n没有可Undo的了!")
  35.                 )
  36.                )
  37.                (PT2
  38.                 (if (= 1 (getvar "orthomode"))
  39.                   (progn
  40.                     (setq PT3 (cadr (grread 5)))
  41.                     (if        (not (equal PT2 PT3 1e-3))
  42.                       (setq PT2
  43.                              (polar
  44.                                PT1
  45.                                (angle PT1 PT2)
  46.                                (abs (/ (distance PT1 PT2)
  47.                                        (if (equal (sin (angle PT1 PT2)) 0 1e-3)
  48.                                          (cos (angle PT1 PT3))
  49.                                          (sin (angle PT1 PT3))
  50.                                        )
  51.                                     )
  52.                                )
  53.                              )
  54.                       )
  55.                     )
  56.                   )
  57.                 )
  58.                 (setvar "osmode" 0)
  59.                 (setq MARK (entlast))
  60.                 (command "_.copy" SS1 "" PT1 PT2)
  61.                 (setq SS (ssadd))
  62.                 (while (setq MARK (entnext MARK))
  63.                   (ssadd MARK SS)
  64.                 )
  65.                 (setvar "osmode" HOLDOSMODE)
  66.                 (if (setq ROT (acet-ss-drag-rotate
  67.                                 SS
  68.                                 PT2
  69.                                 "\n指定旋转角度: "
  70.                                 t
  71.                               )
  72.                     )
  73.                   (setq ROT (RTD ROT))
  74.                   (setq ROT 0.0)
  75.                 )
  76.                 (setvar "osmode" 0)
  77.                 (command "_.ROTATE" SS "" PT2 ROT)
  78.                 (setvar "osmode" HOLDOSMODE)
  79.                 (setq N (1+ N))
  80.                )
  81.          )
  82.       )
  83.       (command "_.undo" "_end")
  84.     )
  85.   )
  86.   (princ)
  87. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-26 20:48 , Processed in 0.393106 second(s), 50 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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