（完成）[编程申请]：还得麻烦晓东，再帮忙写个测量曲线长度的，详情见内。

21cn · 发表于 2002-5-5 15:40:21

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

是这样的以前测量曲线时用list，测得的是整段的长，可测曲线上任意两点的曲线距离就无能为力了，每次都要break后再list，曲线包括Spline、可能拟合过的Pline，Ellipse，要是再有累加功能就更好了
，象area一样。

再次谢谢。:1 :1

snsj · 发表于 2002-5-6 03:10:57

我也有同感我通常也是用MO或者LIST每次用到总是感觉没有MAX上的好用，小东又要费神了～～

eachy · 发表于 2002-5-6 08:00:45

说明：#curve_dist_sum是全局变量，如果只是在程序运行时需要累加，可以去掉#curve_dist_sum。
以后请到【编程申请】论坛发帖子。

;|
命令：curve_dist
功能：求曲线(包括Polyline,LWPolyline,Spline,Line,Ellpise,Arc,Circle)上任意两点的距离
说明：1、程序保留小数点后2位，如果需要改变请改变下面程序里面的(rtos cur_dist 2 2)
把最后一个2改程序需要的位数即可
2、程序配合XDRX_API使用，对程序有建议请到：
晓东CAD空间－论坛 [url]http://www.xdcad.net/forum[/url]
留言
|;
(defun c:curve_dist (/ tf cur_dist e p1 p2)
(setq tf t)
(if (= NULL #curve_dist_sum)
(setq #curve_dist_sum 0)
)
(setq cur_dist 0)
(while (and
tf
(progn
(prompt (strcat "\n历史记录: "
(rtos #curve_dist_sum
2
2
)
)
)
(initget "Clear")
(setq e (xdrx_entsel
"\n请点取一个曲线实体[Clear-清历史记录]<退出>"
'((0 . "*line,arc,circle,ellipse"))
)
)
(cond
((= 'STR (type e))
(setq #curve_dist_sum 0)
)
((= 'LIST (type e))
(setq tf nil)
)
(t
(exit)
)
)
t
)
)
)
(setq e (car e))
(if (and
(setq p1 (getpoint "\n曲线间第一点<结束取总长>:"))
(setq p2 (getpoint "\n曲线间第二点<结束取总长>:"))
)
(progn
(setq p1 (cadr (xdrx_curve_ClosestPoint e p1))
p2 (cadr (xdrx_curve_ClosestPoint e p2))
)
(setq #curve_dist_sum
(+ #curve_dist_sum
(setq cur_dist
(abs (xdrx_curve_getdistatpoint e p1 p2))
)
)
)
)
(setq #curve_dist_sum
(+ #curve_dist_sum
(setq cur_dist (abs (cadr
(xdrx_getarea e)
)
)
)
)
)
)
(prompt (strcat "\n当前测量长度值: "
(rtos cur_dist 2 2)
" 历史记录总和: "
(rtos #curve_dist_sum 2 2)
)
)
(princ)
)

;| 
   命令：curve_dist 
   功能：求曲线(包括Polyline,LWPolyline,Spline,Line,Ellpise,Arc,Circle)上任意两点的距离 
   说明：1、程序保留小数点后2位，如果需要改变请改变下面程序里面的(rtos cur_dist 2 2) 
          把最后一个2改程序需要的位数即可 
          
        2、程序配合XDRX_API使用，对程序有建议请到： 
         晓东CAD空间－论坛 [url]http://www.xdcad.net/forum[/url] 
         留言 
|; 
(defun c:curve_dist (/ tf cur_dist e p1 p2) 
  (setq tf t) 
  (if (= NULL #curve_dist_sum) 
    (setq #curve_dist_sum 0) 
  ) 
  (setq cur_dist 0) 
  (while (and 
           tf 
           (progn 
             (prompt (strcat "\n历史记录: " 
                             (rtos #curve_dist_sum 
                                   2 
                                   2 
                             ) 
                     ) 
             ) 
             (initget "Clear") 
             (setq e (xdrx_entsel 
                       "\n请点取一个曲线实体[Clear-清历史记录]<退出>" 
                       '((0 . "*line,arc,circle,ellipse")) 
                     ) 
             ) 
             (cond 
               ((= 'STR (type e)) 
                (setq #curve_dist_sum 0) 
               ) 
               ((= 'LIST (type e)) 
                (setq tf nil) 
               ) 
               (t 
                (exit) 
               ) 
             ) 
             t 
           ) 
         ) 
  ) 
  (setq e (car e)) 
  (if (and 
        (setq p1 (getpoint "\n曲线间第一点<结束取总长>:")) 
        (setq p2 (getpoint "\n曲线间第二点<结束取总长>:")) 
      ) 
    (progn 
      (setq p1 (cadr (xdrx_curve_ClosestPoint e p1)) 
            p2 (cadr (xdrx_curve_ClosestPoint e p2)) 
      ) 
      (setq #curve_dist_sum 
             (+        #curve_dist_sum 
                (setq cur_dist 
                       (abs (xdrx_curve_getdistatpoint e p1 p2)) 
                ) 
             ) 
      ) 
    ) 
    (setq #curve_dist_sum 
           (+ #curve_dist_sum 
              (setq cur_dist (abs (cadr 
                                    (xdrx_getarea e) 
                                  ) 
                             ) 
              ) 
           ) 
    ) 
  ) 
  (prompt (strcat "\n当前测量长度值: " 
                  (rtos cur_dist 2 2) 
                  " 历史记录总和: " 
                  (rtos #curve_dist_sum 2 2) 
          ) 
  ) 
  (princ) 
)

jgm · 发表于 2002-5-12 08:15:46

谢谢。以前我也经常求曲线长度，但是没有好办法，只好把曲线分成很小的直线来求，现在可以了。谢谢！！

cad517 · 发表于 2002-5-14 21:58:50

加载后不能用阿

mianyi_hu · 发表于 2002-5-14 22:33:16

和楼上的兄弟同样的问题

weihong0371 · 发表于 2002-5-16 20:31:28

加载放到小东工具箱里，再次加载后！运行时出现涵数错误！

cad517 · 发表于 2002-5-20 02:43:45

斑竹已经改正bug，现在可以用了

srsh2000 · 发表于 2002-7-9 14:52:02

还是不能用啊！

XDSoft · 发表于 2002-7-9 17:54:04

最初由 srsh2000 发布
[B]还是不能用啊！ [/B]

去看看下面的帖子：

http://www.xdcad.net/forum/showthread.php?postid=43790#post43790

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

（完成）[编程申请]：还得麻烦晓东，再帮忙写个测量曲线长度的，详情见内。

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

有共鸣