[求助]如何得到多义线的点

runkeji · 发表于 2003-9-17 16:22:00

你好：

请教如何提取多义线的多个点的坐标，方便求得点点之间的距离。
矩形的长宽的数据提取。

aaddff · 发表于 2003-9-17 16:32:00

用entget得到数据列表，提取(cdr (assoc 10 xxx))即为各点的坐标，有相关文章,自己找一下

runkeji · 发表于 2003-9-17 16:57:00

我知道了，可是提取的只是矩形的第一个点，后面的点怎样确定第二点的坐标呀。
表的处理问题

meflying · 发表于 2003-9-17 17:01:00

用member用vl-remove将已经取出的点去掉

tukuitk · 发表于 2003-11-1 14:34:00

如下，能解决吗？
(defun c:plpt (/ ent entlist ptList)
  (vl-load-com)
  (setq ent (car (entsel)))
  (setq entlist (entget ent))
  (while (assoc 10 entlist)
(setq ptList (append ptList (list (cdr (assoc 10 entlist)))))
(setq entlist (vl-remove (assoc 10 entlist) entlist))
  )
  ptList
)

BDYCAD · 发表于 2003-11-1 15:57:00

to TUKUITK 你這個程序好好呀. 比我的好.

tukuitk · 发表于 2003-11-1 17:07:00

彼此彼此，大家共同进步！

龙龙仔 · 发表于 2003-11-3 08:04:00

;;T. Tanzillo
(defun VLISP-REMOVE-IF-NOT (KEY LST)
  (mapcar 'cdr
   (vl-remove-if-not
      '(lambda (E) (eq (car E) KEY))
      LST
   )
  )
)

SWAYWOOD · 发表于 2004-11-28 11:14:00

得到的点是OCS中的怎么将它变为世界坐标

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