[编程申请]：如何获取同一图层中所有的多义线（或者直线）的起点坐标？

jx2008 · 发表于 2006-12-15 12:29:56

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

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

×

各位斑竹、高手：

如何获取同一图层中所有的多义线（或者直线）的起点坐标？
求大家给编个函数或者程序，谢谢！

kohi · 发表于 2006-12-16 03:03:09

下面程序返回图层名为"spacer" 的所有多义线的起始点坐标：
[php]
(defun c:test (/ pl)
  (setq pp (ssget "x" '((0 . "*polyline")(8 . "spacer"))))
  (setq n 0)
  (while (< n (sslength pp))
(setq pl (append pl (list (vlax-curve-getStartpoint (ssname pp n)))))
(setq n (1+ n))
  )
  pl
)
[/php]

jx2008 · 发表于 2006-12-18 08:01:26

多谢kohi兄弟，测试了一下，可以求出所在曾的多义线的起点坐标，在此感谢！就是有一点不明白阿，程序中pl单独一行，是怎么回事啊？而不是(princ pl)
？

改成vla-get-StartPoint函数怎么不行了？ kohi 帮看看阿

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

[编程申请]：如何获取同一图层中所有的多义线（或者直线）的起点坐标？

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

相关帖子

浏览过的版块