[编程申请]：求多条多义线各顶点之间的长度，并将结果按查询次序输出至EXCEL。紧急，

bluesky1000 · 发表于 2004-11-23 09:03:53

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

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

×

我找了半天这样的程序，都没有。
恳请斑竹帮忙编这样一个程序，求出多条所选的多义线的各个顶点间的长度并按所选的PL线的顺序输出至EXCEL中。

xyp1964 · 发表于 2004-11-23 13:50:49

发个示意图看看。
100条line线，顶点之间的长度有多少个，太多了！

bluesky1000 · 发表于 2004-11-23 14:37:23

CAD例图和XLS文件见附件。
XLS文件中的A1、A2等等可不用列在XLS文件中，但用空格来分割各点之间的距离。

bluesky1000 · 发表于 2004-11-23 14:38:15

XLS文件。

lsjjm · 发表于 2004-11-24 06:14:33

最初由 bluesky1000 发布
[B]我找了半天这样的程序，都没有。恳请斑竹帮忙编这样一个程序，求出多条所选的多义线的各个顶点间的长度...[/B]

下面的程序返回多义线各个顶点间的长度表:
[php]
(defun c:test (/ ll)
  (setq a (car (entsel "\nSelect Polyline:")))
  (setq num (cdr (assoc 90 (entget a))) n 1)
  (while (< n num)
(setq l (- (vlax-curve-getDistAtParam a n)
            (vlax-curve-getDistAtParam a (1- n))))
(setq ll (append ll (list l)))
(setq n (1+ n))
  )
  ll
)

[/php]

bluesky1000 · 发表于 2004-11-24 08:07:41

多谢长老，不过能否把查询结果如下图输出至指定的XLS表中呢？
一条PL线数据占据一行，依次类推。
A1，A2可以不用输出至表格中，用空格代替就行了。
再次多谢长老，也有请各位高手帮忙解决这个问题，工作中迫切需要。

lsjjm · 发表于 2004-11-24 10:45:18

CAD数据输入到Excel，可以利用VLISP 或VBA请搜索参考论坛有关帖子。

bluesky1000 · 发表于 2004-11-24 11:23:03

我的水平很差的，对VLISP基本是一窍不通，长老，能否请你帮忙编一个，再次表示感谢。

li809 · 发表于 2005-2-22 20:53:46

谢谢,计算工程量的时候很有用的

zhlouv · 发表于 2009-3-29 22:54:25

差了一点现金，该怎么banner？

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

[编程申请]：求多条多义线各顶点之间的长度，并将结果按查询次序输出至EXCEL。紧急，

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

相关帖子

Re: [编程申请]：求多条多义线各顶点之间的长度，并将结果按查询次序输出至EXCEL。紧急，多谢了！