知道一条线上N个点，怎么断开它

caoyin

那你就将点按照参数值从小到大顺序重新排列

然后break——注意打断后会产生新图元，所以按照顺序排列的点总是在(entlast)上

caoyin

还有老大， 面域怎么转成闭合的多段线啊

不会
--------------------------------------------------------

2. ;;多点打断非闭合曲线---caoyin 09.06.10
3. (defun c:tt (/ en p lst os)
4.   (setq en (car (entsel "\n选择一条曲线: ")))
5.   (while (setq p (getpoint "\n指定打断点: "))
6.     (setq lst (cons p lst))
7.   )
8.   (setq os (getvar "osmode"))
9.   (setvar "osmode" 0)
10.   (mapcar '(lambda (p)
11.              (setq p (vlax-curve-getPointAtParam en p))
12.              (command "_.break" (list en p) p)
13.              (setq en (entlast))
14.            )
15.           (vl-sort
16.             (mapcar '(lambda (p)
17.                       (vlax-curve-getParamAtPoint
18.                         en
19.                         (vlax-curve-getClosestPointTo en p)
20.                       )
21.                      )
22.                     lst
23.             )
24.             '<
25.           )
26.   )
27.   (setvar "osmode" os)
28.   (princ)
29. )

;;多点打断非闭合曲线---caoyin 09.06.10 (defun c:tt (/ en p lst os)   (setq en (car (entsel "\n选择一条曲线: ")))   (while (setq p (getpoint "\n指定打断点: "))     (setq lst (cons p lst))   )   (setq os (getvar "osmode"))   (setvar "osmode" 0)   (mapcar '(lambda (p)              (setq p (vlax-curve-getPointAtParam en p))              (command "_.break" (list en p) p)              (setq en (entlast))            )           (vl-sort             (mapcar '(lambda (p)                       (vlax-curve-getParamAtPoint                         en                         (vlax-curve-getClosestPointTo en p)                       )                      )                     lst             )             '<           )   )   (setvar "osmode" os)   (princ) )

clh521

呵呵，看看我刚发的程序，能满足你的要求，我也是初学，我是从三月底才开始学lisp,  到现在还是有好多不懂，明经带我一起成长：

程序在这里：

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=76266

clh521

caoyin发表于2009-6-10 1:01:00还有老大， 面域怎么转成闭合的多段线啊

不会

--------------------------------------------------------

caoyin老大，我试了你的程序怎么好像不太行，我指定了几个点，可是只有一个点被打断的？

雪山飞狐_lzh

多点打断在Arx里很简单,一个函数就搞定了

其实自动桌子做个导出函数给Lisp调用就好了

桌子还是太懒了:)

面域包含的实际上是一组Ge曲线(拓扑计算类),不是实体

Lisp里只有炸开再连接

caoyin

Lisp里只有炸开再连接

面域炸开的结果可能包含spline而不是pline，所以炸开再连接未必可以实现，只能用pline近似模拟

雪山飞狐_lzh

spline连接NetApi可以实现的