为何用flatten转换spl为pline后无法复制为pline线

onemax01

以下程序用ET的flatten将spl转换为pline,但转换后的的线条复制后仍为spl线，不知为何

2. (defun C:tt (/ en0 pt1 pt2 o_s acadObj doc)
   
3.   (command "undo" "be")
   
4.   (setvar "cmdecho" 0)
   
5.   (setq o_s (getvar "osmode"))
   
6.   (prompt  "\n 选取spl线:")
   
7.   (setq en0 (ssname (ssget ":S" '((0 . "SPLINE"))) 0))
   
8.   (setq pt1 (getpoint "\n拾取基点:") pt2 (getpoint "\n拾取目标点:") )
   
9.   (setvar "osmode" 0)
   
10.   (if en0
    
11.     (progn
    
12.        (setq acadObj (vlax-get-acad-object))
    
13.        (setq doc (vla-get-ActiveDocument acadObj))
    
14.        (vla-sendcommand doc "flatten p   ")
    
15.        (setq en1 (entlast))
    
16.        (command "copy" en1 "" pt1 pt2 "")
    
17.      )
    
18.    )
    
19.   (setvar "osmode" o_s)
    
20.   (command "undo" "e")
    
21.   (prin1)
    
22. )

(defun C:tt (/ en0 pt1 pt2 o_s acadObj doc)<br />   (command "undo" "be")<br />   (setvar "cmdecho" 0)<br />   (setq o_s (getvar "osmode"))<br />   (prompt  "\n 选取spl线:")<br />   (setq en0 (ssname (ssget ":S" '((0 . "SPLINE"))) 0))<br />   (setq pt1 (getpoint "\n拾取基点:") pt2 (getpoint "\n拾取目标点:") )<br />   (setvar "osmode" 0)<br />   (if en0<br />     (progn<br />        (setq acadObj (vlax-get-acad-object))<br />        (setq doc (vla-get-ActiveDocument acadObj))<br />        (vla-sendcommand doc "flatten p   ")<br />        (setq en1 (entlast))<br />        (command "copy" en1 "" pt1 pt2 "")<br />      )<br />    )<br />   (setvar "osmode" o_s)<br />   (command "undo" "e")<br />   (prin1)<br /> )

wzg356

我帖子有取得各种线/曲线园椭圆弧spL等坐标—把坐标画pLiNe线就行

onemax01

我帖子有取得各种线/曲线园椭圆弧spL等坐标—把坐标画pLiNe线就行

老大贴子里那个多段线处理程序我试用过，spl转换出来的pline线为折线而非圆弧多段线，而且折线点稍多，还是觉得ET工具里的flatten转换出的圆弧多段线较为理想，所以想用lisp调用flatten命令处理spl线并进行后续操作，只是不知为何转换后的pline线无法复制，程序认出的（entlast）对象仍旧是原来的spl线

统一网名

我的是cad 2021测试复制后的类型是 LWPOLYLINE