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

谢谢分享:handshake

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

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

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

不是很理解作用，有没有具体的使用 场景
页: [1]
查看完整版本: 顺序复制选择集中的图元