求将lsp运算结果写入剪贴板代码
各位大神,小弟常用CAD的LSP程序,请问如何将lsp执行后的计算结果写入剪贴板,直接利用啊?如下面的统计(加法):(defun C:jia()
(setvar"cmdecho"0)
(setq e (ssget (list (cons 0 "TEXT"))))
(setq nb (sslength e))
(setq i 0)
(setq su 0)
(while (< i nb)
(setq a (ssname e i))
(setq bl (entget a))
(setq s (atof (cdr (assoc 1 bl))))
(setq su (+ s su))
(setq i (+ i 1)))
(setq su su))
谢谢了!
我也想知道啊,应该可以办到的
页:
[1]