mad8834671 发表于 2014-8-19 11:38:01

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

本帖最后由 mad8834671 于 2014-8-19 11:39 编辑

实在不好意思麻烦各位大神，我第一次接触这个，下载了一个这个统计线长的大概看懂了 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 发表于 2014-8-19 13:17:22

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

mad8834671 发表于 2014-8-19 15:29:03

fan_zh 发表于 2014-8-19 13:17 static/image/common/back.gif
你要的是总长还是长度清单
附件是统计长度清单程序

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

ysq101 发表于 2014-8-19 16:55:56

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

不是源码。。所以是乱码

fan_zh 发表于 2014-8-20 09:03:49

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

总长度，excel拉一下就行了

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

mad8834671 发表于 2014-8-20 13:58:19

fan_zh 发表于 2014-8-20 09:03 static/image/common/back.gif
总长度，excel拉一下就行了

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

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

fan_zh 发表于 2014-8-20 16:26:22

mad8834671 发表于 2014-8-20 13:58 static/image/common/back.gif
怎么 怎么用我加载进去之后 用什么命令？

看加载后命令行提示啊

zjsru_18_505 发表于 2014-8-23 20:03:29



(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 发表于 2020-4-23 10:27:21

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

老师，能分享下源码学习下吗
页: [1]
查看完整版本: 统计线长并复制结果到剪贴板怎么弄？