[分享]发一个简单实用的程序

luoguoqianga

 好久不上明经论坛了，今天网游到此，偶然发现我很久以前在其他论坛发了一个多重复制的程序有个用户名为“客人”的朋友拿到贵论坛上来，并提了其他的问题。当然能做多重复制的程序有很多种，最简单的一行程序就可以了。但为了让你看程序运行更明白，我多做几行程序而已，效果一样的。

以下是“客人”的问题，详细如下：

《《比如我选择原图元（0物体）复制一个1物体，距离100；那么我再输入300的时候，这个300是从1物体开始计算，而不是从0物体开始计算》》

我看了一下贴子，也有的做了回答给了程序，但都有点“词不达意”其中得到“客人”大声叫好的有一个程序（指向其他链接）是“KOPY.LSP”的程序，请问“客人”，那个程序好用吗？能用吗？反正我是不用的。

现我给你一个更为接近你的问题的kopy程序：

 

luoguoqianga

 以下是“客人”的问题，详细如下：

 

 

 

 

 

luoguoqianga

461045462

发一个简单实用的程序收藏了

清早就看到这么好的东西,谢谢楼主的分享

愿有更多的小程序.

如能提供源码就能更好学习.

谢谢

luoguoqianga

这是早些时候本论坛上的源码（别人的）：

版权为：andyhon

;;; Function by Frank Oquendo - ADG
;;; Returns a list containing all tokens in a delimited string
;;; Use: (parse "one,two,three" ",")

(defun parse (str delim / lst pos)
  (setq pos (vl-string-search delim str))
  (while (> pos 0)
    (setq lst (cons (substr str 1 pos) lst)
   str (substr str (+ pos 2))
   pos (vl-string-search delim str)
    )
  )
  (if (> (strlen str) 0)
    (setq lst (cons str lst))
  )
  (reverse lst)
)

 ;; For Test only
 (defun c:Kopy (/ ss str pt lst1 lst2)
    (vl-load-com)
    (setq ss (ssget)
         str "10"
    )
    (setvar "CMDECHO" 1)
    (setvar "HIGHLIGHT" 0)
    (setvar "OrthoMode" 1)
    (while (or
             (not (zerop (atof str)))
             (not (equal pt (GetVar "LastPoint")))
           )
      (setq pt (cdr (assoc 10 (entget (ssname ss 0)))))
      (Vl-Cmdf "Copy" ss "" pt pt)
      (Vl-Cmdf "Move" ss "" pt)
      (Vl-Cmdf pause)
      (setq lst1 (getvar "LASTPROMPT")
             str (parse lst1 " ")
             str (last str)
      )
    )
 )