土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 能否开发一个计算线段长度的工具?

能否开发一个计算线段长度的工具?

发布于:2010-10-28 16:05:28 来自:建筑设计/CAD下载及教程 [复制转发]
请教各位高手:
做电气预算,很多时候需要计算图面管线长度。能否开发一个工具,能够读出选定的线条长度,并进行简单的计算。
我知道通过“特性”能够读取单一线条长度,能否将所有的“特性”中长度读出来。

全部回复(8 )

只看楼主 我来说两句
  • liyp7608826
    liyp7608826 沙发
    下来看看,多谢楼主的资料。学习中!非常感谢:victory:
    2010-11-29 21:16:29

    回复 举报
    赞同0
  • zml84
    zml84 板凳
    [code];;;=================================================================*
    ;;;功能:测量线的长度 *
    ;;;日期:zml84 于 2009-05-21 17:45 *
    (defun C:cd ()
    (princ "统计线段长度")
    (if (setq SS (ssget '((0 . "LINE,ARC,CIRCLE,ELLIPSE,*POLYLINE,SPLINE"))
    )
    )
    (progn
    ;;
    (setq LST_LEN '()
    I 0
    )
    ;;逐个统计
    (repeat (sslength SS)
    (setq EN (ssname SS I)
    LEN (vlax-curve-getdistatparam
    EN
    (vlax-curve-getendparam EN)
    )
    LST_LEN (cons LEN LST_LEN)
    I (1+ I)
    )
    )
    (setq LST_LEN (reverse LST_LEN))
    ;;显示输出
    (princ "\n找到个数:")
    (princ (sslength SS))
    (princ "\n单个长度:")
    (princ LST_LEN)
    (princ "\n总计长度:")
    (princ (apply '+ LST_LEN))
    )
    )
    (princ)
    )
    ;;;=================================================================*
    ;;;(alert
    ;;; "功能:统计线段长度\n命令:\"CD\"\n日期:zml84 于 2009-05-21 17:45"
    ;;;)
    (princ)[/code]
    2010-11-05 10:02:05

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.07 万条内容 · 656 人订阅

猜你喜欢

阅读下一篇

cad2011请教一个简单的问题~! 工作界面里没有auto cad经典这个选项!

down了个2011而且激活了... 但是那个工作空间里面没有auto cad经典这个选项... 新界面用不惯啊只有自定义那个选项....能不能教教我怎么调啊?感激了感激了~!

回帖成功

经验值 +10