50币求批量生成双线的中心线

【KAIXIN】 · 发表于 2011-12-15 15:02:26

随便弄了一下：

(defun C:KK ()
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setvar "osmode" 512)
(setq p1 (getpoint "\n请选取第一条线：) "))
(setvar "osmode" 128)
(setq p2 (getpoint p1 "\n请选取第二条线："))
(setq dis (/ (distance p1 p2) 2.0))
(command "offset" dis p1 p2 "" "CHANGE" "L" "" "p" "LTYPE" "Center" "c" "1" "" )
(setvar "osmode" os)
(princ)
)

flytoday · 发表于 2011-12-15 15:05:28

【KAIXIN】测试不能批量啊。。一根一根的选这个不好哦

flytoday · 发表于 2011-12-15 15:09:41

yjr111 严哥太强大了

佩服

yjr111 · 发表于 2011-12-15 15:27:03

【KAIXIN】发表于 2011-12-15 14:48
不要叫我老大，我只弄了几个小程序而已！

很简单啊
1、将图元、图元起点、图元终点组成表
2、对各图元的起点、终点的距离进行比较组表，图元也要组进去
3、判断是否小于指定的距离
4、在起点和起点或起点和终点间找到2个中间点，画线，圆弧的话还有个圆心

【KAIXIN】 · 发表于 2011-12-15 15:41:31

yjr111 发表于 2011-12-15 15:27
很简单啊
1、将图元、图元起点、图元终点组成表
2、对各图元的起点、终点的距离进行比较组表，图元也要 ...

顶！思路明确，不知怎样判断多条线？
假如：有好几条都是一个距离

完整武器 · 发表于 2011-12-18 20:39:25

刚才下载试了一下两条线长度相差多些的话就不能生成中心线，比例说两条相交的斜梁的话就不行了，希望yjr111修改一下，使程序更加完美！！

flytoday · 发表于 2011-12-28 20:54:31

哪能那么完美哈。。手工也搞两下哈

pslstar · 发表于 2012-2-6 02:24:43

我也想说真有钱啊，哈哈

xxzwtr · 发表于 2012-7-31 23:49:45

这样的好不多了是不是

smartstar · 发表于 2012-8-1 08:05:48

这个很爽，严前辈能能放码不？

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