制作聚合线

yxl88168 · 发表于 2011-4-28 19:33

本帖最后由 yxl88168 于 2011-4-29 22:45 编辑

在明经学了这么久了lsp编程，终于自己会一点了，编了一个小程序，拿出来晒晒，以前也看个这方面的程序，但程序都是比罗长，觉得这个还比较短的，愿大家多多指教
做聚合线程序
(defun c:jj () (command "pedit" "M" (ssget) "" "y" "j" "" ""))

11楼的那个非常好用，大家去看看

仲文玉 · 发表于 2011-4-28 19:52

支持交流，共勉

461045462 · 发表于 2011-4-28 19:56

程序虽短，不能一次连接上，还需要手动连接
参照别人的比较一下
相信会更好

yxl88168 · 发表于 2011-4-28 21:34

回复 461045462 的帖子

我看到的都是这样的呀，楼主要是有更好的，能发出来学习吗，先谢了

mandala · 发表于 2011-4-28 21:45

短必然有短的缺陷。楼主试着用你的程序把两条pline连起来看看。

yxl88168 · 发表于 2011-4-28 21:55

回复 mandala 的帖子

呵呵，这个由出从没用过，还真没注意倒，谢谢楼主的指教。

xuexicad1960 · 发表于 2011-4-28 22:29

希望能做出个很棒的线连接程序，加油。

jh1005 · 发表于 2011-4-28 23:21

最好先判断一下(getvar "PEDITACCEPT")变量，以免出错。

461045462 · 发表于 2011-4-29 06:14

回复 yxl88168 的帖子

(setq ent (ssget))
(command "pedit" "m" ent "" "j" "" "")

linheyuanpcb · 发表于 2011-4-29 16:35

好像飞诗的一个，很不错，点一条线就可以将所有跟这条线连一直的都生成聚合线了
一直在用，

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