dived800 发表于 2016-10-10 16:49:00

求将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))
谢谢了!

hnzkhyyl 发表于 2017-12-28 22:16:00

我也想知道啊,应该可以办到的
页: [1]
查看完整版本: 求将lsp运算结果写入剪贴板代码