电气工程量计算程序

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

账号		自动登录	找回密码
密码			注册