大家好.能不能在这些线的交点都生成一个圆呀,

zhuoxiaoxin

大家好.能不能在这些线的交点都生成一个圆呀,各位看看有什么办法没有呀

Andyhon

 

那些线的交点要生成圆呀

wen1234

对就是在交点处生成一个圆.我们做这个设备要看它有多少个地方有冲突,冲突就是相交的地方.

ljttjl

楼主再剪一小块图，举几个例子，在交点的位置标上圆，让看看具体要得到的效果，这样更清楚

wen1234

比如如此,我框选这些线,

就在他们所有交点的地方生成一个圆呀.

楼主可是这样的意思吧,我想应该是

xyp1964

2. ;; 交点画圆  需要学院派工具箱的支持
3. (defun c:tt ()
4.   (CMDLA0)
5.   (setq ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE")))
6. ptn (XYP-GET-CURVEINTERS ss)
7. i   -1
8.   )
9.   (foreach pt ptn
10.     (xyp-add-circle pt 100)  ;100为半径
11.   )
12.   (CMDLA1)
13. )

;; 交点画圆  需要学院派工具箱的支持 (defun c:tt ()   (CMDLA0)   (setq ss  (ssget '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))) ptn (XYP-GET-CURVEINTERS ss) i   -1   )   (foreach pt ptn     (xyp-add-circle pt 100)  ;100为半径   )   (CMDLA1) )

zhuoxiaoxin

咱只说两字,不错,但是...............

xhq1954425

我多说两个字：确实不错！