[编程申请]：线连接成复合线

pipi002004 · 发表于 2005-10-28 09:39:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

为什么这个命令没用啊，我想在选择好了线段了以后，将所有的线连接起来成复合线
，线是这样，按最近点原则如果延长线的交点多了就剪切掉，少了就延长，并连接成复合线
绿圆里面是后来要修改的效果，为了大家看起来方便我把线加宽了。再次感激！

xyp1964 · 发表于 2005-10-28 13:09:11

根据实际情况调整模糊距离，本例为1000：

[FONT=courier new](command "pedit" "M" (ssget) "" "j" "1000" "")[/FONT]

zqw_zhang · 发表于 2005-10-28 17:09:14

谢谢2楼高手指点，明白了。

pipi002004 · 发表于 2005-10-28 20:28:35

诚心的说一声,谢谢!,不知道是不是达到了我要求,因为看起来只有一句,而我的图上的是要1次完成的..........................................................,
还有线段离其他线近的,是被延长或剪切的,这里只有一个模糊距离,是不是不能完成??????????????
求老大改进!
顺便我想说一下
xyz1964你个老大,你是好人,我不否认,可是你能不能给我这些用r14的人一点余地啊,你的所有收集的lisp大部分都要调用通用函数<< xyp_lib.vlx >>大哥有些好东西不是我不想要啊,是我看到又用不了,痛苦!!!!!!!xyz1964你如果做好人,就给我门玩r14的人一点活下去的勇气吧!!
-------------------------------------------------------------------------------------------------------------------------------
追求速度第一,是我的原则!!!!!!!!!!!!!!!!!

xyp1964 · 发表于 2005-10-28 20:53:12

最初由 pipi002004 发布
[B]诚心的说一声,谢谢!,不知道是不是达到了我要求,因为看起来只有一句,而我的图上的是要1次完成的................................................,
还有线段离其他线近的,是被延长或剪切的,这里只有一个?.. [/B]

很替你高兴，要勇敢的“活”下去，要知道CAD界还有不少在用R12的呢！呵呵……
程序虽然很短，但努力想也就想出怎么多，不过是真正的纯lsp及R14版的，或许对你有用。
xyp_lib通用函数也不过是对若干程序的总结，目的是达到程序的“程式化”。

pipi002004 · 发表于 2005-10-31 11:48:35

楼主，经过测试，没用！！！！lisp如下
(DEFUN C:cc1 ()
(command "pedit" "M" (ssget) "" "j" "1000" "")
)
没用啊，大哥帮忙改一下，谢谢了

xyp1964 · 发表于 2005-10-31 12:06:27

[FONT=courier new]
(defun c:test ()
(setq SS (ssget '((0 . "LINE,*POLYLINE,ARC")))
ss1 (ssget "p" '((0 . "LINE,ARC")))
)
(if ss1
(command "pedit" "M" ss "" "y" "j" "1000" "")
(command "pedit" "M" ss "" "j" "1000" "")
)
(princ)
)[/FONT]

DEA · 发表于 2005-10-31 13:19:32

谢谢各位，以前总是一根一根的接

pipi002004 · 发表于 2005-10-31 14:36:26

xyp1964
我不得不佩服你，
经过测试cad2002里面完美无暇，我建议大家用2002（可能以上版本都行）的都来用一下这个东东，太强了！
不过r14里面就不能用了，斑竹，能不能改一个r14能用的啊，谢谢！！
附r14提示：
Error: Function cancelledSelect polyline: *Cancel*

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

[编程申请]：线连接成复合线

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子