[求助]：选择集里怎样判别多义线

真龙天子 · 发表于 2005-11-13 17:51:31

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

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

×

一个选择集ss里有若干个圆、若干条多义线，还有若干个其他图元，怎样判别第n个图元是多义线？

yuer0103 · 发表于 2005-11-13 17:56:30

循环取每个实体的实体类型，即(cdr (assoc 0 (entget ent))) 当返回值为"POLYLINE" 或"LWPOLYLINE" 时，此实体即为多义线！

真龙天子 · 发表于 2005-11-13 18:36:16

(setq en (ssname s1 1))
(setq en_data (entget en))
(setq tvmb (nth 1 en_data))
(setq tvm (cdr (assoc 0 (entget tvmb))))
(if (= tvm "LWPOLYLINE") (setq m (+ m 1)) ;;判别图元是否多义线
已知选择集s1里第0个图元是一个圆，第1个图元是条多义线，程序运行到(setq tvm (cdr (assoc 0 (entget tvmb))))时因错误而终止,并提示:“错误 : 参数类型错误: lentityp (0 . "LWPOLYLINE")”，经查询得知tvmb=(0 . "LWPOLYLINE") , tvm=nil,说明问题出在(setq tvm (cdr (assoc 0 (entget tvmb)))),请问该怎样改才能正确判别是否多义线?

xyp1964 · 发表于 2005-11-13 20:27:30

[FONT=courier new](defun num (ss)
(setq i -1)
(while (or (/= etype "POLYLINE")
(/= etype "LWPOLYLINE")
)
(setq s1 (ssname ss (setq i (1+ i)))
etype (cdr (assoc 0 (entget s1)))
)
)
(princ (1+ i))
)[/FONT]

glyxmj · 发表于 2005-11-13 23:02:07

最初由 xyp1964 发布
[B][CODE](defun num (ss)
  (setq i -1)
  (while (or (/= etype "POLYLINE")
      (/= etype "LWPOLYLINE")
   )
(setq s1 (ssname ss (setq i (1+ i)))
   etype (cdr (assoc (entget s... [/B]

其中(assoc(entget s1))是否应是----(assoc 0 (entget s1))

狂刀 · 发表于 2005-11-14 13:21:23

判别很容易，但是你判别了之后用来做什么？可能有更简便的方法达到你的效果呢？

真龙天子 · 发表于 2005-11-15 10:35:54

判别后只求取选择集里多义线的交点坐标

eachy · 发表于 2005-11-15 12:18:11

为什么不直接过滤选择多义线呢？
(wcmatch (cdr (assoc 0 el)) "*POLYLINE")

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

[求助] [求助]：选择集里怎样判别多义线

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

相关帖子