[求助]：如何写一段程序求出一段折线各段的长度并标出于图中？

pandoit · 发表于 2004-11-26 17:28:59

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

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

×

如何写一段程序求出一段折线各段的长度并标出于图中？

ll_j · 发表于 2004-11-27 08:03:27

你可以使用标注试试，将尺寸线及尺寸界线隐藏，只剩标注文件即可。

lsjjm · 发表于 2004-11-27 12:43:43

你这里的"折线"是多义线吧?
以前曾写了一个返回多义线各子段长度表的程序, 将表依次写出来就行了吧?

自由的鱼 · 发表于 2004-11-27 13:46:06

我都是按注记距离的方式一个点一个点的捕捉来注记的，不知道你要的注记格式是怎样的？

pandoit · 发表于 2004-11-29 08:56:31

2楼所述的方式我用过，所要的效果也基本就是那样的样子，不过要一段段选取，如果折线比较多会比较麻烦，我们编程不就是想更更方便吗）
3楼楼主说： 9pt 10pt 11pt 12pt 13pt 15pt

你这里的"折线"是多义线吧?
以前曾写了一个返回多义线各子段长度表的程序, 将表依次写出来就行了吧?

没错，这里的"折线"是多义线，你的方法好像可行，能把代码公示一下或者给个主要思路吗？

4楼所说段方法没有用过，你的注记是自己写的程序还是本来就有的软件，能详细说说看吗？

lsjjm · 发表于 2004-11-29 10:51:47

最初由 pandoit 发布
[B]3楼楼主说：你这里的"折线"是多义线吧?...没错，这里的"折线"是多义线，你的方法好像可行，能把代码公示一下或者给个主要思路吗？ [/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]

自由的鱼 · 发表于 2004-11-29 18:13:40

是自己写程序的，按照规范的要求！

winabcd · 发表于 2004-12-3 10:23:20

我试了6楼的程序，出现下列问题，请指教，
Select Polyline:; 错误: no function definition: VLAX-CURVE-GETDISTATPARAM

xyz2004 · 发表于 2004-12-3 11:05:23

加入 (vl-load-com)

lsjjm · 发表于 2004-12-3 15:05:03

9楼: 2000+的版本不必用(vl-load-com) , VLAX_CURVE类函数照样可以执行.
8楼: 你使用的是什么版本?

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

[求助] [求助]：如何写一段程序求出一段折线各段的长度并标出于图中？

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

相关帖子

浏览过的版块