社区 › Auto Lisp › 自动将字符串粘贴到

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

它不起作用，可能是一些简单的事情。。。
 
(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“”）***取消了该命令，但现在我认为它是一个”就可以了。
 
(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

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

;;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

 
别担心

查看完整版本: 自动将字符串粘贴到