(XD::PickSet:L2PL)将选择集内所有分散的LINE,POLYLINE,ARC 连接成POLYLINE（支...

Lispboy

1. ;|
   
2. 将选择集内所有分散的LINE,POLYLINE,ARC连接成POLYLINE
   
3. 参数：
   
4.    ss ----  选择集（函数未做判断，调用保证LINE,POLYLINE,ARC构建的选择集）
   
5.    info       -----  提示串，如果不等于"", 开启进度条，INFO为进度条前面的提示字符串
   
6. 
   
7. 返回值：
   
8.    选择集（连接成功的POLYLINE）
   
9. |;
   
10. (defun XD::PickSet:L2PL (ss info / e i n s0 ss)
    
11.   (xdrx_sysvar_push '("cmdecho" 0))
    
12.   (xdrx_setmark)
    
13.   (setq n (sslength ss))
    
14.   (setq i 0)
    
15.   (xdrx_setsstodb ss 0)
    
16.   (if (/= info "")
    
17.     (xdrx_pbarbegin info n)
    
18.   )
    
19.   (repeat n
    
20.     (if (setq e (xdrx_getentdata 0))
    
21.       (progn
    
22.         (command ".pedit" e)
    
23.         (if (not (wcmatch (xdrx_getentdxf 0) "*POLYLINE"))
    
24.           (XD::DOC:dstop2)
    
25.         )
    
26.         (command "j" ss "" "")
    
27.         (xdrx_setenttodb e)
    
28.         (if (= (xdrx_getentdxf 70) 1)
    
29.           (progn
    
30.             (ssdel e s0)
    
31.             (ssadd e ss)
    
32.             (setq n (1- n))
    
33.           )
    
34.         )
    
35.       )
    
36.     )
    
37.     (if (/= info "")
    
38.       (xdrx_pbarsetpos (setq i (1+ i)))
    
39.     )
    
40.   )
    
41.   (if (/= info "")
    
42.     (xdrx_pbarend)
    
43.   )
    
44.   (setq ss (xdrx_getss))
    
45.   (xdrx_sysvar_pop)
    
46.   ss
    
47. )

;|<br /> 将选择集内所有分散的LINE,POLYLINE,ARC连接成POLYLINE<br /> 参数：<br />    ss ----  选择集（函数未做判断，调用保证LINE,POLYLINE,ARC构建的选择集）<br />    info       -----  提示串，如果不等于"", 开启进度条，INFO为进度条前面的提示字符串<br /> <br /> 返回值：<br />    选择集（连接成功的POLYLINE）<br /> |;<br /> (defun XD::PickSet:L2PL (ss info / e i n s0 ss)<br />   (xdrx_sysvar_push '("cmdecho" 0))<br />   (xdrx_setmark)<br />   (setq n (sslength ss))<br />   (setq i 0)<br />   (xdrx_setsstodb ss 0)<br />   (if (/= info "")<br />     (xdrx_pbarbegin info n)<br />   )<br />   (repeat n<br />     (if (setq e (xdrx_getentdata 0))<br />       (progn<br />         (command ".pedit" e)<br />         (if (not (wcmatch (xdrx_getentdxf 0) "*POLYLINE"))<br />           (XD::DOC:dstop2)<br />         )<br />         (command "j" ss "" "")<br />         (xdrx_setenttodb e)<br />         (if (= (xdrx_getentdxf 70) 1)<br />           (progn<br />             (ssdel e s0)<br />             (ssadd e ss)<br />             (setq n (1- n))<br />           )<br />         )<br />       )<br />     )<br />     (if (/= info "")<br />       (xdrx_pbarsetpos (setq i (1+ i)))<br />     )<br />   )<br />   (if (/= info "")<br />     (xdrx_pbarend)<br />   )<br />   (setq ss (xdrx_getss))<br />   (xdrx_sysvar_pop)<br />   ss<br /> )

laibinwu

(XD::Begin)
(XD::DOC:dstop2)
(XD::End)
这三个函数哪里有

Lispboy

laibinwu 发表于 2013-7-23 20:36
(XD::Begin)
(XD:OC:dstop2)
(XD::End)

XD::Doc:DStop2 刚发布，见： http://bbs.xdcad.net/forum.php?mod=viewthread&tid=669549

XD::Begin
XD::End

在通用的LISP函数库里面，论坛上应该是ST朋友写的，名字叫 XD::Program:Begin..... End, 你搜下函数发布。

Free-Lancer

Pedit J 有间隙控制，这个在低版本下Ok，高版本下反而失去了Pedit特点

Lispboy

Free-Lancer 发表于 2013-7-23 23:08
Pedit J 有间隙控制，这个在低版本下Ok，高版本下反而失去了Pedit特点

可以考虑下用高版本的PEDIT重写下函数。