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

品茗新秀 · 发表于 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
刚才看了下通道币兑换规则....原来在论坛里........给人写代码这么不值钱呀....

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

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

账号		自动登录	找回密码
密码			注册

[已解答] 求点选一直线，点选另一直线，两直线延伸至交点，并在交点处生成一圆

最佳答案

点评

评分

点评

评分

本帖子中包含更多资源

点评

点评

评分