品茗新秀 发表于 2014-4-27 12:03:11

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

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

Andyhon 发表于 2014-4-27 12:03:12

inters + entmake 如何?

ll_j 发表于 2014-4-27 12:48:55

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

llsheng_73 发表于 2014-4-27 12:58:28

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

123456abc 发表于 2014-4-27 13:26:18

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

lyqiezi 发表于 2014-4-27 13:35:56

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

q3_2006 发表于 2014-4-27 14:06:46

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

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

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

llsheng_73 发表于 2014-4-27 16:34:43

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

重慶崽兒 发表于 2014-4-27 20:21:42

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

ysq101 发表于 2014-4-28 18:24:48

本帖最后由 ysq101 于 2014-4-28 18:26 编辑

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

两个论坛都有几个求代码 ...
你这图的通道币的价值    真心来说太高太高了。。。可能还没看完兑换方法吧。。。
按楼主的给出的通道币   你认为楼主相当于给出1元RMB？？大错特错 远远没有
我来给你算算这笔帐：
还有一种兑换方式    20激情-->1通道币
回一贴5激情
一贴10字
相当于回4贴就有1通道币
10通道币换算为：10字*4*10 =400字
呵呵。。。原来只需要输入400字就可以让高手写一段程序
400字还没有你给他写的程序的代码多   我汗一个先
你还认为楼主需要充RMB吗？？
(我会告诉你我打那么多字是为了1/4通道币？)
页: [1]
查看完整版本: 求点选一直线，点选另一直线，两直线延伸至交点，并在交点处生成一圆