连接多段线程序(LISP)

hzh2000

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;                                  ;;
. B! G* T" M; S- V* _( }0 ?3 K- o;;          连接多段线程序          ;;
% w' i- o, N6 T  m; ~- \! o( d;;                                  ;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;MYCAD V3, HZH2000，2005.6.12
(defun c:line_link()
  (setvar "CMDECHO" 0)
  (setq ss nil)
  (prompt "\n请选择所有要连接的多段线、直线或圆弧: ")  
6 ^. Q" j( I4 B" U  (setq ss (ssget '((0 . "[~B . C-K . M-Z]*"))))
  (command "undo" "begin")
/ _8 H% |/ N& a  F; L6 b  J- j  
' {6 M6 ~" t1 c" h! q7 Y: G+ A# f  (setq iss 0)
* b) v, r! @0 b3 q/ a  (setq jss 0)  
7 H& h/ p: j# p1 X  T; B% u  (while (< iss (sslength ss) )
. E9 X, e/ ?# N, w# J    (setq en (ssname ss iss))
    (setq ed (entget en))
    (setq e_type (cdr (assoc '0 ed)))
! N/ }7 N$ {9 p7 z/ e6 f/ P( T) |    (if (= (cdr (assoc '70 ed)) 1)
        (ssdel en ss)
        (setq iss (+ 1 iss))
    )
   
+ ^+ t8 q* O/ L. |- F    (if (/= e_type "LWPOLYLINE")
        (setq jss 999)]
    )   
  )
* @, {! {: K1 R6 N  }/ p0 ?  
! S( j# K. B6 f$ S1 g  (if (= jss 0)      
/ P5 f2 b: e; w' j# U1 l; q      (command "pedit" "M" ss "" "J" "" "" )
      (command "pedit" "M" ss "" "y" "J" "" "" )
: s% K. g' w, Q$ K7 ~  )
  (command "undo" "end")
- t6 \$ O4 p- L( g1 F  (princ "\n 连接完成！")
. G, f' s% l; N  ~" r  (princ)
7 P/ ]" m" Q/ ?1 J& ~4 I8 a )

铭珠初海

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

lijim985

在CAD里面输入命令PE,回车
选定的对象不是多段线
% W' D. {- F  G' w是否将其转换为多段线? <Y>回车
; p. I: Z; B* g& h. U输入选项
! c. [) B; @( |+ E/ f* z, L[闭合(C)/合并(J)/宽度(W)/编辑支持楼主点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
/放弃(U)]: j回车
' c/ |7 @# K/ S6 G选择对象: 可以框选(定对角点: 找到 4 个)也可以一个个选,选取好后,回车.
) ?; S+ R7 [0 S+ _) Y! P选择对象:
3 条线段已添加到多段线
经过这样的操作就可以将多段线连成一条了

fgc001

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

lsz008

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

% w; h. t. g0 F) c我划线时常常发现直线和曲线怎么老连不上不能变成一条多段线呀？

licy0930

是这样的 谢谢啦

yhg43

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

ming78

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

votasee

什么用命令啊..用命令太烦了啊...
7 B& z* B# w% z% d# l+ v不过不知道这个程序好不好用....先试试用...
) l1 ^8 _. F; M& Z9 {
我觉得目前比较好用的就是贱人工具箱的.连接功能...

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

不过.现在问题来了,有的时候,即使有限公司.0001的小间隙,都连接不起来..真讨厌啊..
1 B2 i; q2 s2 p& x9 B5 {$ f
如果能设置一下兼容值,比如兼容0.1以下的尺寸.全部耦合.那用起来不是更方便吗..

SunVei

Command: pe
! m+ {7 A8 v9 w. S6 ?PEDIT Select polyline or [Multiple]: m
/ {+ R2 i; ^' b8 j: o0 BSelect objects: Specify opposite corner: 946 found
( Z& \0 y0 s7 V0 VSelect objects:
0 I3 A- n6 _" @Convert Lines and Arcs to polylines [Yes/No]? <Y>
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j
0 N5 ?2 X0 w8 {Join Type = Extend
Enter fuzz distance or [Jointype] <0.000>: 0.0001   ;<=== 容差

lyn3

学习了。

ysryc99001

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