[编程申请]：这个可能有点难度，将3个顶点与4个顶点的面（3dface）变成线

lengliqun

求程序，将3个顶点与四个顶点的面（3dface）变成线，能多选。谢谢。
*-*6 *-*6 *-*6 *-*6 *-*6 *-*6 *-*6 *-*6 *-*6 *-*6 *-*6


补充：获取3dface的顶点，然后顶点连线应该可以。

这里有一个，可CAD2004提示：
http://www.xdcad.net/forum/showt ... 2623955#post2623955

(defun C:3DFtoPL(/ ss1 sl i)
  (setq ss1 (ssget "X" (list (cons '0 "3DFACE"))))
  (setq sl (sslength ss1))
  (setq i 0)
  (while (< i sl)
     (setq ent1 (entget (setq e1 (ssname ss1 i))))
     (setq pt1 (cdr (assoc '10 ent1)))
     (setq pt2 (cdr (assoc '11 ent1)))
     (setq pt3 (cdr (assoc '12 ent1)))
     (setq pt4 (cdr (assoc '13 ent1)))
     ;  Plain 2D Polylines
     ;(command "PLINE" pt1 pt2 pt3)
     ; 3dPolylines ->
     (command "3DPOLY" pt1 pt2 pt3)
     (if (/= pt3 pt4) (command pt4 "c") (command "c") )
     (entdel e1)
     (setq i (1+ i))
  )
  (setq ss1 nil)
  (princ)
)

(princ "\nC:3DFtoPL loaded, to run type 3DFtoPL.")
(princ)





命令: 3DFtoPL
; 错误: 参数类型错误: lselsetp nil