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

xvjiex

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

xj6019

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

http://bbs.mjtd.com/forum.php?mo ... =%BC%F4%C7%D0%B0%E5
这个帖子下的代码

xj6019

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

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

xvjiex

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

xj6019

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

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

xvjiex

已经越来越近了，加油！

maiko

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

xmq1103

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

留个脚印，备用。

xj6019

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

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