顺序复制选择集中的图元

k1nger · 发表于 2022-10-6 15:05:15

本帖最后由 k1nger 于 2022-10-6 15:07 编辑

;小程序功能：按顺序复制选择集中的图元
;小程序作者：回归雁o0 k1nger
;感谢ZZXXQQ踅摸大神的技术指导
;日期：2022年10月6日于山东济宁

(defun C:t1()
  (if (setq selct (ssget)) (progn
(setq n 0)
(repeat (sslength selct)
   (setq en (ssname selct n))
   (setq n (1+ n))
   (command "copy" en)
;;;    (command "copyclip" en "")
;;;    (command PAUSE)
;;;    (command "pasteclip"en)
   (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
      )
  ))
  (princ)
)
;欢迎大神们进行技术指导，修改简化程序！

ynhh · 发表于 2022-10-7 10:12:03

谢谢分享

lxl217114 · 发表于 2022-10-7 19:54:27

谢谢分享

对往事说 · 发表于 2022-10-8 22:54:47

不是很理解作用，有没有具体的使用场景

Ming131564 · 发表于 2023-1-18 11:31:31

不是很理解作用，有没有具体的使用场景

账号		自动登录	找回密码
密码			注册