世井 发表于 2022-5-29 14:18:02

大师帮忙看看，交点有错误是什么原因

选择对象: ; 错误: DXF 组不正确: (10 (336.443 54.0192))

(defun c:tt ( / a)
(setq a (TwoEntsInters (car(entsel)) (car(entsel)) 0))
(entmake (list '(0 . "CIRCLE") (cons 10 a) (cons 40 5)))
(princ))

(defun TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
(setq obj1 (vlax-ename->vla-object e1))
(setq obj2 (vlax-ename->vla-object e2))
(setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
(while pts
    (setq ptl (cons (list (car pts) (cadr pts)) ptl))
    (setq pts (cdddr pts))
)
ptl
)

yoyoho 发表于 2022-5-29 14:38:10

(defun c:tt ( / a)
(setq a (CAR (TwoEntsInters (car(entsel)) (car(entsel)) 0)))
(entmake (list '(0 . "CIRCLE") (cons 10 a) (cons 40 5)))
(princ))

(defun TwoEntsInters (e1 e2 Flag / OBJ1 OBJ2 PTL PTS)
(setq obj1 (vlax-ename->vla-object e1))
(setq obj2 (vlax-ename->vla-object e2))
(setq pts (vlax-invoke obj1 'Intersectwith obj2 Flag))
(while pts
    (setq ptl (cons (list (car pts) (cadr pts)) ptl))
    (setq pts (cdddr pts))
)
ptl
)
页: [1]
查看完整版本: 大师帮忙看看，交点有错误是什么原因