请问如何改成循环，谢谢

wgij007

(defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
    (and (= (type STR) 'STR)
       (setq HTML (vlax-create-object "htmlfile"))
        (setq RESULT (vlax-invoke
                      (vlax-get        (vlax-get HTML 'PARENTWINDOW)
                                'CLIPBOARDDATA
                      )
                      'SETDATA
                      "Text"
                      STR
                    )
        )
        (vlax-release-object HTML)
    )
)




(defun c:wc ()
    (vl-load-com)
    (setq txtss (ssget ":S" '((0 . "*TEXT"))))  ;只选取一次（省约回车）
    (setq txtcon (cdr (assoc 1 (entget (ssname txtss 0)))))
    (setq ent_str_last (vl-string-translate "/" "-" txtcon))
    (setq ent_str_last_kuahao (strcat ent_str_last ))
    (ZML-CLIP-SETSTRING ent_str_last_kuahao)
    (princ "\n文字已复制到剪切板,可以直接粘贴了！")
    WScript.Sleep 100
    (princ)
)

kozmosovia

循环不中断的往剪切板写数据，中间没有利用剪切板数据的操作，意义何在？

wgij007

kozmosovia 发表于 2023-10-29 20:53
循环不中断的往剪切板写数据，中间没有利用剪切板数据的操作，意义何在？

也不是在同一个图档上粘贴，是点一下就把内容放在剪粘板上，在其他地方粘贴，这样就少了重复命令这一步了。

wgij007

自己瞎搞可以了，在前加上while就行了