明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: xj6019

请大家帮看看这个计算公式的代码怎么不能加载呀

[复制链接]
发表于 2020-7-30 15:37 | 显示全部楼层
请将3个函数GET-CLIP-STRING,ZML-CLIP-SETSTRING,set-clip-string及套用的其他函数发来
 楼主| 发表于 2020-7-30 15:43 | 显示全部楼层
本帖最后由 xj6019 于 2020-7-30 15:46 编辑
xvjiex 发表于 2020-7-30 15:37
请将3个函数GET-CLIP-STRING,ZML-CLIP-SETSTRING,set-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
)
;;;=================================================================*
;;;功能:向系统剪贴板写入文字                                       *
(defun SET-CLIP-STRING (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)
    )
)
这是另外一个,写入剪切板的函数
(vl-load-com)
(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)
  )
)

 楼主| 发表于 2020-7-30 15:44 | 显示全部楼层
 楼主| 发表于 2020-7-30 15:49 | 显示全部楼层
xvjiex 发表于 2020-7-30 15:37
请将3个函数GET-CLIP-STRING,ZML-CLIP-SETSTRING,set-clip-string及套用的其他函数发来

你好,调用的代码贴上了,麻烦直接调试一下,直接出个完整版的吧,谢谢。我这脑袋不行啦!!
发表于 2020-7-30 16:11 | 显示全部楼层
先加载程序,txt文档复制一串数值“123”,再到CAD输入命令x2

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

评分

参与人数 1明经币 +1 收起 理由
xj6019 + 1 很给力!

查看全部评分

 楼主| 发表于 2020-7-30 16:39 | 显示全部楼层
xvjiex 发表于 2020-7-30 16:11
先加载程序,txt文档复制一串数值“123”,再到CAD输入命令x2

明白了,谢谢啦。仅是咫尺之遥的距离呀。
感谢感谢!!
发表于 2020-7-30 16:46 | 显示全部楼层
已经越来越近了,加油!
发表于 2020-7-30 19:54 | 显示全部楼层
楼主好厉害,楼主再接再厉
发表于 2020-7-31 07:38 | 显示全部楼层
本帖最后由 xmq1103 于 2020-7-31 07:40 编辑
maiko 发表于 2020-7-30 19:54
楼主好厉害,楼主再接再厉

留个脚印,备用。
 楼主| 发表于 2020-7-31 07:42 | 显示全部楼层
maiko 发表于 2020-7-30 19:54
楼主好厉害,楼主再接再厉

还是多谢你们一路的支持与教导呀。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 12:50 , Processed in 0.157110 second(s), 18 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表