QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

查看: 9084|回复: 11
收起左侧

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

[复制链接]
发表于 2006-7-9 18:35:03 | 显示全部楼层 |阅读模式 来自: 中国安徽芜湖

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

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

x
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  K1 `: H* x* ?4 R6 @;;                                  ;;3 x. O9 }: D  ]7 X
;;          连接多段线程序          ;;) ~& E; p: O) ~- {8 Q
;;                                  ;;
6 V4 x' I) c$ [. w( f3 B;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
( [- A2 ]% L1 e( J! @( v;;MYCAD V3, HZH2000,2005.6.12
# m5 D" I! `. |0 u# X( _(defun c:line_link()! ~" d5 P# K9 B' ?/ @6 @
  (setvar "CMDECHO" 0)" C& E# V$ ?5 c8 g1 @6 h
  (setq ss nil)
& n2 t, F& @( k1 U; m" d! U5 @  (prompt "\n请选择所有要连接的多段线、直线或圆弧: ")  
% q6 t  f! [8 y7 L  (setq ss (ssget '((0 . "[~B . C-K . M-Z]*"))))6 l" z# S6 `5 e. }/ w
  (command "undo" "begin")$ ?4 j% S$ u# c" j4 b
  
8 _( S2 n2 R0 ~* ?  (setq iss 0)+ u- B* v8 L! O8 O1 W8 k8 t
  (setq jss 0)  , U" g  q  o" i3 D7 b
  (while (< iss (sslength ss) )3 _( F8 J. J! {1 |* {8 `
    (setq en (ssname ss iss))2 {5 j1 U8 G4 z
    (setq ed (entget en))
- d. D# R% S% c4 W8 s  L* }; M% m    (setq e_type (cdr (assoc '0 ed)))% G4 v3 {/ |( y1 p$ t2 j1 |4 \
    (if (= (cdr (assoc '70 ed)) 1)  v5 E  N& w1 q5 e/ c; T
        (ssdel en ss)# M+ F, I& C  O- a, P/ T- P
        (setq iss (+ 1 iss))/ A5 G4 h# i3 K
    )
9 @/ G5 T& P, e) G# V: R- c, r   
' P- q4 B5 Y0 x( M- ^    (if (/= e_type "LWPOLYLINE")9 v. U/ ?& w$ @7 Y( |( k' d6 l3 O
        (setq jss 999)]0 ^8 x. N$ _& v
    )   
- l( n( o5 w" k/ L  )) I% Z4 H' m$ k1 a9 U$ X
  
& s1 @/ x. f7 N& y  (if (= jss 0)      
& L( z. N0 A% m( B; |      (command "pedit" "M" ss "" "J" "" "" )( n5 p, @) J2 C
      (command "pedit" "M" ss "" "y" "J" "" "" )& G2 B1 V$ D; ^# q# ^/ _
  )
2 _: K/ D. F6 F& Q6 |  (command "undo" "end")
2 K2 v! s# q; H, B  (princ "\n 连接完成!")
: [6 q. x" f& m; S  (princ)3 F! ?6 |7 [9 Y: b9 s$ Y7 Y6 f
)
发表于 2006-7-9 18:48:48 | 显示全部楼层 来自: 中国新疆乌鲁木齐
还要这样吗?- L* @/ {# q0 A5 c* c, o6 _
不是有自带的连接功能嘛!
0 y  l5 y  P0 A2 ?' m* p0 B修改/对象/多线段,按命令提示输入M后回车,Y回车,不就完了,还用得着编一个小程序吗?
发表于 2006-9-2 09:59:09 | 显示全部楼层 来自: 中国广东深圳

连接多段线程序(LISP)

在CAD里面输入命令PE,回车0 \& B: V; I* e  u* z: s% h: I
选定的对象不是多段线; P7 F- C" v9 ?) U( j6 P
是否将其转换为多段线? <Y>回车
& C: u4 k: h4 X3 ^输入选项 . o& T  `5 Q$ V' R6 S
[闭合(C)/合并(J)/宽度(W)/编辑支持楼主点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)
2 Y9 C* z9 {* q9 c% R3 A. {$ K/放弃(U)]: j回车( u6 [, r5 K* }# @; M! P( e+ B
选择对象: 可以框选(定对角点: 找到 4 个)也可以一个个选,选取好后,回车.
' D( F2 V; x4 Y7 r选择对象:  R, W8 ~- j" h, D3 x7 A( S
3 条线段已添加到多段线
% y$ e4 `9 F/ B! s经过这样的操作就可以将多段线连成一条了
发表于 2006-9-2 12:25:31 | 显示全部楼层 来自: 中国广东汕头
3楼的方法很好,简单好用,我试了,谢谢。
发表于 2006-9-14 10:54:35 | 显示全部楼层 来自: 中国上海

帮帮我好吗?

原帖由 bozh79 于 2006-7-9 18:48 发表
2 a2 J2 j, M: y; m* K0 T) Y还要这样吗?2 j6 z# [! L0 g2 _, I' \
不是有自带的连接功能嘛!* t* }0 G' j3 S& P, r- K& f2 r
修改/对象/多线段,按命令提示输入M后回车,Y回车,不就完了,还用得着编一个小程序吗?
7 {8 r/ L# J* b+ A
我划线时常常发现直线和曲线怎么老连不上不能变成一条多段线呀?
发表于 2006-10-31 23:39:31 | 显示全部楼层 来自: 中国福建漳州
是这样的 谢谢啦
发表于 2007-2-9 10:23:02 | 显示全部楼层 来自: 中国陕西西安
楼主没有交代程序放在那才能运行!
发表于 2010-1-19 13:59:00 | 显示全部楼层 来自: 中国台湾
简化我PE的输入命令 谢谢啦
发表于 2010-2-1 16:10:33 | 显示全部楼层 来自: 中国江苏无锡
什么用命令啊..用命令太烦了啊...
. A" p1 [* E& K# Y不过不知道这个程序好不好用....先试试用...2 ~: [4 t, F4 o2 r
# k% g- U# c4 o7 F$ v$ A
我觉得目前比较好用的就是贱人工具箱的.连接功能...: s" |% o2 Q, T3 q$ p  s2 a0 U, u7 w
! z# W+ V8 A- d: G) S
我经常用...特别是旋转实体时,大家应该知道吧.都要求是闭合图形的..烦死了..
' @; q( M7 D- y" U, w/ d$ k4 D+ w: t& O4 n5 {5 X
不过.现在问题来了,有的时候,即使有限公司.0001的小间隙,都连接不起来..真讨厌啊..; s0 i/ F' Y/ ^# j2 S

; v, N+ l7 {! c; |/ D1 _/ `如果能设置一下兼容值,比如兼容0.1以下的尺寸.全部耦合.那用起来不是更方便吗..
发表于 2010-2-2 12:13:34 | 显示全部楼层 来自: 中国台湾
Command: pe3 _9 q/ j5 H) q  ^6 ]6 `) k
PEDIT Select polyline or [Multiple]: m
' k# H5 p8 y. O/ h' ]' _0 a& sSelect objects: Specify opposite corner: 946 found% f2 Y4 w6 l. N1 T
Select objects:
2 [9 w+ O3 u; O, z/ Q, l3 o* [: [Convert Lines and Arcs to polylines [Yes/No]? <Y>% q$ T4 [4 x  C
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j$ k; c* E" \! T) h" U2 K
Join Type = Extend: h4 m* R& r8 W1 @& m, H* p
Enter fuzz distance or [Jointype] <0.000>: 0.0001   ;<=== 容差

评分

参与人数 1三维币 +3 收起 理由
woaishuijia + 3 技术讨论

查看全部评分

发表于 2010-6-4 22:00:32 | 显示全部楼层 来自: 中国上海
学习了。
发表于 2010-7-8 12:44:44 | 显示全部楼层 来自: 中国广东深圳
希望能点一下就能够串连接起来的程序
发表回复
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Licensed Copyright © 2016-2020 http://www.3dportal.cn/ All Rights Reserved 京 ICP备13008828号

小黑屋|手机版|Archiver|三维网 ( 京ICP备2023026364号-1 )

快速回复 返回顶部 返回列表