连接多段线程序(LISP)

hzh2000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
- [3 r. Y8 E+ N$ x5 |( ^;;                                  ;;
;;          连接多段线程序          ;;
, J( s- x/ T& V6 h, ~;;                                  ;;
: g- u5 p, t* ?9 i! s. };;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 e/ A/ K! W( q5 d5 _- I. F: ~;;MYCAD V3, HZH2000，2005.6.12
(defun c:line_link()
8 M8 B5 _" s! j  (setvar "CMDECHO" 0)
  (setq ss nil)
. M6 q: _$ |4 R% |9 R  (prompt "\n请选择所有要连接的多段线、直线或圆弧: ")  
  (setq ss (ssget '((0 . "[~B . C-K . M-Z]*"))))
! i9 |+ \3 c2 {1 Z! r: P* E3 v  (command "undo" "begin")
3 c! o) T! y8 k& O% I$ U  
  (setq iss 0)
  (setq jss 0)  
2 p' j% c' t% B; ?) A) c- `  ]: ]  (while (< iss (sslength ss) )
    (setq en (ssname ss iss))
    (setq ed (entget en))
    (setq e_type (cdr (assoc '0 ed)))
8 @; U- g+ t, x- ^- G    (if (= (cdr (assoc '70 ed)) 1)
        (ssdel en ss)
1 A1 m6 k; _: \# b) m% L( o        (setq iss (+ 1 iss))
    )
   
# T0 r9 f$ Q; x  S: }    (if (/= e_type "LWPOLYLINE")
$ R+ k5 N1 q# `7 A6 {$ x% Z        (setq jss 999)]
    )   
  )
- D% P0 @# H5 k$ b% b& J4 o  
9 r& C  v" b' Q+ N! y  (if (= jss 0)      
% J" v3 ?; L& J$ I      (command "pedit" "M" ss "" "J" "" "" )
  t1 f8 K' o8 M      (command "pedit" "M" ss "" "y" "J" "" "" )
  )
  (command "undo" "end")
  (princ "\n 连接完成！")
/ O+ s5 }/ E- E+ a  (princ)
)

铭珠初海

还要这样吗？
; i. T1 {# v5 a# [2 f$ m) x) A不是有自带的连接功能嘛！
* {* M: U, v- }5 k  t修改/对象/多线段，按命令提示输入M后回车，Y回车，不就完了，还用得着编一个小程序吗？

lijim985

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

fgc001

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

lsz008

原帖由 bozh79 于 2006-7-9 18:48 发表
0 z3 z  v# y6 ?5 S还要这样吗？
不是有自带的连接功能嘛！
修改/对象/多线段，按命令提示输入M后回车，Y回车，不就完了，还用得着编一个小程序吗？

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

licy0930

是这样的 谢谢啦

yhg43

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

ming78

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

votasee

什么用命令啊..用命令太烦了啊...
" u5 A( E& _4 T  }. t+ p不过不知道这个程序好不好用....先试试用...

我觉得目前比较好用的就是贱人工具箱的.连接功能...
% e  ]: C% n1 m1 [
* B& S5 O' e3 s0 k4 m) A我经常用...特别是旋转实体时,大家应该知道吧.都要求是闭合图形的..烦死了..

) ]* J2 R- W4 u# m( l( P9 [0 d4 I不过.现在问题来了,有的时候,即使有限公司.0001的小间隙,都连接不起来..真讨厌啊..

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

SunVei

Command: pe
PEDIT Select polyline or [Multiple]: m
0 H; ~$ M- Y1 {: ]0 {% ?; ]Select objects: Specify opposite corner: 946 found
Select objects:
- z) G) b% q% ?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

学习了。

ysryc99001

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