[求助]：如何将多义线按距等分并打断?

闲云

如何将多义线按距等分并打断?

841594

程序代码如下：

[program]
(defun c:dvp (/ obj piece plen ptlst dis npt)
  (setq        obj   (vlax-ename->vla-object (setq en (car (entsel "\n选择多义线: "))))
        piece (getint "\n分段数: ")
        plen
              (vlax-curve-getdistatparam obj (vlax-curve-getendparam obj))  ;已作修改
        dis  0
  )
  (repeat (1- piece)
    (setq dis        (+ dis (/ plen piece))
          npt        (vlax-curve-getpointatdist obj dis)
          ptlst        (cons npt ptlst)
    )
  )
(foreach pt ptlst
    (vl-cmdf "break" (list en pt) pt)
  )
(princ)
)
[/program]

陌生人

plen
建议用param获得

lsjjm

2楼:
1. 使用DIVIDE更简单些
2. 最好开始加入 (SETVAR "OSMODE" 0), 否则容易出错.

841594

最初由 陌生人 发布
[B]plen
建议用param获得 [/B]

我是初学active类函数，还不太懂，请问用param的好处是？

lsjjm:您说的用divide是分段后再搜集点位的办法吗？怎么会更简单呢？

XDSoft

最初由 841594 发布
[B]

我是初学active类函数，还不太懂，请问用param的好处是？

lsjjm:您说的用divide是分段后再搜集点位的办法吗？怎么会更简单呢？ [/B]

对曲线来说，点有可能重合，就是曲线上不同位置的点可能重合，比如曲线自交，比如圆的起点和终点。如果用 getdistAtPoint 就可能得不到正确结果。

而参数PARAM对曲线，是唯一的，闭合的、自交的曲线重合的点的参数是不同的。

841594

谢谢晓东指点。

程序的plen部分改了，看来如果均分点正好在曲线的重合点上，还是可能有问题。不过这个比较难改一点。

lsjjm

最初由 841594 发布
[B]...lsjjm:您说的用divide是分段后再搜集点位的办法吗？怎么会更简单呢？ [/B]

起ma程序可以少几行.

841594

最初由 lsjjm 发布
[B]

起ma程序可以少几行. [/B]

贴chu来看看如何？

lsjjm

最初由 841594 发布
[B]贴chu来看看如何？ [/B]

(defun c:test ()
  (setq a (car (entsel "\nPick Pline: ")))
  (setq num (getint "\nNumber of divide: "))
  (vl-cmdf "divide" a num)
  (setq pp (ssget "x" '((0 . "POINT"))))
  (setq n 0)
  (while (< n (sslength pp))
    (setq pt (cdr (assoc 10 (entget (ssname pp n)))))
    (vl-cmdf "break" (list a pt) pt)
    (setq n (1+ n))
  )
)

snsj

最好不要用(ssget "x" '((0 . "POINT"))))的方法，受不同图纸的客观因素影响太大～～～

lsjjm

最初由 snsj 发布
[B]最好不要用(ssget "x" '((0 . "POINT"))))的方法，受不同图纸的客观因素影响太大～～～ [/B]

只是提出一种思路和方法. 根据需要可以:(ssget  '((0 . "POINT")))....

841594

LSJJM的程序的确看上去简捷些，但因为有COMMAND调用，运行速度未必快。除了11楼的问题之外别忘了删掉辅助点。
在VLISP出现以前，这可能是最简捷的方法了。

belx

很好啊！