有点难度???

nxy_918 · 发表于 2004-3-28 21:18:00

如何才能在下图中每一个交点上划出一标示的圆形符号，记住一个交点上只能存在一个标示的圆，不能出现一个交点上重复出现多个重叠的圆
注：图中的线皆为line
望各位能多出主意，不吝赐教，谢谢

3jsuagq4uek.jpg

莫名 · 发表于 2004-3-28 21:24:00

求出每两条线的实交点，然后剔除公共点，最后在每个点上画圆即可。

nxy_918 · 发表于 2004-3-29 08:40:00

莫名大哥的方法我也想到过，但是我实际操作的图，远远不止上图那么几个交点而已，而是有很多的交点（上千个），这样的话运算量与速度是个问题吧

subtlation · 发表于 2004-3-29 08:57:00

要试过才知道运算速度会怎么样。而且如果是一张图只用一次，速度慢点也可以接受。
要不就这样，找到交点后，用选择集过滤看是否有圆心是这个交点，半径相同的圆存在，不存在就画，存在就不画。

BDYCAD · 发表于 2004-3-29 09:09:00

(defun c:test(/ os pts i center)
   (setq os (getvar "osmode"))
   (setvar "osmode" 0)
   (princ "\n選手要處理的對象:")
   (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))
   (JIAODIAN (ssget))
   (setq i 0)
   (repeat (length pts)
   (setq center (nth i pts))
   (entmake (append
   '((0 . "CIRCLE"))
   '((100 . "AcDbEntity"))
   '((100 . "AcDbCircle"))
   '((8 . "0")) ; 在0層畫出
   '((40 . 1)); 設定圓的半徑為1mm
   (list (cons 10 center))))
   (setq i (1+ i)))
   (setq pts nil)
   (setvar "osmode" os)
   (princ "\n程序運行完成,歡迎使用.")
   (princ))

nxy_918 · 发表于 2004-3-29 10:45:00

不错是一个变向的完成要求的好方法

有点难度???

发表回复

精选推荐

浏览过的版块