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

wb0815

好久不见了



祝各位斑竹和明经的朋友天天快乐


问题请看附件

meflying

看不明白，如图的是相交处啊，，，而且另外两个点又为什么不正确呢？看不出有什么区别

wb0815

问题就是一条线如果是用extend的时候可以延伸到线上，可是线上没有节点。


如何能使已经延伸到线的被延伸线上自动的产生一个交点，就像那个圈的地方就有一个点不是吗？而其它的线就没有产生交点。


目的就是产生一个交点


谢谢斑竹

BDYCAD

不就是在交點畫個圓嗎? (defun JIAODIAN ( ss / N1 SSL AOBJ1 AOBJ2 IPTS ); 算交點點
(vl-load-com)
(SETQ PTS NIL)
(setq N1 0 SSL (sslength SS))
(while (< N1 (1- SSL))
(setq AOBJ1 (ssname SS N1)
AOBJ1 (vlax-ename->vla-object AOBJ1) N2 (1+ N1))
(while (< N2 SSL)
(setq AOBJ2 (ssname SS N2)
AOBJ2 (vlax-ename->vla-object AOBJ2)
IPTS (vla-intersectwith AOBJ1 AOBJ2 0 )
IPTS (vlax-variant-value IPTS) )
(if (> (vlax-safearray-get-u-bound IPTS 1) 0)
(progn
(setq IPTS(vlax-safearray->list IPTS) )
(while (> (length IPTS) 0)
(setq PTS (cons (list (car IPTS)
(cadr IPTS)(caddr IPTS)) PTS )
IPTS (cdddr IPTS)))))
(setq N2 (1+ N2)))
(setq N1 (1+ N1)))
;;; (PRINC PTS)
(princ)) (defun c:tet()
(setq ss (ssget))
(JIAODIAN ss)
(setq i 0)
(repeat (length pts)
(setq poi (nth i pts))
(command "circle" poi 3)
(setq i (1+ i)))
(princ))

wb0815

错


是在两条线的相交处，在另外的一根线上加一个点使两根线的节点有同一个坐标。


（一根是线的顶点或终点，另外一根线是线的内点重合）

meflying

你把那个顶点左右两段画得刚好在一条直线上，让人当然很难看出来了，这种说明性的图最好要有一般性。。。


加点怎么加，白线是否已经延伸到红线，还需要程序中延伸吗，，，

wb0815

只有延伸到线上的才自动的加点，没有延伸的不管。


^_^

meflying

仅适用于LWPOLYLINE (defun c:test( / ent1 ent2 ents1 ents2 pt)
(setq ent1 (car (entsel "选择白线...")))
(setq ent2 (car (entsel "选择红线...")))
(setq ents1 (entget ent1))
(setq ents2 (entget ent2))
(setq pt (assoc 10 ents1))
(if (member pt ents2)
(command "_.point" (cdr pt))
)
(setq pt (assoc 10 (reverse ents1)))
(if (member pt ents2)
(command "_.point" (cdr pt))
)
(princ)
)

无痕

我怎么觉得他是想在红线上加节点（不是加点）

meflying

那他做完后图上白线端点处应该都是红线的节点，而不会出现不是节点的情况了，要吗本来就是，要吗就用程序加上去