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

制作聚合线

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

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




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

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

支持交流，共勉

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

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

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

回复 461045462 的帖子

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

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

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

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

回复 mandala 的帖子

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

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

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

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

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

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

回复 yxl88168 的帖子

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

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

好像飞诗的一个，很不错，点一条线就可以将所有跟这条线连一直的都生成聚合线了
一直在用，
页: [1] 2 3
查看完整版本: 制作聚合线