54525596 发表于 2012-12-15 13:17:24

量取距离到excel

量取距离到excel，并手工在命令行输入一个数据，到excel里，如何实现，可换行。
量出的每个距离都要入工输入到EXCEL里，很麻烦，也怕出错

chpmould 发表于 2012-12-15 16:16:43

这类问题之前论坛讨论了很多，你找找

weiqi 发表于 2012-12-15 21:12:56

本帖最后由 weiqi 于 2012-12-15 21:17 编辑

http://bbs.mjtd.com/thread-99262-1-1.html运行命令CD，切换到EXCEL按ctrl+v粘贴，单位为米。
;;;功能：向系统剪贴板写入文字
(print "测量长度 运行命令cd,输出ctrl+v ")
                                     *
(vl-load-com)
(defun ZML-CLIP-SETSTRING (STR / HTML RESULT)
(and (= (type STR) 'STR)
       (setq HTML (vlax-create-object "htmlfile"))
       (setq RESULT (vlax-invoke
                      (vlax-get        (vlax-get HTML 'PARENTWINDOW)
                                'CLIPBOARDDATA
                      )
                      'SETDATA
                      "Text"
                      STR
                  )
       )
       (vlax-release-object HTML)
)
)



;****************************************************CD测量长度
(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)
(print "结果等于")
(print sum)

(setq a (/ sum 1000))


(setq b (rtos a 2 2))
(setq c b)


(print (strcat c "米"))

(setq txtcon b)

(ZML-CLIP-SETSTRING txtcon)



(princ)
)






用户3766035971 发表于 2014-4-2 19:31:03

谢谢分享         

debugchen 发表于 2014-5-4 11:09:07

谢谢分享，很好的程序

feng83 发表于 2014-5-21 06:13:46


不错的源码，辛苦了,新手向楼主学习一下~
页: [1]
查看完整版本: 量取距离到excel