[求助]在LISP中，怎样编程求所有线的交点，并且输出到一个文本文件中。

meflying

slljs

meflying

龙龙仔

;;求所有线的交点
(defun C:TT (/ SS M E1 N E2 PTS PL PT1)
  (vl-load-com)
  (setq        SS (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
        M  0
  )
  (while (< M (1- (sslength SS)))
    (setq E1 (vlax-ename->vla-object (ssname SS M))
          N  (1+ M)
    )
    (while (< N (sslength SS))
      (setq E2        (vlax-ename->vla-object (ssname SS N))
            PTS        (vlax-variant-value (vla-intersectwith E1 E2 0))
      )
      (if (> (vlax-safearray-get-u-bound PTS 1) 0)
        (progn
          (setq PTS (vlax-safearray->list PTS))
          (while (> (length PTS) 0)
            (setq PT1 (list (car PTS) (cadr PTS) (caddr PTS)))
            (if        (not (member PT1 PL))
              (setq PL (cons PT1 PL))
              (setq PTS (cdddr PTS))
            )
          )
        )
      )
      (setq N (1+ N))
    )
    (setq M (1+ M))
  )
  PL
)

slljs

yxh1202

meflying 发表于 2003-6-11 17:16

你好，看了你的文章。我遇到的问题是，需要找出图层A和图层B的交点坐标列表，请不吝赐教

yxh1202

龙龙仔 发表于 2003-6-12 08:08
;;求所有线的交点
(defun C:TT (/ SS M E1 N E2 PTS PL PT1)
  (vl-load-com)

请问能设置精度吗，比如设置为小数点后3位