来自自贡黄明儒老师的自定义函数

852456

  自贡黄明儒老师的两个自定义函数  这个函数对二位多线段不好使  。请大神帮忙修改一下  对二位多线段的处理
;;164.18 [功能] 多段线所点击子段的两端点列表
;;示例(HH:PickSegEndPt (car(setq en(entsel))) (cadr en))
(defun HH:PickSegEndPt (obj p / pp n)
  (setq  pp (vlax-curve-getclosestpointto obj (trans p 1 0))
  n  (fix (vlax-curve-getparamatpoint obj pp))
  )

  (setq ll (length (vxs obj)));;避免最后一个点出创，加个判断(多这一句)

  (list
    (vlax-curve-getPointAtParam obj n)
    (if  (> (+ n 1) (- ll 1))
      (vlax-curve-getPointAtParam obj 1);;避免最后一个点出创，加个判断(多这一句)
      (vlax-curve-getPointAtParam obj (1+ n))
    )
  )
)

lifuq1979

你语文老师退休了没？

852456

lifuq1979 发表于 2019-8-6 20:33
你语文老师退休了没？

怎么了？怎么了？