统计线长并复制结果到剪贴板怎么弄？

mad8834671

实在不好意思麻烦各位大神，我第一次接触这个，下载了一个这个统计线长的  大概看懂了 sum是最后的结果，求问 怎么把最后的sum内容输出到 系统剪切板

(defun c:CD()
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq sum 0 i 0)
(setq ss (ssget))
(repeat (sslength ss)
(setq en (ssname ss i))
(command "lengthen" en "")
(setq l (getvar "perimeter"))
(setq sum (+ sum l)
i (+ i 1))
)

(setvar "osmode" os)
(princ "\n所选线段长度总和 = ")
sum

)

fan_zh

你要的是总长还是长度清单
附件是统计长度清单程序

mad8834671

fan_zh 发表于 2014-8-19 13:17
你要的是总长还是长度清单
附件是统计长度清单程序

回大神  需要总长度的， 附件 编辑怎么是乱码？

ysq101

mad8834671 发表于 2014-8-19 15:29
回大神  需要总长度的， 附件 编辑怎么是乱码？

不是源码。。所以是乱码

fan_zh

mad8834671 发表于 2014-8-19 15:29
回大神  需要总长度的， 附件 编辑怎么是乱码？

总长度，excel拉一下就行了

新手提问建议把要解决的最终目的写明白，节约别人的时间

mad8834671

fan_zh 发表于 2014-8-20 09:03
总长度，excel拉一下就行了

新手提问建议把要解决的最终目的写明白，节约别人的时间

怎么 怎么用  我加载进去之后 用什么命令？

fan_zh

mad8834671 发表于 2014-8-20 13:58
怎么 怎么用  我加载进去之后 用什么命令？

看加载后命令行提示啊

zjsru_18_505

(defun C:TT (/ EN L OS SUM OBJ)
    (vl-load-com)
    (setq OS (getvar "osmode"))
    (setvar "osmode" 0)
    (setq SUM 0
          I 0
    )
    (setq SS (ssget))
    (repeat (sslength SS)
        (setq EN (ssname SS I))
        (command "lengthen" EN "")
        (setq L (getvar "perimeter"))
        (setq SUM (+ SUM L)
              I          (+ I 1)
        )
    )
    (setvar "osmode" OS)
    (setq OBJ (vlax-create-object "htmlfile"))
    (vlax-invoke
        (vlax-get (vlax-get OBJ 'PARENTWINDOW) 'CLIPBOARDDATA)
        'SETDATA
        "Text"
        (rtos SUM)
    )
    (vlax-release-object OBJ)
    (princ)
)

apoul

fan_zh 发表于 2014-8-19 13:17
你要的是总长还是长度清单
附件是统计长度清单程序

老师，能分享下源码学习下吗