[求助]：怎样才能把复合线批量转换为多义线

lsy

怎样才能把复合线批量转换为多义线:i

XDSoft

最初由 lsy 发布
[B]怎样才能把复合线批量转换为多义线:i [/B]

你说的复合线是指什么？

lsy

由多条直线组成一个整体的线条，并且可以拟合

lsy

好象没有PJOIN命令

xulao

先将其中一根直线用PEDIT命令变为多义线
然后用倒园角依次相连，就变成一根多义线。
（条件2002下）

szkevin

最初由 lsy 发布
[B]由多条直线组成一个整体的线条，并且可以拟合 [/B]

去下载xd工具箱吧,里面有把lwployline和spline转化成pline的工具.还有把pline线和上述两种线互转的.
这两线转pline一定要工具,不用工具是先存成低版本,再用高版本打开也能转,这里要看plinetype的变量,设置这个变量请看帮助文件.

lyzzq

试试上面的办法

lsy

xd工具箱里只有把其它线条转换为PLINE的工具，没有把PLINE线条转换为SPLINER的工具

秋枫

最初由 lsy 发布
[B]没有把PLINE线条转换为SPLINER的工具 [/B]

这个用标准命令：

1. 
   
2. [FONT=courier new]
   
3. Command: pedit
   
4. Select polyline or [Multiple]:
   
5. Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype
   
6. gen/Undo]: s
   
7. Enter an option [Close/Join/Width/Edit vertex/Fit/Spline/Decurve/Ltype
   
8. gen/Undo]:
   
9. Command: splinedit
   
10. 
    
11. Select spline:
    
12. Enter an option [Close/Move vertex/Refine/rEverse/Undo/eXit] <eXit>:
    
13. Command:[/FONT]

复制代码

XDSoft

最初由 lsy 发布
[B]xd工具箱里只有把其它线条转换为PLINE的工具，没有把PLINE线条转换为SPLINER的工具 [/B]

以前写过，再提供一次，下面程序可以把任意的多义线、弧、园、椭圆转换成SPLINE。

把下面程序拷贝到“晓东工具箱”安装目录的LISP目录下，加载后用XDTB_Curve2SPL运行。

2. 
   
3. [FONT=courier new]
   
4. ;|
   
5.    命令：XDTB_Curve2SPL
   
6.    功能：将POLYLINE,ARC,CIRCLE,ELLIPSE转换成SPLINE
   
7. |;
   
8. (defun c:XDTB_Curve2SPL (/ tf ss e)
   
9.   (setq tf (if (= 1 (xdrx_yesorno "是否保留原来曲线" 0))
   
10.               nil
    
11.               t
    
12.            )
    
13.   )
    
14.   (prompt "\n请选取要转换成SPLINE的曲线[*POLYLINE,ARC,CIRCLE,ELLIPSE]<退出>:")
    
15.   (if (setq ss (ssget '((0 . "*polyline,arc,circle,ellipse"))))
    
16.     (progn
    
17.       (setq i 0 len (sslength ss))
    
18.       (xdrx_setsstodb ss 0)
    
19.       (while (setq e (xdrx_getentdata 0))
    
20.         (if (xdrx_curve->spline e tf)
    
21.           (setq i (1+ i))
    
22.         )
    
23.       )
    
24.       (prompt (strcat "\n选取了 " (itoa len)" 条曲线，共转换了 " (itoa i) " 条曲线到SPLINE。"))
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )
    
29. [/FONT]

<br /> [FONT=courier new]<br /> ;|<br />    命令：XDTB_Curve2SPL<br />    功能：将POLYLINE,ARC,CIRCLE,ELLIPSE转换成SPLINE<br /> |;<br /> (defun c:XDTB_Curve2SPL (/ tf ss e)<br />   (setq tf (if (= 1 (xdrx_yesorno "是否保留原来曲线" 0))<br />               nil<br />               t<br />            )<br />   )<br />   (prompt "\n请选取要转换成SPLINE的曲线[*POLYLINE,ARC,CIRCLE,ELLIPSE]<退出>:")<br />   (if (setq ss (ssget '((0 . "*polyline,arc,circle,ellipse"))))<br />     (progn<br />       (setq i 0 len (sslength ss))<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (if (xdrx_curve->spline e tf)<br />           (setq i (1+ i))<br />         )<br />       )<br />       (prompt (strcat "\n选取了 " (itoa len)" 条曲线，共转换了 " (itoa i) " 条曲线到SPLINE。"))<br />     )<br />   )<br />   (princ)<br /> )<br /> [/FONT]

lsy

不好意思，以前的我没有看到

yxc

最初由 lsy 发布
[B]怎样才能把复合线批量转换为多义线:i [/B]

这样做满足你的需求吗？

命令: pe PEDIT 选择多段线或 [多条(M)]: m
选择对象: 指定对角点: 找到 2 个     ；可以交叉框选

选择对象:
输入选项
[闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放
弃(U)]: s
输入选项
[闭合(C)/打开(O)/合并(J)/宽度(W)/拟合(F)/样条曲线(S)/非曲线化(D)/线型生成(L)/放
弃(U)]:

lifengyu

用express工具下的pljoin可以解决上述问题，本人作过许多工程，屡试不爽，没问题。

msdg

最初由 lifengyu 发布
[B]用express工具下的pljoin可以解决上述问题，本人作过许多工程，屡试不爽，没问题。 [/B]

能详细说说吗？有点不太明白。

XDSoft

最初由 lsy 发布
[B]xd工具箱里只有把其它线条转换为PLINE的工具，没有把PLINE线条转换为SPLINER的工具 [/B]

谁说的 ：）

晓东工具箱有把任意的ARC,CIRCLE,ELLIPSE,POLYLINE转换成SPLINE，晓东工具箱早就提供过程序了。

需要的，大家去到晓东工具箱论坛看看程序和下载0.27版本，在菜单：曲线－增强转换