请教:如果一个3D FACE 的所有点都在同一平面,如何将它转换成二维平面的POLYLINE

diguo

龙龙仔

(defun c:test (/ HOLDECHO HOLDOSMODE SS N TMP)
  
  (defun FLATTEN (SS)
    (command "_.UCS" "")
    (command "_.MOVE" SS "" '(0 0 1e99)        "" "_.MOVE" "_p" "" '(0 0 -1e99)
             ""
            )
    (command "_.UCS" "")
    (princ)
  )
  
  (setq HOLDECHO (getvar "cmdecho"))
  (setq HOLDOSMODE (getvar "osmode"))
  (setvar "cmdecho" 0)
  (setvar "osmode" 0)
  (defun DXF (ASS TMP)
    (cdr (assoc ASS TMP))
  )
  (setq SS (ssget '((0 . "3DFACE"))))
  
  (FLATTEN SS);把Z改为0
  
  (setq N 0)
  (repeat (sslength SS)
    (setq TMP (entget (ssname SS N)))
    (command "_.PLINE"
             (DXF 10 TMP)
             (DXF 11 TMP)
             (DXF 12 TMP)
             (DXF 13 TMP)
             "C"
    )
    (setq N (1+ N))
  )
  (command "_.ERASE" SS "")
  (setvar "osmode" HOLDOSMODE)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)