动态复制程序

wkai

十分欣赏sketchup中的复制方式,现写了一个用于acad的动态复制程序,大家试试,挺好用的.


[PHP]
(defun zf_dynamic_copy  (/ p1 p2 s e cn)
;__________________
  (defun ttt (ss n / m)
    (setq ee e
          ns (ssadd)
    )
    (while (setq ee (entnext ee))
      (setq ns (ssadd ee ns))
    )
    (command "erase" ns "")
    (command "copy" ss "" "m" "non" p1)
    (setq m 0)
    (repeat (atoi n)
      (setq m (1+ m))
      (cond
        ((= "/" (substr n (strlen n)))
         (command
           "non"
           (mapcar '(lambda (x y) (+ x (* m (/ (- y x) (atof n)))))
                   p1
                   p2
           )
         )
        )
        (t
         (command "non"
                  (mapcar '(lambda (x y) (+ x (* m (- y x)))) p1 p2)
         )
        )
      )
    )
    (command)
  )
;__________________
  (princ "\n动态复制程序__BY__WKAI__晓东CAD空间论坛")
  (princ "\n选择要复制的物体:")
  (setq s (ssget))
  (setq p1 (getpoint "\n复制的起点:"))
  (setq p2 (getpoint p1 "\n复制的终点:"))
  (setq e (entlast))
  (command "copy" s "" "non" p1 "non" p2)
  (while (/= 0 (atof(setq cn (getstring "\n份数(以 / 结束为等分):"))))
    (ttt s cn)
  )
  (princ)
)
[/PHP]

li_seagull

很好，谢谢楼主！！！！！！

zhuquanmao

怎么加载啊 请教

andyhua5240

把代码复制下来，打开记事本，粘贴，重命名为TTT.lsp，打开CAD，把这个TTT文件拖进CAD的绘图区就可以了，或者用APPLOAD命令加载哦！
谢谢！

eachy

最初由 wkai 发布
[B]十分欣赏sketchup中的复制方式,现写了一个用于acad的动态复制程序,大家试试,挺好用的.


[PHP]
(defun zf_dynamic_copy  (/ p1 p2 s e cn)
;__________________
  (defun ttt (ss n / m)
    (setq ee e
         ... [/B]

Erase 部分可以设置 Undo 和然后使用 U 命令来做。

luob72

很好玩啊

whiteon

请问运行命令是什么.

hsb-hy

我运行命令：TTT怎么无效呢？

cq_qg

不知道运行命令，怎么运行啊？是不是有问题？

zh_6531394

我运行命令："zf_dynamic_copy"
怎么无效呢？

wkai

两种方法
1 在命令行输入 以下代码启动

1. (zf_dynamic_copy )

复制代码

  启动
2 把程序中的第一行改为

2. (defun c:dc  (/ p1 p2 s e cn)

(defun c:dc  (/ p1 p2 s e cn)

加载后用 以下代码启动

1. dc

复制代码

jintly

最初由 madman 发布
[B]怎么加载啊 请教 [/B]

先将上面的代码复制下来存成一个*.ｌｓｐ文件后，在cad中敲入appload，选择刚才那么文件就ok了。

jason2008_xu

这个程序在CAD2013中怎么会出错，能不能麻烦楼主改个CAD高版本的，谢谢