[求助]请各位斑竹帮帮忙

龙龙仔

(defun C:TTT (/ ENT1 PN NEWV INDEX)
(setq ENT1 (entsel "\n選紅線: "))
(setq PN (getpoint "\n交點: ")
PN (list (car PN) (cadr PN))
NEWV (vlax-safearray-fill
(vlax-make-safearray vlax-vbdouble '(0 . 1))
PN
)
)
(setq INDEX (SEGMENT ENT1))
(vla-addvertex
(vlax-ename->vla-object (car ENT1))
INDEX
NEWV
)
(princ)
)

zcjhy

我明白他的意思 是在保持原来的线的节点不变的情况下再追加下一个节点，也就是再接下去在之间形成一条线         这种追加节点的方法我没用过，不过有一个简单的办法很容易就可以实现。


方法：先找到交点，上面已经有很多方法，不说了，接下来 在原来那条线的节点（端点）与这个点之间画line 或pline，然后用pedit-->joint         组合在一起就可以了


但这样追加节点有什么用途呢？不明白。

无痕

ｌｕｃａｓ再改进一下，程序中既然要交互输入交点，那就应当自动判断ｉｎｄｅｘ

龙龙仔

;;不是寫了嗎?只是segment函數忘了附上!
(setq index (segment ent1))
;;SEGMENT FROM STARTPT
;;USAGESEGMENT (ENTSEL))
(defun segment (ent / pnt vobj param)
(setq vobj (vlax-ename->vla-object (car ent)))
(setq pnt (osnap (trans (cadr ent) 1 0)
"nea"
)
)
;;(setq PNT (vlax-curve-getclosestpointto VOBJ (trans (cadr ENT) 1 0)))
(setq param (1+ (fix (vlax-curve-getparamatpoint vobj pnt))))
)

无痕

龙龙仔，你的程序在处理有宽度的pl线的时候有bug。这里提供一个另类点的，命令方式的，请龙龙仔笑纳：）

2. ;;;为多义性添加顶点:－－－－无痕，2004，5 即兴而作.
3. (defun c:ttt2 (/ elast e pt)
4.    (setq elast (entlast)
5.                e         (car(entsel "\n选择要加顶点的多义线:"))
6.                pt       (getpoint "\n点取新顶点位置:"))
7.    (vl-cmdf ".break" e "f" pt "@")
8.    (vl-cmdf ".pedit" "m" e )
9.    (if (setq elast (entnext elast)) (vl-cmdf elast))
10.    (vl-cmdf "" "j" "0" "" "")
11. )

;;;为多义性添加顶点:－－－－无痕，2004，5 即兴而作. (defun c:ttt2 (/ elast e pt)    (setq elast (entlast)                e         (car(entsel "\n选择要加顶点的多义线:"))                pt       (getpoint "\n点取新顶点位置:"))    (vl-cmdf ".break" e "f" pt "@")    (vl-cmdf ".pedit" "m" e )    (if (setq elast (entnext elast)) (vl-cmdf elast))    (vl-cmdf "" "j" "0" "" "") )