[求助]怎么将SPLINE 线转成PLINE线!

tchen

这个问题我一直没弄懂.我在网上找到一个转换程序 但是运行不起

代码入下

;; ! ****************************************************************************
;; ! 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
;; ! e-mail   : rakesh.rao@4d-technologies.com
;; ! Web      : www.4d-technologies.com
;; ! ****************************************************************************

(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
)
)

哪位高手能够帮我分析这段代码 (这段代码里的(setq hnd (LI_item 5 (entget (entlast)))) 这条语句我感觉就有问题  根本没有定义LI_item 这个函数)或者是能告知我一个解决方法(最好附核心代码段) 谢谢了!

tchen

哎 怎么没高手来讨论讨论啊!!

这里环境太死了

vken7az2p

(setq hnd (LI_item 5 (entget (entlast))))
(command "._Dxfout" "c:/$temp$.dxf" "_Objects" ename "" "_Version" "_R12" "_Binary")

請問你在哪找的代碼

因為你提供的不完整喔

還有上面第二行的咚咚你也看一下吧

還是有問題的

另外你想找的程式

可以搜尋一下

應該可以找到

作者可以搜尋版主 龍龍仔 的

byghbcx

缺少li_item函数,

(defun PL_Ell2Pl( / ss k)
  (setq ss (ssget))
  (setq k 0)
  (repeat (sslength ss)
   (setq ename (ssname ss k))
(PL_Spl2Pl ename)
    (entdel ename)
    (setq k (+ k 1))
    )
)

(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
)
)

(defun LI_item (n e / f)
  (setq f T)
  (if f ; if f then e is an entity list.
    (cdr (assoc n e))
    (cdr (assoc n (entget e)))
  )
)

tcsl9621

我用了个算法实现了这个功能比这个方法好的多。呵……