[求助]：MENBER函数应用

knight928 · 发表于 2006-5-28 23:32:30

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

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

×

命令: !yuan-xin-all
((135.742 42.9189 0.0) (218.064 -13.5589 0.0) (277.314 29.3284 0.0) (272.313
84.2349 0.0) (167.522 94.2029 0.0) . "")

命令: !pt
(167.988 93.7111)

(member pt yuan-xin-all);;;这个有问题怎么改？？？？

雨箭风刀 · 发表于 2006-5-29 02:03:42

你连问题都没说清楚。。。

knight928 · 发表于 2006-5-29 02:49:40

(member pt yuan-xin-all);;;MEMBER这个函数怎么用的？在这里判断PT在表yuan-xin-all中是不时存在的？

Underway · 发表于 2006-5-29 08:17:46

(member pt yuan-xin-all) 语法如是
1. pt 先转 ==> (x y z) 格式
2. 要考量精度的问题

eachy · 发表于 2006-5-29 08:52:35

先到这里每个帖子都看一看

http://www.xdcad.net/forum/showthread.php?s=&threadid=451885

knight928 · 发表于 2006-5-29 13:19:52

(member pt yuan-xin-all) 语法如是
1. pt 先转 ==> (x y z) 格式
2. 要考量精度的问题
我把PT转成了(167.988 93.7111 0.00) 但还是不行，什么是精度问题？这个不懂，能说明怎么改嘛？

我看了关于精度的函数下面怎么用？这个函数也有问题！！！无法运行！
(defun LI_memb (ele Lst diff / len cnt Found)
  (if (zerop Diff)
(progn
   (setq Found (member ele Lst))
   (if Found
(setq Found T)
   )
)
(progn
   (setq
len (length Lst)
cnt 0
Found nil
   )
   (while (and (< cnt len) (not Found))
(if (equal ele (nth cnt Lst) diff)
   (setq Found T)
   (setq cnt (1+ cnt))
)
   )
)
  )
  (if Found
cnt
nil
  )
)

xyp1964 · 发表于 2006-5-29 13:52:32

[FONT=courier new](setq yuan-xin-all
'((135.742 42.9189 0.0)
(218.064 -13.5589 0.0)
(277.314 29.3284 0.0)
(272.313
84.2349
0.0
)
(167.522 94.2029 0.0)
""
)
)
(setq pt '(167.988 93.7111))
(member pt yuan-xin-all)[/FONT]

ll_j · 发表于 2006-5-29 14:32:50

本主题问题出在表 yuan-xin-all 中的点（.），函数逐条检索时，当检索至表 '(. "") 时是无效表，所以出错。如：
命令: (member '(1 2 3) '((1 2 3) (2 3 4) . "6"))
((1 2 3) (2 3 4) . "6")

命令: (member '(2 3 4) '((1 2 3) (2 3 4) . "6"))
((2 3 4) . "6")

命令: (member '(2 3 5) '((1 2 3) (2 3 4) . "6"))
error:参数类型错误: consp "6"

命令: (member 6 '((1 2 3) (2 3 4) . "6"))
error:参数类型错误: consp "6"

命令: (member 6 '((1 2 3) (2 3 4) "6"))
nil

命令: (member "6" '((1 2 3) (2 3 4) "6"))
("6")

命令: (member . '((1 2 3) (2 3 4) . "6"))
error:参数类型错误: consp "6"

knight928 · 发表于 2006-5-30 00:21:45

高手  一语中之  就是点的问题  现在函数可以了但还有疑问  再帮忙看看：：
(Defun c:CkJ()
  (Setvar "Cmdecho" 0)
  (setq  yuan-xin-all '() jie '())
(Setq ssyuan (ssget "x" '((8 . "XZD")(0 . "Circle"))))
   (setq ssyuanl (sslength ssyuan))
   (setq l 0)
   (repeat ssyuanl;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;过滤界址圆
      (setq eny (ssname ssyuan l))
      (setq enydata (entget eny))
      (setq yuan (cdr (assoc 10 enydata)))
      ;(setq yuanj(cdr (assoc 5 enydata)))
         (setq yuan-xin-all (cons yuan yuan-xin-all))
      (setq l (1+ l))
      )
  (Setq Sslabel (Ssget "X" '((0 . "Polyline")(8 . "LAL"))))
  (Setq Ssn (Sslength Sslabel))
  (Setq M 0 )
  (Repeat Ssn          ;1顶点坐标
(Setq En (Ssname Sslabel M))
   (Setq Obj (Vlax-Ename->Vla-Object En))
(Setq Vtx (Vla-Get-Coordinates Obj))
(Setq Vtxlst (Vlax-Safearray->List (Vlax-Variant-Value Vtx)))
      (Setq PointL (/ (Length Vtxlst) 3))
      (Setq N 0 )
(Repeat PointL          ;11

   (Setq Pt (List (Nth N Vtxlst) (Nth (+ N 1) Vtxlst) (Nth (+ N 2) Vtxlst)))
   (setq jie (member pt yuan-xin-all))
   (if (NULL jie)
      (Princ (Strcat "\n:>>无属性Point......参考坐标："(Rtos (Nth 0 pt))","(Rtos (Nth 1 pt))))
   )
   (Setq N (+ N 3))
   );11
(Setq M (1+ M))
      )
)
在上面的程序中是检查((0 . "Polyline")(8 . "LAL"))的每一顶点对应一圆的，在POLINE线较少的情况下是正确的，但线多了  就出错在(if (NULL jie)
      (Princ (Strcat "\n:>>无属性Point......参考坐标："(Rtos (Nth 0 pt))","(Rtos (Nth 1 pt))))
   ) 不准了，有时候有圆也会输出，不知道何原因！！期待

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

[求助] [求助]：MENBER函数应用

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

相关帖子