meflying程序，测试提示参数类型错误: 二维/三维点:

mycad

• ;函数:GetInterPOint
  
• ;功能:返回两个对象的所有交点
  
• ;参数:  ent1、ent2  均为ename对象
  
  
  ;原帖：http://bbs.mjtd.com/forum.php?mo ... amp;page=1#pid49582
  ;请高手帮忙看看是怎么回事，谢谢！！
  
  
  
• (vl-load-com)
  
• (defun GetInterPoint (ent1 ent2 / ax_ent_1 ax_ent_2 intpoints points i)
  
•    (setq ax_ent_1 (vlax-ename->vla-object ent1)
  
•                ax_ent_2 (vlax-ename->vla-object ent2)
  
•    )
  
•    (setq intpoints (vla-intersectwith ax_ent_1 ax_ent_2 acextendnone))
  
•    (setq intpoints (vlax-variant-value intpoints))
  
•    (setq i 0)
  
•    (if (> (vlax-safearray-get-u-bound intpoints 1) 0)
  
•        (repeat (/ (+ 1
  
•                            (- (vlax-safearray-get-u-bound intpoints 1)
  
•                                  (vlax-safearray-get-l-bound intpoints 1)
  
•                            )
  
•                      )
  
•                      3
  
•                )
  
•            (setq points (append points (list (list
  
•                (vlax-safearray-get-element intpoints i)
  
•                (vlax-safearray-get-element intpoints (+ i 1))
  
•                (vlax-safearray-get-element intpoints (+ i 2))
  
•            )))
  
•            )
  
•            (setq i (+ 3 i))
  
•        )
  
•    )
  
•    points
  
• )(defun err(msg)
  
•    (princ msg)
  
•    (setvar "osmode" os)
  
•    (setvar "cmdecho" cmd)
  
•    (setq *error* errtmp)
  
•    (command "_.undo" "e")
  
•    (princ)
  
• )(defun c:test( / ent1 ent2 pts param11 param12 param1 i pt1 pt2)   
  
•    (setq os (getvar "osmode"))
  
•    (setq cmd (getvar "cmdecho"))
  
•    (command "_.undo" "be")
  
•    (setvar "osmode" 0)
  
•    (setvar "cmdecho" 0)
  
•    (setq errtmp *error*)
  
•    (setq *error* err)
  
•    (setq ent1 (car (entsel "\nSelect the first line...")))
  
•    (setq ent2 (car (entsel "\nSelect the second line...")))
  
•    (setq n 10)
  
•    (setq pts (GetInterpoint ent1 ent2))
  
•    (setq param11 (vlax-curve-getParamAtPoint ent2 (car pts)))
  
•    (setq param12 (vlax-curve-getParamAtPoint ent2 (cadr pts)))
  
•    (setq i 1)
  
•    (setq param1 (/ (- param12 param11) n))
  
•    (repeat (1- n)
  
•        (setq pt2 (vlax-curve-getPointAtParam ent2 (+ param11 (* param1 i))))
  
•        (setq pt1 (vlax-curve-getClosestPointTo ent1 pt2))
  
•        (if (= (* (/ i 2) 2) i)
  
•            (setq pt2 (list (/ (+ (car pt1) (car pt2)) 2.0)
  
•                (/ (+ (cadr pt1) (cadr pt2)) 2.0)
  
•                (/ (+ (last pt1) (last pt2)) 2.0)
  
•                ))
  
•        )
  
•        (command "_.line" pt1 pt2 "")
  
•        (setq i (1+ i))
  
•    )
  
•    (setvar "osmode" os)
  
•    (setvar "cmdecho" cmd)
  
•    (setq *error* errtmp)
  
•    (command "_.undo" "e")
  
•    (princ)
  
• )
  
  
  
  
  
  
  
  

004

通用函数 获取两个线条对象交点.lsp
http://zml84.blog.sohu.com/102716208.html

newbuser

等待作者meflying给出详尽解释。。。