[求助]：关于Pline线长度

小狼 · 发表于 2004-3-1 17:24:17

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

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

×

请问下高手，有什么方法可以快速得到Pline长度，有什么函数吗？

lsjjm · 发表于 2004-3-1 18:33:29

命令行：list
程序：
(defun curvelength (ent)
  (setq obj (vlax-ename->vla-object ent))
  (setq len (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj)))
  len
)

自由的鱼 · 发表于 2004-3-1 21:30:50

list命令是最快捷的方法！

hancebueg · 发表于 2004-3-3 22:23:54

是啊!list求面积也一样方便快界!

qkui · 发表于 2004-3-4 17:08:21

我想知道的是二次开发该从何学起？谢谢

iwater · 发表于 2004-3-6 10:39:30

list 能够查询多个线段长度，但是如何能得到总长度？
只能通过程序解决吗？

JOSDENNIS · 发表于 2004-3-7 08:37:03

是的, 一般用LISP編個小程序可以實現.

lsjjm · 发表于 2004-3-12 07:44:56

最初由 iwater 发布
[B]list 能够查询多个线段长度，但是如何能得到总长度？
只能通过程序解决吗？ [/B]

1.手动: list后相加;
2.程序:(直线, 多义线)
(defun c:test ()
  (vl-load-com)
  (setq ss (ssget '((0 . "*LINE"))))
  (setq n 0 sum 0)
  (while (< n (sslength ss))
(setq obj (vlax-ename->vla-object (ssname ss n)))
(setq sum (+ sum (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))))
(setq n (1+ n))
  )
  sum
)

eachy · 发表于 2004-3-12 07:52:27

对多段线还可以利用area命令，分别提取

PERIMETER 系统变量
（只读）
类型：实数
不被保存
存储由 AREA、 DBLIST 或 LIST 命令计算的最后一个周长值。
注意 LIST 命令不更新圆的计算周长。

复制代码

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

[求助]：关于Pline线长度

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

相关帖子

浏览过的版块