[LISP程序]：请重新下载修正后的曲线测量程序！

eachy · 发表于 2002-5-18 01:26:46

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

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

×

;|
命令：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 (= nil #curve_dist_sum)
(setq #curve_dist_sum 0)
)
(setq cur_dist 0)
(while
(if (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
)
)
(progn
(setq e (car e))
(if (and
(setq p1 (getpoint "\n曲线间第一点<结束取总长>:"))
(setq p2 (getpoint "\n曲线间第二点<结束取总长>:"))
)
(progn
(setq p1 (xdrx_curve_getClosestPoint e p1)
p2 (xdrx_curve_getClosestPoint 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)
)
)
)
)
)
)
)
(setq tf nil)
)
)
(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 (= nil #curve_dist_sum) 
    (setq #curve_dist_sum 0) 
  ) 
  (setq cur_dist 0) 
  (while 
    (if        (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 
          ) 
        ) 
      (progn 
        (setq e (car e)) 
        (if (and 
              (setq p1 (getpoint "\n曲线间第一点<结束取总长>:")) 
              (setq p2 (getpoint "\n曲线间第二点<结束取总长>:")) 
            ) 
          (progn 
            (setq p1 (xdrx_curve_getClosestPoint e p1) 
                  p2 (xdrx_curve_getClosestPoint 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) 
                                        ) 
                                   ) 
                    ) 
                 ) 
          ) 
        ) 
      ) 
      (setq tf nil) 
    ) 
  ) 
  (prompt (strcat "\n当前测量长度值: " 
                  (rtos cur_dist 2 2) 
                  " 历史记录总和: " 
                  (rtos #curve_dist_sum 2 2) 
          ) 
  ) 
  (princ) 
)

caibaobao · 发表于 2002-5-18 07:01:46

谢谢斑竹，回去试试:)

cad517 · 发表于 2002-5-20 02:37:55

谢谢斑竹，已经可以用了

梦断江南 · 发表于 2002-5-20 05:29:56

(cond
      ((= 'STR (type e))
         (setq #curve_dist_sum 0)
      )
      ((= 'LIST (type e))
         (setq tf nil)
      )
      (t
         (exit)
      )
一不小心点不中就exit,还是建议不要 (t (exit))

XDSoft · 发表于 2002-5-20 05:38:03

最初由梦断江南发布
[B](cond
      ((= 'STR (type e))
         (setq #curve_dist_sum 0)
      )
      ((= 'LIST (type e))
         (setq tf nil)
      )
      (t
         (exit)
      )
一不小心点不中就exit,还?.. [/B]

点不中和回车都当“退出”处理的。
不可能点不中的，只要想点的话：）

可以设置aperture变量的捕捉框大小。

cad517 · 发表于 2002-6-21 10:33:21

清除历史记录时出现错误

XDSoft · 发表于 2002-6-21 23:08:19

最初由 cad517 发布
[B]清除历史记录时出现错误 [/B]

什么错误？把提示贴到论坛吧。

cad517 · 发表于 2002-6-22 12:55:43

最初由 XDSoft 发布
什么错误？把提示贴到论坛吧。

选用[CLear-清历史记录]选项是出现如下错误（我用中文cad2002）：

错误：参数类型错误：consp"Clear"

XDSoft · 发表于 2002-6-22 13:06:53

最初由 cad517 发布
[B]

选用[CLear-清历史记录]选项是出现如下错误（我用中文cad2002）：

错误：参数类型错误：consp"Clear" [/B]

你是用最新的XDRX_API吗？去下载中心下载最新的API试试。

cad517 · 发表于 2002-6-23 00:59:59

我用的是晓东工具箱0.12班啊，应该是最新版吧，提示是到6月30号的啊

XDSoft · 发表于 2002-6-23 01:16:14

最初由 cad517 发布
[B]我用的是晓东工具箱0.12班啊，应该是最新版吧，提示是到6月30号的啊 [/B]

是用以后，从来都是错误的吗？还是偶尔错误？

如果是前者，那么去下载中心下载单独的XDRX_API，然后把ARX文件释放到工具箱SYS目录，覆盖原来的文件，再试试。API中间更新过几个小版本。

cad517 · 发表于 2002-6-23 13:14:51

xd，原来我没有用“历史清除”的选项，这次因为统计线条用到，才发现有这个错误提示。

用你的方法我又装了一遍xdrx－api，但问题还是照旧，不知为什么。你那儿是不是也有这问题呢？（错误提示后，已经归零，用是可以用的）

kill99 · 发表于 2005-1-27 15:14:36

谢谢斑竹，已经可以用了

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

[LISP程序]：请重新下载修正后的曲线测量程序！

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

相关帖子