众多PL与指定PL相交的交点坐标如何求[求助]

alin

No need to add c:
Usage:

(test (car (entsel)) (car (entsel)))

hothua

是说快速执行的算法吗?那用AL\VL都很难搞定,如果不是的,那其实很简单,不就是读取线条的坐标,逐一求交就可以了吗,要用VL干啥呢,图简单?

matichen

(defun TEST (/ IPTS PTS)
  (setq IPTS (vla-intersectwith
       (vlax-ename->vla-object (car (entsel)))
       (vlax-ename->vla-object (car (entsel)))
       acExtendBoth
     )
IPTS (vlax-variant-value IPTS)
  )
  (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)
     )
   )
    )
  )
  PTS
)

(defun c:j()
  (princ (test (car (entsel)) (car (entsel))))
)



＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
错误: 参数太多
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

alin

(defun TEST (/ IPTS PTS)
  (setq IPTS (vla-intersectwith
       (vlax-ename->vla-object (car (entsel)))
       (vlax-ename->vla-object (car (entsel)))
       acExtendBoth
     )
IPTS (vlax-variant-value IPTS)
  )
  (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)
     )
   )
    )
  )
  PTS
)

(defun c:j()
  (princ (test))
  (princ)
)

龙龙仔

matichen