自动将字符串粘贴到

KRBeckman · 发表于 2022-7-6 11:33:27

当命令在运行的lisp中处于活动状态时，是否有方法将Excel之类的程序中的文本字符串粘贴到命令行中。

例如，我想创建一行文本，“BBD-1230-G”作为文本，并且只在一个命令中键入。

类似这样：


(defun c:pastetext ()
 (command "_.-text" '(0 0 0) 1 0 pastefunction)
 (princ))

Lee Mac · 发表于 2022-7-6 11:44:03

Ctrl-C/Ctrl-V

KRBeckman · 发表于 2022-7-6 11:50:01

认真地伙计，我只想删除这篇帖子，假装它从未发生过。

KRBeckman · 发表于 2022-7-6 11:51:38

它不起作用，可能是一些简单的事情。。。

copy

(command "_.-PN" ctrl-v "0,0" "0" (command ""))

我做错了什么？

Lee Mac · 发表于 2022-7-6 12:01:58

你在做什么？

KRBeckman · 发表于 2022-7-6 12:04:57

我工作的公司使用第三方软件Project Matrix来管理/分发二维和三维符号。插入符号的命令是“PN”以使用对话框或“-PN”以使用命令行。它的工作原理很像insert。首先它要求输入零件号（我想从excel电子表格中粘贴的），然后输入插入点（90%的时间是（0,0,0），最后是旋转角度（90%的时间是0），然后它要求输入第二个插入点，我不想这样做，所以我用“（command“”）***取消了该命令，但现在我认为它是一个”就可以了。

copy

(command "_.-PN" ctrl-v "0,0" "0" "")

Lee Mac · 发表于 2022-7-6 12:12:07

Ctrl-V是一个按键，将被视为与任何其他符号一样。

您的示例使用了文本，因此我建议使用Ctrl-V将文本插入AutoCAD。

Lee Mac · 发表于 2022-7-6 12:21:17

也许可以看看伟大的议员的这个功能：

copy


;;  MP
(defun _GetClipBoardText( / htmlfile result )
   (setq result
       (vlax-invoke
           (vlax-get
               (vlax-get (setq htmlfile (vlax-create-object "htmlfile")) 'ParentWindow)
              'ClipBoardData
           )
          'GetData "Text")
   )
   (vlax-release-object htmlfile)
   result
)

KRBeckman · 发表于 2022-7-6 12:24:45

我正要回答，问这是否是困惑所在。。。

这非常有效。再次感谢你，伙计。

Lee Mac · 发表于 2022-7-6 12:29:56

别担心

[编程交流] 自动将字符串粘贴到

发表回复

精选推荐