要善于使用搜索功能。![](source/plugin/imc_colorcode/images/loading.gif) - (defun c:11 (/ get-clip-string)
- (defun get-clip-string (/ html result)
- (and (setq html (vlax-create-object "htmlfile"))
- (setq result (vlax-invoke
- (vlax-get (vlax-get HTML 'PARENTWINDOW)
- 'CLIPBOARDDATA
- )
- 'GETDATA
- "Text"
- )
- )
- (vlax-release-object html)
- )
- result
- )
- (command "text" pause "350" "0" (get-clip-string))
- (princ)
- )
|