[密技]：spline转pline的超精简代码

841594

说明：
这段程序是偶然发现的思路，长仅23行，虽不完美但很有趣。
优点：代码简洁，速度快，拟和度良好。
缺点：不能处理曲线自交情形，这个改起来很麻烦。不能处理闭合，这个很容易修改。有的时候不管用，这个好像没办法。
声明一下，本程序并非实用程序，仅供编程思路上的参考。

JOSDENNIS

嘗試一下, 送你一個幣! 不過我要的轉換要求很高 ,

xyp1964

高要求（自定）：签名栏下的“线转多段线”程序。

Underway

;; ! ****************************************************************************
;; ! PL_Spl2Pl, PL_Ell2Pl
;; ! ****************************************************************************
;; ! Function : Convert a SPLINE,ELLISPE object to a normal polyline
;; ! Arguments:
;; !            'ename'  - Name of SPLINE object
;; ! Action   : Does a DXFOUT (R12 format) and DXFIN of the SPLINE to produce a
;; !            normal polyline
;; ! Updated  : April 15, 1999
;; ! Copyright: (C) 2000, Four Dimension Technologies, Singapore
;; ! Contact  : rakesh.rao@4d-technologies.com for help/support/info

(defun PL_Ell2Pl( ename )
(PL_Spl2Pl ename)
)

(defun PL_Spl2Pl(ename / hnd elast )
(setq hnd (LI_item 5 (entget (entlast))))
(command "._Dxfout" "c:/$temp$.dxf" "_Objects" ename "" "_Version" "_R12" "_Binary")
(if #AcadMap (command "No"))
(command "._Dxfin" "c:/$temp$.dxf")
(if (/= hnd (LI_item 5 (entget (setq elast (entlast)))))
        elast
        nil
)
)

visit here to get other function
http://www.4d-technologies.com/techcenter/index.htm

狂刀

用ｏｆｆｓｅｔ的思路是有先天缺陷的．玩玩倒是可以，收币就．．．那个．．．不必了吧：Ｐ

用ｗｍｆｏｕｔ也一样可以写的很短，且支持所有矢量实体，缺点是．．．．

841594

最初由 狂刀 发布
[B]用ｏｆｆｓｅｔ的思路是有先天缺陷的．玩玩倒是可以，收币就．．．那个．．．不必了吧：Ｐ

用ｗｍｆｏｕｔ也一样可以写的很短，且支持所有矢量实体，缺点是．．．． [/B]

收币也是为了好玩，各位大佬谁还在乎一个爱心币呢。。。
既然4楼这么好的程序已出，收币就此取消了。
4楼程序更加实用，只是没有贴全（无碍）。
wmfout的缺点是。。。。请狂刀兄把话讲完。

cy956

缺点是精度不能自控，有时会出现位移差。