本帖最后由 dcl1214 于 2025-9-22 21:04 编辑
图片到剪切板应该调用这个exe
 - (defun $放置图片到剪切板$ (tp-path / extpath exepath zt shell)
- (if (and tp-path (findfile tp-path))
- (if (setq exepath (findfile "ImageToClipboard.exe"));放在运行目录,所以,直接用findfile就可以找到
- (progn
- (setClipText tp-path)
- (setq Shell (vlax-create-object "wscript.shell"))
- (if (not (vl-catch-all-error-p
- (vl-catch-all-apply
- 'vlax-invoke
- (list Shell 'run (strcat exepath " " (vl-prin1-to-string tp-path)) 2 1)
- )
- )
- )
- (setq zt t)
- )
- (and shell (vlax-release-object shell))
- )
- (alert
- "中线CAD组件ImageToClip.exe找不到了
- 该文件在C:\Changli_harness_software路径下
-
- 请注意可恶的杀毒软件!此插件是中线CAD自主开发,还未给杀毒软件公司交保护费,可能有被删除的危险?
- 请联系开发人员!"
- )
- )
- )
- zt
- )
|