[求助]如何判断一个点是否在一个点集里面？

lei6699

我用(if (member pt1 ptlist)(princ ""))怎么不可以的？怎样才能判断呢？

meflying

完全可以

lei6699

但是下面这句话，却被认为是语法错误，
(setq pt1 (getpoint))
(if (pt1)) 然后我换成（if （not （pt1）））还是不行啊

无痕

(if pt1 ....)

alin

这样一来没问题 (setq pt1 (getpoint))
(if pt1 (princ)) 至于(member pt1 ptlist),可能这里的pt1是经过其它的方式得到,也许是精度问题,并不能得到正确的结果.可以用vl-princ-to-string把它们都转化成字符串再比较

lei6699

(PrinC "\nX方向是否有约束?(没有直接回车!)")
(InitGet 7 "Yes No")
(setq key (GetKWord "[Yes/No]<No>: "))
(if (= key "Yes")
(setq z1 (list 1)
v (getreal "\输入X方向预定位移单位cm)")
z2 (list v)
)
(setq z1 (list 0))
z2 (list 0))
)
) 麻烦斑竹帮我看看，为什么说 “错误: 参数太多: ”

秋枫

你的括号不匹配。右括号多两个。

无痕

没啊，括号多了，你是不是没贴完？

wyj_007

(setq z1 (list 0))后怎么还跟 z2 (list 0))这句话，这样的话，对IF语句参数是太多了，我想应为(setq z1 (list 0) z2 (list 0)) 总而言之，好象setq语句结束了但后面还拖类似setq的定义，括号是多了。 编程时文本格式应尽量格式化，这样可读性好，查错更容易。全文应为： (PrinC "\nX方向是否有约束?(没有直接回车!)")
(InitGet 7 "Yes No")
(setq key (GetKWord "[Yes/No]<No>: "))
(if (= key "Yes")
(setq z1 (list 1)
v (getreal "\输入X方向预定位移单位cm)")
z2 (list v)
)
(setq z1 (list 0)；这儿多了一个括号。
z2 (list 0))
)
)

[glow=255,red,2]文字

Ea

4. 
   
5. (defun ptisIN (pt pts)
7. 
   
8.         (member 'T (mapcar '(lambda (x) (equal x pt 1e-5)) pts))
10. 
    
11. )

<br /> (defun ptisIN (pt pts) <br />         (member 'T (mapcar '(lambda (x) (equal x pt 1e-5)) pts)) <br /> )