[LISP函数]：取封闭复线内一点!!不用面区判断法!

舟自横

(defun hy_polyinp(poly / poly1 p1 p2 anglep1 anglep2 line dist1 needpoint
                         pointlist basedis nedis shpoint yourpoint)
  (setvar "osmode" 0)
  (setq poly1 (vlax-ename->vla-object poly))
  (vla-getboundingbox poly1 'p1 'p2)
  (setq p1 (vlax-safearray->list p1)
        p2 (vlax-safearray->list p2)
        anglep1 (angle p1 p2)
        anglep2 (angle p2 p1)
        p1 (polar p1 anglep2 5)
        p2 (polar p2 anglep1 5))
  (command "undo" "be")
  (command "line" p1 p2 "")(setq line (entlast))
  (command "trim" poly "" (list line p1) "")
  (setq line (entlast))
  (setq dist1 (vla-get-length (vlax-ename->vla-object line)))
  (setq needpoint (polar p2 anglep2 dist1))
  (foreach item (hy_interpoint line poly)
    (if (equal needpoint item 0.00001)
      (setq pointlist(vl-remove item (hy_interpoint line poly)))
      )
    )
  (setq basedis (distance needpoint (nth 0 pointlist)))
  (foreach item pointlist
    (if (<= (setq nedis (distance needpoint item)) basedis)
        (progn (setq basedis nedis)
               (setq shpoint item))
      )
    )
  (setq yourpoint (list (/ (+ (car needpoint) (car shpoint)) 2)
                        (/ (+ (cadr needpoint) (cadr shpoint)) 2)
                        0)
        )
  (vla-delete (vlax-ename->vla-object line))
  (command "undo" "e")
  yourpoint
  )

(defun hy_interpoint(object1 object2 / jdtb);;返回兩圖元交點
(vl-load-com)
(setq jdtb (vla-intersectwith (vlax-ename->vla-object object1) (vlax-ename->vla-object object2) acExtendnone))
(setq jdtb (vlax-safearray->list (vlax-variant-value jdtb)))
(hy_ocom jdtb 3)
)
(defun hy_ocom(totlist num / needlist shuldlist numer stay);;處理數據列表分組每一組為NUM個,余項也為組
                                                           ;;FOR EXCAMPLE: (hy_ocom '(-64.4309 100.541 0.0 -106.992 144.345 0.0 1 2) 3)
                                                        ;;return : ((-106.992 144.345 0.0) (-64.4309 100.541 0.0) (1 2))
  (setq needlist totlist)
  (setq shuldlist nil)
  (if (> (length totlist) num)
    (progn
    (setq stay (rem (length totlist) num))
    (setq numer (/ (- (length totlist) stay) num))
    (repeat numer
      (setq shuldlist (cons (hy_ijlist needlist 0 num) shuldlist))
      (setq needlist (hy_ijlist needlist (- num 1) nil))
    )
    (setq shuldlist (reverse shuldlist))
    (if (/= stay 0) (setq remlist (reverse(hy_ijlist (reverse totlist) 0 stay))
                          shuldlist (append shuldlist (list remlist))))
    shuldlist
    )
    nil)
  )
抛砖引玉,,,,希望大家一起交流!!!!

狂刀

大致扫了一眼,没有测试
对用box取点的方式有个疑问,如果封闭曲线是个三角形,其中有一长边两个端点和box求出的点重合呢?这种情况下程序还可行么?

舟自横

狂刀兄说的没错,是有这么一个BUG
后来考虑了一下,只有一种情况会发生
那就是当NEEDPOINT为BOX的最低点
并且通过该点的一边与BOX的连线重
合...后经过考虑给程序加了一个小小
的"补钉"排除上述可能性就好啦,思路
是这样的:
   1...判断NEEDPONT是否是复线的一个顶点
2...如果是取得其前后两点与他的夹角
3...如果其中有一个夹角与BOX角线一致
4...让复线转过一个小角度重新计算一次后再让求得点和复线一起反转过来就好拉

狂刀

4...让复线转过一个小角度重新计算一次后再让求得点和复线一起反转过来就好拉

取box的另外两个点不更好么?

舟自横

不行的,考虑过,有一种可能就是,另外两个点
也有与他重合的顶点情况,可以想一下,象一个
五角星那种形状,我是指空心的五角心,总可以将
BOX的四个顶点都重合的....

啵浪鼓

这段程序太深,看不是很懂