[分享]：动态复制程序

陌生人

临时捕捉设置 ＝none ，什么也不捕捉

cqnj023

程序很好，对一般的块和具有一般属性的块好象也没有问题，但对包含有代理图形的属性块中会有问题。

罗趣

不写non也不会错啊？！又没有在程序中画线！

snsj

原来我也想问题出在ENTLAST，但我测试了下并不在ENTLAST，不知道怎么回事，用WKAI的那个对属性块就是不管用，这个是我用ENTLAST测试的
[php]
(defun c:dco (/ getpt getpt1 ss ptx pty db n x y gtin)
  (vl-cmdf ".undo" "be")
  (vl-cmdf ".copy" (setq ss (ssget))""(setq getpt (getpoint "\n&点取基点:")) pause)
  (setq getpt1 (getvar "lastpoint"))
       (setq ptx (-(car getpt1)(car getpt))
             pty (-(cadr getpt1)(cadr getpt))y 0)  
         (while (setq gtin (-(getint "\n重复次数:")1))
           (if (> y 0)
             (repeat (*(length db)(sslength ss))
             (vl-cmdf ".erase" (entlast) ""))
               )(setq n 1 x 0 db nil)
           (repeat gtin          
(setq db (cons(list (+(* n ptx)(car getpt1))(+(* n pty)(cadr getpt1)) 0.0) db))
           (setq n (1+ n))
           )
(repeat (length db)
(vl-cmdf ".copy" ss "" getpt (nth x (reverse db)))  
         (setq x (1+ x))
         )(setq y (1+ y))          
           )(vl-cmdf ".undo" "e")(princ)
)[/php]

陌生人

能说说测试效果么? 效果和wkai的有什么区别?

eachy

copy 中用的是 SS ，entlast 只能得到一个实体

snsj

上边我修改了下用ENTLAST模拟对属性快等没问题
entnext有问题
ssget 函数所形成的选择集中只包含主图元，不包含块属性或多段线顶点。可以通过调用 entnext 函数遍历复杂图元的子图元来访问复杂图元的内部结构。获取子图元名后，可以象处理其他图元一样处理子图元。获取子图元名后，还可以用以下方法找到它的主图元：调用 entnext 函数直至找到 SEQEND 图元，该图元的 -2 组中即包含了它的主图元名。

小菜

楼主的程序中途用esc退出后，会多生成一个很小的line段，能不能改一下呢？

urljit

不错，偶下载了，就是不知道它的用途，偶是学工民建的。

conn

谢谢分享

海豚

有那位说明一下最终那一个版本最好，我测试过几个，没有得到结论。

舍我其谁

确实不错呀！全收了，多谢！

thx

感谢wkai，程序是你自己编的吗？我在编程申请里求了两个LISP程序，不知道你能否帮我看一下？？不胜感激
http://www.xdcad.net/forum/showthread.php?s=&threadid=190060&s=
http://www.xdcad.net/forum/showthread.php?s=&postid=1011421#post1011421

chstart

好程序，好想法！

yeahkenny

多谢试用过确实好