求段线用LSP增加夹点，谢谢！！

quanguang

弧可以，但是多义线就不行啦，那么针对多段线怎么处理那？

caoyin

对于曲线，断开后会产生一个新的实体，旧的实体会保持，但是对于pl线则不同，它会产生两个新实体，那对于pl线的加点问题caoyin同志有否办法解决呢？

楼上留言我看到了，不知道为什么我的测试结果与你不同

——圆弧和多段线的操作结果是一样的

ZZXXQQ

好象封闭的多段线无法BREAK。

caoyin

ZZXXQQ发表于2008-6-1 10:34:00好象封闭的多段线无法BREAK。

封闭的多段线在一个点断开后，会变成两个对象

ZZXXQQ

哦，我在R14上测试不行，2004就可以了。

caoyin

可能是polyline 和 lwpolyline的区别吧，

 R14上没试过，学习

ayunger

;;;*******************************
;;; No.11-1 增加多段线顶点 函数  
;;;*******************************
(defun C:ayVTXadd(/ entName1 obj pp n pn newVTX)
  ;(AYCMDINIT0);保存用户系统变量.
  (vl-load-com)
 ;(setq entName1 (car (ayEntSel "\n选择多段线对象: " '((0 . "*POLYLINE")))))
 (setq entName1 (car (entSel "\n选择多段线对象: )))
 (if (= (cdr (assoc 0 (entget entName1))) "POLYLINE")
  (vl-cmdf "_.Pedit" entName1 "D" "");转化为"LWPOLYLINE".
 );end_if
 (setvar "osmode" 0)
 (setq pn (getpoint "\n指定点: ")
    obj (vlax-ename->vla-object entName1)
    pp (vlax-curve-getclosestpointto obj (trans pn 1 0))
    n (fix (vlax-curve-getparamatpoint obj pp))
    pn (list (car pn) (cadr pn))
    newVTX (vlax-safearray-fill (vlax-make-safearray vlax-vbDouble '(0 . 1)) pn))
 (vla-addvertex obj (1+ n) newVTX)
 (redraw entName1 4)
  ;(AYCMDINIT1);恢复用户系统变量.
);end_defun

quanguang

确实是polyline和lwpolyline的区别！！！！前几次我都在cad2002上试验的，多义线全部是polyline，所以无法成功，今天在cad2004上试验就没有问题！！算是学习啦，看来我对于多义线的了解还是太肤浅了，惭愧惭愧，让大家见笑啦

同时谢谢ZZXXQQ版主和ayunger同志

ZZXXQQ

caoyin发表于2008-6-1 12:48:00可能是polyline 和 lwpolyline的区别吧， R14上没试过，学习

不是的。在R14中不管是POLYLINE还是LWPOLYLINE的封闭线均不能打断。