[求助]member函数bug！！！

x_s_s_1

很少写程序，写的比较长，也请各位大侠看看怎么优化代码，提点意见，谢谢。

cad2004，测试图形中Z2部位用白线框的两个柱子“子函数n_tb”中ee返回nil

输入

(setq newlt3 '((800.0 240.0 240.0 600.0 240.0 600.0 320.0 240.0) (240.0 800.0 240.0 240.0 600.0 240.0 600.0 320.0) (320.0 240.0 800.0 240.0 240.0 600.0 240.0 600.0) (600.0 320.0 240.0 800.0 240.0 240.0 600.0 240.0) (240.0 600.0 320.0 240.0 800.0 240.0 240.0 600.0) (600.0 240.0 600.0 320.0 240.0 800.0 240.0 240.0) (240.0 600.0 240.0 600.0 320.0 240.0 800.0 240.0) (240.0 240.0 600.0 240.0 600.0 320.0 240.0 800.0)))
(setq newlt2 '(800.0 240.0 240.0 600.0 240.0 600.0 320.0 240.0))
(setq ee (member newlt2 newlt3))

返回t

明明是一样的表，为何返回值不同呢？

Andyhon

返回t  !?

 

Command: (member newlt2 newlt3)
((800.0 240.0 240.0 600.0 240.0 600.0 320.0 240.0) (240.0 800.0 240.0 240.0
600.0 240.0 600.0 320.0) (320.0 240.0 800.0 240.0 240.0 600.0 240.0 600.0)
(600.0 320.0 240.0 800.0 240.0 240.0 600.0 240.0) (240.0 600.0 320.0 240.0
800.0 240.0 240.0 600.0) (600.0 240.0 600.0 320.0 240.0 800.0 240.0 240.0)
(240.0 600.0 240.0 600.0 320.0 240.0 800.0 240.0) (240.0 240.0 600.0 240.0
600.0 320.0 240.0 800.0))

 

;;<== CAD 2004

 

x_s_s_1

所谓t即非nil呵呵

x_s_s_1

还是没有找到问题所在，只有厚颜顶起了

lsjj

精度問題

處理座標點問題,建議取有效位數再比對

x_s_s_1

谢谢，，图形是mirror的，应该不存在精度问题，我在程序中加入如下代码

(defun $xdlsp_points_member (pt pts tol / i tf)
  (setq i 0
 tf t
  )
  (while (and
    tf
    (car pts)
  )
    (if (equal pt (car pts1) tol)
      (setq tf nil)
      (setq i (1+ i)
     pts (cdr pts)
      )
    )
  )
  pts
)

又出现 DXF 组不正确: (10 nil nil 0)

lsjj

我說的精度是

(setq pts (list (atof (rtos (car pts) 2 2))) (atof  (rtos (cadr pts) 2 2))))

或許您會覺得多此一舉,試試何妨

x_s_s_1

谢谢，但我将其改为（rtos number 2 6）都不行，应该不是精度问题，表newlt3是表newlt6的第一个子表循环组成的，表newlt2是表newlt6的第i个子表，程序执行时认为newlt2不属于newlt3，但单独提取出来的newlt2确实属于newlt3，经反复测试，对于表中含4个元素及6个元素都可以，但8个元素就有问题，具体在测试图中体现的比较清除。

x_s_s_1

测试晕了，还是没有找到问题所在，只有厚颜顶起了

danxingpen

不明白楼主要说的到底是什么问题？