QQ登录

只需一步,快速开始

登录 | 注册 | 找回密码

三维网

 找回密码
 注册

QQ登录

只需一步,快速开始

展开

通知     

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

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

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

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

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

x
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;+ m& }( N- O5 o5 F
;;                                  ;;
( Q% w/ x6 l1 g;;          连接多段线程序          ;;
5 E. L' s2 Z2 p3 Z;;                                  ;;6 e) k% z; R+ Y( X+ @
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;1 `" F( h5 R  r5 @/ }
;;MYCAD V3, HZH2000,2005.6.12 5 M  \7 E, e( Y7 K
(defun c:line_link()- l1 ~  P4 g) C7 c. D1 Y" @
  (setvar "CMDECHO" 0)* _- `: B% Z* X' g2 Q' o
  (setq ss nil)
  Q+ L3 s% U3 H) z9 I  (prompt "\n请选择所有要连接的多段线、直线或圆弧: ")  ! b& y& _( o  d* u5 O3 u
  (setq ss (ssget '((0 . "[~B . C-K . M-Z]*"))))
+ E* r+ f' |& h  (command "undo" "begin")
$ ]4 f/ [; t. U; p6 B* N& w$ D: ^  2 V3 d) b, R  v4 z9 e
  (setq iss 0)
* W+ _5 ^5 p- S  (setq jss 0)  
* ~+ g( }5 }+ Q5 F! g0 z/ z  (while (< iss (sslength ss) )
% `" t( a, U) g1 I, T* @! c    (setq en (ssname ss iss))
& ~9 f' y: y' a! w5 @4 A' \' J    (setq ed (entget en))- ^0 D/ n* i2 U$ g( x9 j6 g
    (setq e_type (cdr (assoc '0 ed)))9 R# Y4 ?  [. H0 m7 n; ^3 n2 x
    (if (= (cdr (assoc '70 ed)) 1)3 I" M/ ~1 C6 I* \
        (ssdel en ss)
. K+ U* ^! F7 j& X. E/ t7 q        (setq iss (+ 1 iss))
4 f8 e; }  A+ f1 p    )
1 c+ w7 `% |1 E/ P   
" E0 c# J; W3 H+ K: A6 f    (if (/= e_type "LWPOLYLINE")2 b6 m8 E1 n3 F( n
        (setq jss 999)]
/ S* \) Y- B% R0 b7 q6 n, n    )   
7 V7 H& Y# C) s3 z1 q  ): M8 J# H  z! r
  , E- w3 \! Q5 h& s) S
  (if (= jss 0)      . S! {- p# Q6 x8 {/ _
      (command "pedit" "M" ss "" "J" "" "" ). L* F/ ?% v- `4 S. K
      (command "pedit" "M" ss "" "y" "J" "" "" )$ U2 A" i& E, F, t2 K- v
  )
; M, e& J7 E5 f$ F" Q) k# N8 U* b  (command "undo" "end")
( O$ c. [# K( V+ m9 ]  (princ "\n 连接完成!")3 I* k8 T  w/ X, e% u
  (princ)  H5 q$ L2 B9 t6 N
)
发表于 2006-7-9 18:48:48 | 显示全部楼层 来自: 中国新疆乌鲁木齐
还要这样吗?
1 G1 Q3 ~9 x% M& i6 ?不是有自带的连接功能嘛!
  a1 `+ H6 y3 g7 d修改/对象/多线段,按命令提示输入M后回车,Y回车,不就完了,还用得着编一个小程序吗?
发表于 2006-9-2 09:59:09 | 显示全部楼层 来自: 中国广东深圳

连接多段线程序(LISP)

在CAD里面输入命令PE,回车! S3 B; ~/ `0 {0 @& ]
选定的对象不是多段线
( w+ t7 n- u. v* D# B3 w; k- ^是否将其转换为多段线? <Y>回车" ?+ W: E, C' h9 z  S9 ?
输入选项 4 a# Z" |- A+ K
[闭合(C)/合并(J)/宽度(W)/编辑支持楼主点(E)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)2 Y& J+ v" Z7 [+ B: z
/放弃(U)]: j回车
: v7 ?& |6 _7 E# b选择对象: 可以框选(定对角点: 找到 4 个)也可以一个个选,选取好后,回车.
' B  W/ V$ o; a2 G1 C; s  Y3 c" S& l选择对象:% ^. V$ F5 m2 z6 r8 t
3 条线段已添加到多段线
. H5 {0 B6 s7 K+ A! E- g经过这样的操作就可以将多段线连成一条了
发表于 2006-9-2 12:25:31 | 显示全部楼层 来自: 中国广东汕头
3楼的方法很好,简单好用,我试了,谢谢。
发表于 2006-9-14 10:54:35 | 显示全部楼层 来自: 中国上海

帮帮我好吗?

原帖由 bozh79 于 2006-7-9 18:48 发表
  @$ b0 F- l9 i( z( {4 M还要这样吗?
- k6 h/ k: \# G( |. P不是有自带的连接功能嘛!9 y  a& }6 u2 [, ^2 X
修改/对象/多线段,按命令提示输入M后回车,Y回车,不就完了,还用得着编一个小程序吗?

9 R5 e1 ~, H0 y  N我划线时常常发现直线和曲线怎么老连不上不能变成一条多段线呀?
发表于 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 | 显示全部楼层 来自: 中国江苏无锡
什么用命令啊..用命令太烦了啊...; T+ K. e' z  M4 C  y9 t- N
不过不知道这个程序好不好用....先试试用...
5 j/ a- k5 K! e2 h1 e+ s; ?- i6 K" s( t, ~! C8 X4 s  k
我觉得目前比较好用的就是贱人工具箱的.连接功能...' C5 r8 Y7 r; a) N' G% X8 H$ ]

# Z) f( B3 `5 F1 D+ X我经常用...特别是旋转实体时,大家应该知道吧.都要求是闭合图形的..烦死了..$ z' X  q+ j9 _* n! \  [2 v
/ g5 x$ ]$ v+ D' v$ s+ B9 E
不过.现在问题来了,有的时候,即使有限公司.0001的小间隙,都连接不起来..真讨厌啊..
3 Q& N7 @) R! R" ?4 r; [: q8 _# K& s
+ `- P0 e1 {8 l8 v/ e; v% n: g如果能设置一下兼容值,比如兼容0.1以下的尺寸.全部耦合.那用起来不是更方便吗..
发表于 2010-2-2 12:13:34 | 显示全部楼层 来自: 中国台湾
Command: pe1 D( W7 o" Z+ B/ c9 V! v$ @
PEDIT Select polyline or [Multiple]: m: a; S$ _2 W+ t7 d3 u
Select objects: Specify opposite corner: 946 found+ _# Q4 o( U5 P! g
Select objects:
1 m* ]3 b4 t7 Q% n2 f% U4 EConvert Lines and Arcs to polylines [Yes/No]? <Y>3 ?+ E* T5 e5 f4 X4 p8 g9 e
Enter an option [Close/Open/Join/Width/Fit/Spline/Decurve/Ltype gen/Undo]: j! {, e) q7 b- y/ M
Join Type = Extend' b; b. {" ]4 N" ^% }
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 )

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