[ALEXGVOZ]

есть множество 3d граней в виде треугольников которыми строит поверхность геоникс надо перевести каждую грань в текст таким образом чтобы в одной строке были координаты вершин (пример
1-я грань: x1,y1,z1,x2,y2,z2,x3,y3,z3
2-я грань: x1,y1,z1,x2,y2,z2,x3,y3,z3
и т.д.) где x,y,z координаты каждой вершины соответствено работаю в автокаде 2006

[GRIFEL]

(defun c:facep (/ e ee ca)(princ"\n создай набор плооскостей : ")
(setq ss(ssget) i -1 n 0 ca'((K) (CDR (assoc K EE))))
(while(setq e(SSNAME ss(setq i(1+ i)))) (setq ee(entget e)
t1(ca 10)t2(ca 11)t3(ca 12)t4(ca 13))
(princ(rtos(setq n(1+ n))2 0))(princ" плоскость ")
(princ t1)(princ" ")(princ t2)(princ" ")(princ t3)(princ" ")(princ t4)(princ"\n")
)
(princ)
)
Начни с этого - проверок нет
Если не 3dface - не сработает....

[Александр Ривилис]

Достаточно вместо

Код:

[Выделить все]

 (ssget)

использовать

Код:

[Выделить все]

 (ssget '((0 . "3DFACE")))

, чтобы пользователь мог выбирать только 3DFACE.

[ALEXGVOZ]

а можно чтобы сразу предлагал сохранить в текстовый файл? и после точки в координатах было 2 знака?

[GRIFEL]

Код:

[Выделить все]

 (defun c:facep (/ e ee ca f s)(princ"\n создай набор плооскостей : ")
(setq ss(ssget '((0 . "3DFACE"))) i -1 n 0 ca'((K) (CDR (assoc K EE)))
 f(open "C:\\facep.txt" "w")     )
(while(setq e(SSNAME ss(setq i(1+ i)))) (setq ee(entget e)
t1(ca 10)t2(ca 11)t3(ca 12)t4(ca 13)
s(strcat(rtos(setq n(1+ n))2 0)" -я грань   "
(rtos(car t1)2 2)", "(rtos(cadr t1)2 2)", "(rtos(caddr t1)2 2)"   "
(rtos(car t2)2 2)", "(rtos(cadr t2)2 2)", "(rtos(caddr t2)2 2)"   "
(rtos(car t3)2 2)", "(rtos(cadr t3)2 2)", "(rtos(caddr t3)2 2)"   "
(rtos(car t4)2 2)", "(rtos(cadr t4)2 2)", "(rtos(caddr t4)2 2)"   "
 )
                                         )
  (write-line s f)					       
(princ(rtos(setq n(1+ n))2 0))(princ" плоскость ")
(princ t1)(princ" ")(princ t2)(princ" ")(princ t3)(princ" ")(princ t4)(princ"\n")
)
(close f)  
(princ) 
)

ПОПРОБУЙ - ЛИШНЕЕ УБЕРИ САМ