（完成）[编程申请]：连续测量线长的程序

fancoil

就象画直线一样，可以连续测量线长的程序！！！

eachy

是连续选线（Line、arc、circle、spline、pline、ellipe）还是连续描点？

如果是选线，晓东工具箱－》曲线－》测量长度

1. 
   
2. 命令: _XDTB_CurveLength
   
3. 正在初始化...
   
4. 请选取计算长度的曲线实体[多选-M]<退出>:m
   
5. 选择对象: 指定对角点: 找到 2 个
   
6. 
   
7. 选择对象:
   
8. 曲线长度值: 78003.2

复制代码

lsjjm

怎么个连续法?

fancoil

连续描点

eachy

最初由 fancoil 发布
[B]连续描点 [/B]

2. 
   
3. (defun c:test (/ pt pts dis p1)
   
4.   (while (setq pt (getpoint "\nPoint: "))
   
5.     (if        (not p1)
   
6.       (setq p1 pt)
   
7.     )
   
8.     (setq pts (cons pt pts))
   
9.     (if (>= (length pts) 2)
   
10.      (grdraw pt p1 1))
    
11.     (setq p1 pt)
    
12.   )
    
13.   (setq dis 0.)
    
14.   (if pts
    
15.     (mapcar '(lambda (x y)
    
16.                (setq dis (+ dis (distance x y)))
    
17.              )
    
18.             (reverse (cdr (reverse pts)))
    
19.             (cdr pts)
    
20.     )
    
21.   )
    
22.   ;;(apply 'command (cons ".pline" pts))
    
23.   ;;(command)
    
24.   (if (not (zerop dis))
    
25.     (princ (strcat "\nDistance = " (rtos dis 2 4)))
    
26.   )
    
27.   (princ)
    
28. )
    

<br /> (defun c:test (/ pt pts dis p1)<br />   (while (setq pt (getpoint "\nPoint: "))<br />     (if        (not p1)<br />       (setq p1 pt)<br />     )<br />     (setq pts (cons pt pts))<br />     (if (>= (length pts) 2)<br />      (grdraw pt p1 1))<br />     (setq p1 pt)<br />   )<br />   (setq dis 0.)<br />   (if pts<br />     (mapcar '(lambda (x y)<br />                (setq dis (+ dis (distance x y)))<br />              )<br />             (reverse (cdr (reverse pts)))<br />             (cdr pts)<br />     )<br />   )<br />   ;;(apply 'command (cons ".pline" pts))<br />   ;;(command)<br />   (if (not (zerop dis))<br />     (princ (strcat "\nDistance = " (rtos dis 2 4)))<br />   )<br />   (princ)<br /> )<br />

lsjjm

5楼: 可以测量非直线吗?

eachy

最初由 lsjjm 发布
[B]5楼: 可以测量非直线吗? [/B]

说的是描点不是测量Curve类实体。
如果测量选择Curve类实体的总长或曲线上任意两点间的长度，工具箱已经提供了这个功能。

tq888

可以加点功能吗，把测量值写到CAD中




哦。谢谢了
我自己给糊弄好了，嘿嘿，是参照其他类似的，粘贴过来的*-*4 *-*4 *-*2 *-*1

lsjjm

最初由 eachy 发布
[B]
说的是描点不是测量Curve类实体。
如果测量选择Curve类实体的总长或曲线上任意两点间的长度，工具箱已经提供了这个功能。 [/B]

我知道了, 这个论坛是建筑CAD, 所以许多术语理解偏了!

tyrwy

多条曲线长度测量后能不能自动导出到EXCLE表格?

xshrimp

[php]
;;;连续测量线长的程序
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2005 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
(defun c:lxc ( / errexit olderr p1 p2 restore sum undox *error* )
  (defun errexit (s)
    (princ)
    (restore)
  )

  (defun undox ()
    (redraw)
    (setq *error* olderr)
    (princ)
  )

  (setq olderr  *error*
        restore undox
        *error* errexit
  )
  (setq p1  (getpoint "\n 请指定开始点: ")
        p2  "First"
        sum 0
  )
  (while (and p1 p2)
    (if (= p2 "First")
      (progn
        (initget 32)
        (setq p2 (getpoint "\n指定下一点: " p1))
      )
      (progn
        (initget 32 "First")
        (setq p2 (getpoint "\n[下一点(N)/开始点(F)]<N>: " p1))
      )
    )
    (cond
      ((not p2))
      ((= p2 "First")
       (setq p1 (getpoint "\n请指定开始点: "))
      )
      (t
       (grdraw p1 p2 -1 1)
       (setq sum (+ sum (distance p1 p2))
             p1  p2
       )
      )
    )
  )
  (princ "\n 总长度 = ")
  (princ sum)
  (restore)
)[/php]

jx2008

怎么个编法阿，只限于直线，多线段？还是包括圆弧、样条曲线等都要测量呢？只是直线式比较容易的，先研究研究，等编出来了再长传上来给大家。