社区 › 源码共享 › 请大家帮看看这个计算公式的代码怎么不能加载呀

xvjiex 发表于 2020-7-30 15:37:28

请将3个函数GET-CLIP-STRING，ZML-CLIP-SETSTRING，set-clip-string及套用的其他函数发来

xj6019 发表于 2020-7-30 15:43:50

本帖最后由 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)
)
)

xj6019 发表于 2020-7-30 15:44:27

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=85614&highlight=%BC%F4%C7%D0%B0%E5
这个帖子下的代码

xj6019 发表于 2020-7-30 15:49:26

xvjiex 发表于 2020-7-30 15:37
请将3个函数GET-CLIP-STRING，ZML-CLIP-SETSTRING，set-clip-string及套用的其他函数发来

你好，调用的代码贴上了，麻烦直接调试一下，直接出个完整版的吧，谢谢。我这脑袋不行啦！！

xvjiex 发表于 2020-7-30 16:11:17

先加载程序，txt文档复制一串数值“123”，再到CAD输入命令x2

xj6019 发表于 2020-7-30 16:39:47

xvjiex 发表于 2020-7-30 16:11
先加载程序，txt文档复制一串数值“123”，再到CAD输入命令x2

明白了，谢谢啦。仅是咫尺之遥的距离呀。
感谢感谢！！

xvjiex 发表于 2020-7-30 16:46:12

已经越来越近了，加油！

maiko 发表于 2020-7-30 19:54:55

楼主好厉害，楼主再接再厉

xmq1103 发表于 2020-7-31 07:38:21

本帖最后由 xmq1103 于 2020-7-31 07:40 编辑

maiko 发表于 2020-7-30 19:54
楼主好厉害，楼主再接再厉
留个脚印，备用。

xj6019 发表于 2020-7-31 07:42:30

maiko 发表于 2020-7-30 19:54
楼主好厉害，楼主再接再厉

还是多谢你们一路的支持与教导呀。

查看完整版本: 请大家帮看看这个计算公式的代码怎么不能加载呀