[原创]：SPLINE 转 POLYLINE（过时）

xyp1964

将SPLINE实体 转为 POLYLINE实体，以便于编辑。加载spl.lsp，运行spl.

wjphd

直接存为R12 不是可以吗？

lqq

如图中SPL线多的话是不是将文件量也变大了

fylinwater

程序思想蛮巧妙的，另辟蹊径。
最好不要用命令名spl ，这样和AutoCAD默认的SPLINE命令缩写重复。
我也做过一个，可以判别曲线误差，如果spl像直线，就用两点替代，下次整理上来

已经有下载HTTP://www.MingSoft.Net

jx623

下载并加载了该程序，但是输入spl命令还是没有用！请问能不能详细的解说一下，我用的是2002版本谢谢！

zjr9621

要这么多爱心币才能下载啊！看来我还要努力啊!!!!

xyp1964

[php]

最初由 fylinwater 发布
[B]最好不要用命令名spl ，这样和AutoCAD默认的SPLINE命令缩写重复。[/B]

接受意见，改名SL2PL，用户可以另定义简化命令。

下载不了可以复制以下东东：
;|
sl2pl.lsp spline转pline
C:sl2pl
-- XYP@bsedi.com
2004.09.25;
A 2004.10.21
|;
(prompt "\n\r      加载spline转pline程序。")
;-------------------------------------------
;;;主程序

(defun c:sl2pl(/ sp df ss1 n s1 pt1)
  (cmdla0)
  (mkla"参考点"1)
  (setq sp (entsel"\n\t选择SPline线 : ")
        df (fix (getreal"\n\t等分数值 : "))
         )
  ;(setq t1 (getvar"cdate"))
  (command "divide" sp df)
  (setq ss1 (ssget "X"(list(cons 0 "point")(cons 8 "参考点"))))
  (setq n 0)
  (mkla"转化线"4)
  (command"pline")
  (while (setq s1 (ssname ss1 n))
    (setq pt1 (dxf 10 (entget s1)))
    (command pt1)
    (setq n (+ 1 n))
    )
  (command"c")
  (command "erase" ss1 "");删除参考点
  ;(setq t2 (getvar"cdate"))
  ;(princ(rtos (- t2 t1) 2 10))
  (cmdla1)
  ;(pxyp"SPL      (spline转pline)")
  )

;;;-------------------------------------------
;;;子程序
;;;
(defun CMDLA0 ()
  (setq cmdech (GETVAR "CMDECHO"))
  (setq oom (getvar "orthomode"))
  (setq osm (getvar "osmode"))
  (SETQ LA (getvar "clayer"))
  (setvar "regenmode" 1)
  (SETVAR "CMDECHO" 0)
  (princ)
  )

;;;
(defun CMDLA1 ()
  (SETVAR "CMDECHO" cmdech)
  (setvar "orthomode" oom)
  (setvar "osmode" osm)
  (setvar "clayer" LA)
  (setvar "regenmode" 1)
  (princ)
  )

;;;
(defun ureal (bit kwd msg def / inp)
  (if def
    (setq msg (strcat "\n" msg "<" (rtos def 2) ">: ")
          bit (* 2 (fix (/ bit 2)))
    )
    (setq msg (strcat "\n" msg ": "))
  )
  (initget bit kwd)
  (setq inp (getreal msg))
  (if inp inp def)
  )

;;;
(Defun MKLA (a b)
  (If (= (Tblsearch "layer" a) nil)
    (Command "layer" "m" a "c" b a "")
    (Command "layer" "t" a "s" a "c" b a "")
    )
  )

;;;
; ----------------------- DXF --------------------------
(defun dxf (code elist) (cdr (assoc code elist)))

;;;
(DEFUN PXYP (TXT1)
  (SETQ        TXT1 (STRCAT "\n\r      程序命令: "  TXT1 "      -- XYP@bsedi.com"))
  (PRINC TXT1)
  (Princ)
  );defun

;;;
(pxyp"SL2PL      (spline转pline)")
(princ)
;-------------------------------------------
;;;END
[/php]

梦断江南

用divide等分对不是很平滑的地方精度会不够。
贴一个最简单的转换sp到pl。
(command "_.DXFOUT" "Temp.dxf" "_OBJ" (ssget) ""   "_VER" "_R12" "_BIN"         "_.DXFIN" "Temp.dxf")
不过点会很多哦：）

snsj

直接用ET扩展函数，平滑精度和点数都很好
[php]
;;;|样条曲线到多义线
;;;|spl-pl
(defun c:spl-pl (/ pt ent i n ss)
  (setq ss (ssget '((0 . "SPLINE")))n 0)
  (repeat (sslength ss)   
  (setq pt(ACET-GEOM-SPLINE-POINT-LIST(setq ent(ssname ss n))nil))
(command "pline" (foreach i pt (command i)))
  (command ".erase" ent "")
    (setq n(1+ n))
    )(princ)
  )
[/php]

zjr9621

2004里FLANTTEN命令可以直接将SPL线转换成PL线!

xyp1964

最初由 zjr9621 发布
[B]2004里FLANTTEN命令可以直接将SPL线转换成PL线! [/B]

“FLANTTEN”？
哪儿来的命令？找不着！

xyp1964

太简陋了！
高级版：http://www.xdcad.net/forum/showt ... y=&pagenumber=1

xxxyzxx

很实用的工具，谢谢楼主提供

狂刀

高级版有转换功能么？我怎么没看见？

madeinchina

晓东工具箱里好象有这一项