选择两条平行线自动在形心位置绘制圆
网上找了好久都没有相关的程序，大师们帮帮忙，谢谢。比如两条20的平行线自动在形心位置绘制一个30的圆的lisp怎么写
拾取两条线，得到两条线的四个端点（组码10、11），用交叉inters函数求对角线交点（这里根据直线的方向有一个判断），在交点画圆。 没人帮忙解决下吗，我刚进来不久，不会写代码 呀 (defun c:tt ( / mid en1 en2 p1 p2 p3 p4 p5 p6 )
(Defun MID ( p1 p2 )(Mapcar '(Lambda ( a b )( / (+ a b) 2.0)) p1 p2))
(setq en1 (car (entsel)))
(setq en2 (car (entsel)))
(setq p1 (cdr (assoc 10 (entget en1))))
(setq p2 (cdr (assoc 11 (entget en1))))
(setq p3 (cdr (assoc 10 (entget en2))))
(setq p4 (cdr (assoc 11 (entget en2))))
(setq p5 (mid p1 p2))
(setq p6 (mid p3 p4))
(Entmakex (list '(0 . "CIRCLE")(cons 10 (mid p5 p6))(cons 40 15)))
(princ)
) maiko 发表于 2014-9-24 10:39 static/image/common/back.gif
非常感谢，就是要这样效果，但只能点选两条线，可以改成一次性框选两条线吗，谢谢了，效率高了许多，非常感谢 zjqby24 发表于 2014-9-24 11:28 static/image/common/back.gif
非常感谢，就是要这样效果，但只能点选两条线，可以改成一次性框选两条线吗，谢谢了，效率高了许多，非常 ...
仅选择两条线的时候，框选不如点选，鼠标点击次数多不说，还容易选错。 ll_j 发表于 2014-9-24 11:36 static/image/common/back.gif
仅选择两条线的时候，框选不如点选，鼠标点击次数多不说，还容易选错。
有时候很多对象都要这样操作，一个一个点很繁琐，能实习框选吗 zjqby24 发表于 2014-9-24 11:41 static/image/common/back.gif
有时候很多对象都要这样操作，一个一个点很繁琐，能实习框选吗
每次最多框选两条，框选多条时不容易判断需要处理哪两条。
如果框选一条时，可以继续选择下一条 本帖最后由 maiko 于 2014-9-24 11:50 编辑
自己学习改,我只会写上面的,其余的一慨不会改
自贡黄明儒 发表于 2014-9-24 11:46 static/image/common/back.gif
每次最多框选两条，框选多条时不容易判断需要处理哪两条。
如果框选一条时，可以继续选择下一条
(= (sslength ss ) 2)这个应该也可判断不过选三条就没效果了
页:
[1]
2