明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 123|回复: 1

求将lsp运算结果写入剪贴板代码

[复制链接]
发表于 2016-10-10 16:49 | 显示全部楼层 |阅读模式
各位大神,小弟常用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))

谢谢了!
发表于 2017-12-28 22:16 来自手机 | 显示全部楼层
我也想知道啊,应该可以办到的
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2018-1-18 15:40 , Processed in 0.268177 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表