wgij007 发表于 2023-10-29 19:49:59

请问如何改成循环，谢谢


(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 发表于 2023-10-29 20:53:14

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

wgij007 发表于 2023-10-30 08:07:55

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

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

wgij007 发表于 2023-10-31 08:17:43

自己瞎搞可以了，在前加上while就行了
页: [1]
查看完整版本: 请问如何改成循环，谢谢