wjy1998 发表于 2012-7-10 09:22:05

如何下载呀。

wjy1998 发表于 2012-7-11 11:46:51

试用版，没有用。

阳光动力 发表于 2012-7-30 13:52:10

哪里可以下载试用？

阳光动力 发表于 2012-9-11 14:42:30

这个在哪里下载？不错的算量小工具哈。

wt168 发表于 2012-10-27 17:29:22

看看能不能下载

792465011 发表于 2012-11-17 19:51:52

虽然我现在已经不搞预算了，但是希望有一款能 手算到EXCEL的软件。本人用过，鸿业，思维尔，广联达算王。。其中用得最顺手的还是，算王 可惜算王不是基于CAD 所以很多时候对数不是很方便。一直在寻找一款和CAD紧密集合的软件。

放出一个我算量测量 长度 然后切到EXCEL直接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))
(print "单位：米")
(print a)


(setq b (rtos a 2 2))



(setq txtcon b)

(ZML-CLIP-SETSTRING txtcon)



(princ)
)


792465011 发表于 2012-11-17 19:53:18

楼主能否发一份 程序给我？489346428@qq.com谢了

Kall 发表于 2013-3-7 11:04:22

本帖最后由 Kall 于 2014-3-20 16:21 编辑

能否发一份 谢谢了

完整武器 发表于 2013-3-9 12:32:18

严哥麻烦发我一份吧这个程序对我很大帮助的，谢谢！ 401587827@qq.com

wy8wd 发表于 2014-3-6 10:56:38

严哥给我发一份呗！我是做弱电的，最近一直关注您以前做的各个大作，对我帮助很大，谢谢！
如果能顺便给俺再发一份您的“图块统计”和“选线打断自身及其它线”大作，小弟将感激不尽！1309563269@qq.com
页: 1 2 3 4 [5] 6
查看完整版本: 电气工程量计算程序