选择两条平行线自动在形心位置绘制圆

zjqby24

网上找了好久都没有相关的程序，大师们帮帮忙，谢谢。
比如两条20的平行线自动在形心位置绘制一个30的圆的lisp怎么写

ll_j

拾取两条线，得到两条线的四个端点（组码10、11），用交叉inters函数求对角线交点（这里根据直线的方向有一个判断），在交点画圆。

zjqby24

没人帮忙解决下吗，我刚进来不久，不会写代码 呀

maiko

2. (defun c:tt ( / mid en1 en2 p1 p2 p3 p4 p5 p6 )
   
3.   (Defun MID ( p1 p2 )(Mapcar '(Lambda ( a b )( / (+ a b) 2.0)) p1 p2))
   
4.   (setq en1 (car (entsel)))
   
5.   (setq en2 (car (entsel)))
   
6.   (setq p1 (cdr (assoc 10 (entget en1))))
   
7.   (setq p2 (cdr (assoc 11 (entget en1))))
   
8.   (setq p3 (cdr (assoc 10 (entget en2))))
   
9.   (setq p4 (cdr (assoc 11 (entget en2))))
   
10.   (setq p5 (mid p1 p2))
    
11.   (setq p6 (mid p3 p4))
    
12.   (Entmakex (list '(0 . "CIRCLE")(cons 10 (mid p5 p6))(cons 40 15)))
    
13.   (princ)
    
14. )

(defun c:tt ( / mid en1 en2 p1 p2 p3 p4 p5 p6 )<br />   (Defun MID ( p1 p2 )(Mapcar '(Lambda ( a b )( / (+ a b) 2.0)) p1 p2))<br />   (setq en1 (car (entsel)))<br />   (setq en2 (car (entsel)))<br />   (setq p1 (cdr (assoc 10 (entget en1))))<br />   (setq p2 (cdr (assoc 11 (entget en1))))<br />   (setq p3 (cdr (assoc 10 (entget en2))))<br />   (setq p4 (cdr (assoc 11 (entget en2))))<br />   (setq p5 (mid p1 p2))<br />   (setq p6 (mid p3 p4))<br />   (Entmakex (list '(0 . "CIRCLE")(cons 10 (mid p5 p6))(cons 40 15)))<br />   (princ)<br /> )

zjqby24

maiko 发表于 2014-9-24 10:39

非常感谢，就是要这样效果，但只能点选两条线，可以改成一次性框选两条线吗，谢谢了，效率高了许多，非常感谢

ll_j

zjqby24 发表于 2014-9-24 11:28
非常感谢，就是要这样效果，但只能点选两条线，可以改成一次性框选两条线吗，谢谢了，效率高了许多，非常 ...

仅选择两条线的时候，框选不如点选，鼠标点击次数多不说，还容易选错。

zjqby24

ll_j 发表于 2014-9-24 11:36
仅选择两条线的时候，框选不如点选，鼠标点击次数多不说，还容易选错。

有时候很多对象都要这样操作，一个一个点很繁琐，能实习框选吗

自贡黄明儒

zjqby24 发表于 2014-9-24 11:41
有时候很多对象都要这样操作，一个一个点很繁琐，能实习框选吗

每次最多框选两条，框选多条时不容易判断需要处理哪两条。
如果框选一条时，可以继续选择下一条

maiko

自己学习改,我只会写上面的,其余的一慨不会改

maiko

自贡黄明儒 发表于 2014-9-24 11:46
每次最多框选两条，框选多条时不容易判断需要处理哪两条。
如果框选一条时，可以继续选择下一条

(= (sslength ss ) 2)这个应该也可判断不过选三条就没效果了