[求助]一次选择得到多条曲线的交点坐标[OK]

caoyin

;; 求选择集中图元的所有交点

;;[作者] Bill Kramer

(defun getInters (ss / n1 ssl aobj1 n2 aobj2 ipts pts)
  (setq n1 0 ssl (sslength ss))
  (while (< n1 (1- ssl))
    (setq aobj1 (vlax-ename->vla-object (ssname ss n1))
          n2    (1+ n1)
    )
    (while (< n2 ssl)
      (setq aobj2 (vlax-ename->vla-object (ssname ss n2))
            ipts  (vlax-variant-value (vla-intersectwith aobj1 aobj2 0))
      )
      (if (> (vlax-safearray-get-u-bound ipts 1) 0)
        (progn
          (setq ipts (vlax-safearray->list ipts))
          (while (> (length ipts) 0)
            (setq pts  (cons (list (car ipts) (cadr ipts) (caddr ipts)) pts)
                  ipts (cdddr ipts)
            )
          )
        )
      )
      (setq n2 (1+ n2))
    )
    (setq n1 (1+ n1))
  )
  pts
)

carrot1983

谢谢caoyin

还是vla函数都不懂。。。

什么#<safearray...>， #<variant。。。>都没搞懂之间是什么关系。。。嘿嘿。。。

结贴。。。再次谢谢楼上的高手们

carrot1983

bbb交点导入Excel.VLX

现在程序拿上来给有需要的人。。。

zml84

没有必要针对不同类型进行不同的计算。
使用 vla-intersectwith 即可。

carrot1983

zml84发表于2007-12-12 15:40:00没有必要针对不同类型进行不同的计算。使用 vla-intersectwith 即可。

确实是没必要对不同类型进行不同的计算。

所以caoyin给的最后的代码，是我最想要的。。。

nonsmall

之前写的时候大家说过这个问题

我说了是做练习时写的嘛

仅供娱乐

^o^