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

lei6699 · 发表于 2004-3-28 10:30:00

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

meflying · 发表于 2004-3-28 10:45:00

完全可以

lei6699 · 发表于 2004-3-28 12:38:00

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

无痕 · 发表于 2004-3-28 13:12:00

(if pt1 ....)

alin · 发表于 2004-3-28 13:21:00

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

lei6699 · 发表于 2004-3-28 14:19:00

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

秋枫 · 发表于 2004-3-28 15:39:00

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

无痕 · 发表于 2004-3-28 15:46:00

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

wyj_007 · 发表于 2004-3-28 19:36:00

(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]: "))
   (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]文字

lei6699 · 发表于 2004-3-29 11:43:00

copy


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

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

发表回复

精选推荐

浏览过的版块