[求助]：如何快速复制渐进式物体

xll

我工作中经常要复制一些渐进的物体，意思就是第一个物体与第二个物体距离1，第三与第二的距离为2，第四与第三的距离为3。要复制很多这样的物体有没有好的办法以？

ALU

是呀，我也在寻找这个东东，希望那位高手指点迷津。

柔柔

我原来编的一个程序：
(defun c:bc (/ sset pt0 pt dis ang setp lss )
   (setq sset (ssget)
          pt0 (getpoint "\n基准点 :")
           pt (getpoint pt0 "\n目标点 :")
          dis (distance pt0 pt)
          ang (angle pt0 pt)
         step (getreal "\n渐变距系数 <0.9>:")
   )
     (if (= step nil) (setq step 0.9))
   (setq lss (getint "\n复制数量 < 20 >:"))
     (if (= lss nil) (setq lss 20))
   (repeat lss  
     (command "_.copy" sset "" pt0 pt)
     (setq dis (* dis step)
            pt (polar pt ang dis))
   )
   (princ)
)

满足楼主要求的修改程序：
(defun c:bc (/ sset pt0 pt dis0 dis ang setp lss )
   (setq sset (ssget)
          pt0 (getpoint "\n基准点 :")
           pt (getpoint pt0 "\n目标点 :")
         dis0 (distance pt0 pt)
          dis dis0
          ang (angle pt0 pt)
         step (getreal "\n渐变增量<1.0>:")
   )
     (if (= step nil) (setq step 1.0))
   (setq lss (getint "\n复制数量 < 20 >:"))
     (if (= lss nil) (setq lss 20))
   (repeat lss  
     (command "_.copy" sset "" pt0 pt)
     (setq dis (+ dis (* step dis0))
            pt (polar pt ang dis))
   )
   (princ)
)

jxhaha

哈～柔大虾显灵啦～～不错啊～

xll

多谢柔柔，这个程序只能延直线方向复制，能不能再写一个按对象(比如：圆弧)进行渐进复制的？

whitefish

柔柔你好厉害。我又学了一着。

ALU

是呀，柔柔可否按5楼楼主的要求再写一个，先谢了！

柔柔

不好意思，一般来说促使我编程有二大理由：
1。大量的简单又繁琐的操作
2。自己特别感兴趣的
5楼要的功能我感觉不出哪个方面有大量的这个操作，反正我的专业中碰到很少。偶尔操作没必要动太多脑筋。
对5楼的沿着对象渐进复制的要求，我提供参考意见，有兴趣的朋友可以试试。
可以选取对象，获得对象特性，然后在程序中搞几个常用对象，即：
如果是圆。。。
如果是圆弧。。。
如果是PLINE。。。
如果是SPLINE。。。
但是这样既麻烦还有局限性，我的想法是先在线上布点，再按上述递进原理复制到相应点上。这样，无论什么线条都能处理。

wo94wacao

我觉得很好，以后我应该用的上的

vvss

你说的捕捉设定图标和ACAD界面下面的一样说明你还了解它的用途。

ALU

有性格，柔柔你好...!

douny_leung

有时一些渐变线（比如说表示圆形的阴影）如何作出来？？可不可以作成填充图案呢？？还有lisp程式怎样调来用？？？