求点选一直线，点选另一直线，两直线延伸至交点，并在交点处生成一圆

品茗新秀

求点选一直线，点选另一直线，两直线延伸至交点，并在交点处生成一圆

Andyhon

inters + entmake 如何?

ll_j

真的受不了，这样也求，还悬赏，感觉是污辱了悬赏这个功能了。真但愿我这个感觉不对。

llsheng_73

怎么看都不象是在学习的，不可能学了快两年是这水平
飘过

123456abc

留个记号先，多段线也可以这样做最好了

lyqiezi

cad命令FILLET加上求两线交点的代码，论坛随便找得到
这帖子让学了一年多的我感觉非常良好

q3_2006

刚才看了下通道币兑换规则....原来在论坛里........给人写代码这么不值钱呀....

两个论坛都有几个求代码过多以至没能愿意替他解决问题了.....

这种求法.....干脆找人专职给你们写代码...直接给钱,让别人的劳动....多少有点价值.....

llsheng_73

跟你比起来是我们太菜了。

重慶崽兒

2. (defun c:tt()
   
3.   (setq en1 (entget (car (entsel "\n请选择第一条直线:"))))
   
4.   (setq en2 (entget (car (entsel "\n请选择第二条直线:"))))
   
5.   (setq a (cdr (assoc 10 en1)) b (cdr (assoc 11 en1)) c (cdr (assoc 10 en2)) d (cdr (assoc 11 en2)))
   
6.   (setq zb (inters a b c d nil))
   
7.   (setq zbb (append (list 10) zb))
   
8.   (entmake (list (cons 0  "CIRCLE") zbb (cons 40 20)))
   
9. )
   

(defun c:tt()<br />   (setq en1 (entget (car (entsel "\n请选择第一条直线:"))))<br />   (setq en2 (entget (car (entsel "\n请选择第二条直线:"))))<br />   (setq a (cdr (assoc 10 en1)) b (cdr (assoc 11 en1)) c (cdr (assoc 10 en2)) d (cdr (assoc 11 en2)))<br />   (setq zb (inters a b c d nil))<br />   (setq zbb (append (list 10) zb))<br />   (entmake (list (cons 0  "CIRCLE") zbb (cons 40 20)))<br /> )<br />

看看这个

ysq101

q3_2006 发表于 2014-4-27 14:06
刚才看了下通道币兑换规则....原来在论坛里........给人写代码这么不值钱呀....

两个论坛都有几个求代码 ...

你这图的通道币的价值    真心来说太高太高了。。。可能还没看完兑换方法吧。。。
按楼主的给出的通道币     你认为楼主相当于给出1元RMB？？  大错特错 远远没有
我来给你算算这笔帐：
还有一种兑换方式    20激情-->1通道币
回一贴5激情
一贴10字
相当于回4贴就有1通道币
10通道币换算为：10字*4*10 =400字
呵呵。。。原来只需要输入400字就可以让高手写一段程序
400字还没有你给他写的程序的代码多   我汗一个先
你还认为楼主需要充RMB吗？？
(我会告诉你我打那么多字是为了1/4通道币？)