[LISP函数]：请问如何用lisp实现id查询的坐标复制到剪贴板里？谢谢

wnjn

请问如何用lisp实现id查询的坐标复制到剪贴板里？谢谢

cy956

cad 的操作进程用lisp来监控应该是很难做到的，你可以直接用程序，然后把返回值加到剪贴板或文本中。

wnjn

请问在如何操作，谢谢

cy956

到剪贴板你可以用doslib的dos_clipboard      
  (dos_clipboard [string])返回或赋值剪贴板
Examples
   (dos_clipboard)
   (dos_clipboard "Hello World!")

到文本，就要用lisp的open，close函数了

zxq0220

用ID查询坐标后用下面程序可以将坐标点写入剪贴板：
(xdl-setcliptext (strcat "(" (rtos(car(getvar"lastpoint")) 2 4) " " (rtos(cadr(getvar"lastpoint)) 2 4) " " (rtos (caddr(getvar"lastpoint")) 2 4) ")"))
[php]
;;往剪贴板写文字
(defun xdl-setcliptext (str / ieobj)
  (setq
    ieobj (vlax-get-or-create-object "Internetexplorer.application")
  )
  (vlax-invoke ieobj 'navigate "about :blank")
  (vlax-invoke
    (vlax-get (vlax-get (vlax-get ieobj 'document) 'parentwindow)
      'clipboarddata
    )
    'setdata
    "text"
    str
  )
  (vlax-release-object ieobj)
)
[/php]

carrot1983

我第一次想回这个贴的时候就是想到用楼上的这段在ＭＪＴＤ上看到的代码。。。
可是我自己用了一下发现“; 错误: 发生意外。”
可能是我的ＩＥ有问题。。。这个时候，我就想能不能换个思路读取notepad的。
可是我不懂(vlax-get-or-create-object 　prog-id)中的prog-id是要怎么写。
做为“需要的 ActiveX 对象的可编程标识符”，不知道哪位能指点一二