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

wb0815 · 发表于 2004-3-11 09:59:00

好久不见了祝各位斑竹和乐筑天下的朋友天天快乐
问题请看附件

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

meflying · 发表于 2004-3-11 12:44:00

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

wb0815 · 发表于 2004-3-11 13:33:00

问题就是一条线如果是用extend的时候可以延伸到线上，可是线上没有节点。
如何能使已经延伸到线的被延伸线上自动的产生一个交点，就像那个圈的地方就有一个点不是吗？而其它的线就没有产生交点。
目的就是产生一个交点
谢谢斑竹

BDYCAD · 发表于 2004-3-11 13:35:00

不就是在交點畫個圓嗎?
(defun JIAODIAN ( ss / N1 SSL AOBJ1 AOBJ2 IPTS ); 算交點點
   (vl-load-com)
   (SETQ PTS NIL)
   (setq N1 0 SSL (sslength SS))
   (while (vla-object AOBJ1) N2 (1+ N1))
   (while (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 · 发表于 2004-3-11 14:03:00

错
是在两条线的相交处，在另外的一根线上加一个点使两根线的节点有同一个坐标。
（一根是线的顶点或终点，另外一根线是线的内点重合）

meflying · 发表于 2004-3-11 19:31:00

你把那个顶点左右两段画得刚好在一条直线上，让人当然很难看出来了，这种说明性的图最好要有一般性。。。
加点怎么加，白线是否已经延伸到红线，还需要程序中延伸吗，，，

wb0815 · 发表于 2004-3-12 08:58:00

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

meflying · 发表于 2004-3-12 19:21:00

仅适用于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)
)