连接多段线程序(LISP)

hzh2000 · 发表于 2006-7-9 18:35:03

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                               ;;
;;       连接多段线程序       ;;
;;                               ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;MYCAD V3, HZH2000，2005.6.12
(defun c:line_link()
  (setvar "CMDECHO" 0)
  (setq ss nil)
  (prompt "\n请选择所有要连接的多段线、直线或圆弧: ")
  (setq ss (ssget '((0 . "[~B . C-K . M-Z]*"))))
  (command "undo" "begin")

  (setq iss 0)
  (setq jss 0)
  (while (< iss (sslength ss) )
(setq en (ssname ss iss))
(setq ed (entget en))
(setq e_type (cdr (assoc '0 ed)))
(if (= (cdr (assoc '70 ed)) 1)
      (ssdel en ss)
      (setq iss (+ 1 iss))
)

(if (/= e_type "LWPOLYLINE")
      (setq jss 999)]
)
  )

  (if (= jss 0)
   (command "pedit" "M" ss "" "J" "" "" )
   (command "pedit" "M" ss "" "y" "J" "" "" )
  )
  (command "undo" "end")
  (princ "\n 连接完成！")
  (princ)
)

铭珠初海 · 发表于 2006-7-9 18:48:48

还要这样吗？
不是有自带的连接功能嘛！
修改/对象/多线段，按命令提示输入M后回车，Y回车，不就完了，还用得着编一个小程序吗？

lijim985 · 发表于 2006-9-2 09:59:09

在CAD里面输入命令PE,回车
选定的对象不是多段线
是否将其转换为多段线? <Y>回车
输入选项
[闭合(C)/合并(J)/宽度(W)/编辑支持楼主点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: j回车
选择对象: 可以框选(定对角点: 找到 4 个)也可以一个个选,选取好后,回车.
选择对象:
3 条线段已添加到多段线
经过这样的操作就可以将多段线连成一条了

fgc001 · 发表于 2006-9-2 12:25:31

3楼的方法很好，简单好用，我试了，谢谢。

lsz008 · 发表于 2006-9-14 10:54:35

原帖由 bozh79 于 2006-7-9 18:48 发表8 k0 o9 s4 l0 k6 a- _6 T, G' G
还要这样吗？
; R- | k/ n: p4 V" _- m; D5 @2 K不是有自带的连接功能嘛！
) h* [" D; D7 {" a! c( N! Q6 j修改/对象/多线段，按命令提示输入M后回车，Y回车，不就完了，还用得着编一个小程序吗？

我划线时常常发现直线和曲线怎么老连不上不能变成一条多段线呀？

licy0930 · 发表于 2006-10-31 23:39:31

是这样的谢谢啦

yhg43 · 发表于 2007-2-9 10:23:02

楼主没有交代程序放在那才能运行！

ming78 · 发表于 2010-1-19 13:59:00

简化我PE的输入命令谢谢啦

votasee · 发表于 2010-2-1 16:10:33

什么用命令啊..用命令太烦了啊...
不过不知道这个程序好不好用....先试试用...

我觉得目前比较好用的就是贱人工具箱的.连接功能...

我经常用...特别是旋转实体时,大家应该知道吧.都要求是闭合图形的..烦死了..

不过.现在问题来了,有的时候,即使有限公司.0001的小间隙,都连接不起来..真讨厌啊..

如果能设置一下兼容值,比如兼容0.1以下的尺寸.全部耦合.那用起来不是更方便吗..

SunVei · 发表于 2010-2-2 12:13:34

Command: pe
PEDIT Select polyline or [Multiple]: m
Select objects: Specify opposite corner: 946 found
Select objects:
Convert Lines and Arcs to polylines [Yes/No]? <Y>
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j
Join Type = Extend
Enter fuzz distance or [Jointype] <0.000>: 0.0001 ;<=== 容差

lyn3 · 发表于 2010-6-4 22:00:32

学习了。

ysryc99001 · 发表于 2010-7-8 12:44:44

希望能点一下就能够串连接起来的程序

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

通知

[原创] 连接多段线程序(LISP)

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

连接多段线程序(LISP)

帮帮我好吗？

评分

浏览过的版块