Версии формата описания 3dSolid (сравнение)
| Правила | Регистрация | Пользователи | Сообщения за день |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Версии формата описания 3dSolid (сравнение)

Версии формата описания 3dSolid (сравнение)

Ответ
Страница 1 из 2 1 2 >
Перейти к новому Перейти к новому  
Поиск в этой теме
Непрочитано 13.11.2008, 11:08 #1
Версии формата описания 3dSolid (сравнение)
Елпанов Евгений
 
программист
 
Москва
Регистрация: 20.12.2005
Сообщений: 1,439
Назрела необходимость собрать информацию по отличиям в описании 3dSolid в dxf. В первую очередь, заголовок формата меняется каждую версию, во вторых, сам формат описания, постоянно редактируют. Прошу вашей помощи - запустите программу на своем компьютере и скопируйте получившийся лог программы на форум. Это будет очень полезно для моих исследований, а так же, для идущих следом за мной.
Особенно, интересны результаты, на компьютерах с вертикальными решениями различных версий...

Заранее Спасибо!
Код:
[Выделить все] 
(defun c:test (/ e)
  (vl-load-com)
  (setq i 0)
  (princ "\n\n\t*** *** Начало записей *** ***")
  (princ (strcat "\n\t acadver = " (getvar "acadver") "\n\t "))
  (princ (ver))
  (princ
    (strcat "\n\t SOLIDCHECK = " (itoa (getvar "SOLIDCHECK")))
  )
  (if (getvar "SOLIDHIST")
    (princ
      (strcat "\n\t SOLIDHIST = " (itoa (getvar "SOLIDHIST")))
    )
  )
  (princ "\n\t'(")
  (foreach a (entget
	       (setq
		 e (vlax-vla-object->ename
		     (vla-addbox
		       (vla-get-ModelSpace
			 (vla-get-ActiveDocument (vlax-get-acad-object))
		       ) ;_  vla-get-ModelSpace
		       (vlax-3d-point 10 11 12)
		       10
		       10
		       10
		     ) ;_  vla-addbox
		   ) ;_  vlax-vla-object->ename
	       ) ;_  setq
	     ) ;_  entget
    (if	(= 1 (car a))
      (princ (strcat "\n\t\t("
		     (apply 'strcat
			    (mapcar '(lambda (x)
				       (if (= x 32)
					 " "
					 (chr (- 159 x))
				       ) ;_  if
				     ) ;_  lambda
				    (vl-string->list (cdr a))
			    ) ;_  mapcar
		     ) ;_  apply
		     ")"
	     ) ;_  strcat
      ) ;_  princ
    ) ;_  if
  ) ;_  foreach
  (princ "\n\t)\n\t*** *** Конец записей *** ***")
  (entdel e)
  (textscr)
  (princ)
)
Просмотров: 7321
 
Непрочитано 13.11.2008, 11:24
#2
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204

AutoCAD 2008 - Русский SP1
Код:
[Выделить все] 
*** *** Начало записей *** ***
	 acadver = 17.1s (LMS Tech)
	 Visual LISP 2008 (ru)
	 SOLIDCHECK = 1
	 SOLIDHIST = 1
	'(
		(21200 86 2 26          )
		(16 Autodesk AutoCAD 17 ASM 12.0.1.820 NT 0  )
		(1 9.9999999999999995e-007 1e-010 )
		(asmheader $-1 -1 @11 212.0.1.820 #)
		(body $-1 -1 $-1 $2 $-1 $-1 #)
		(lump $-1 -1 $-1 $-1 $3 $1 #)
		(shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
		(face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
		(face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
		(loop $-1 -1 $-1 $-1 $11 $4 #)
		(plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
		(face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
		(loop $-1 -1 $-1 $-1 $15 $5 #)
		(plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
		(coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
		(face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
		(loop $-1 -1 $-1 $-1 $23 $8 #)
		(plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
		(coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
		(coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
		(coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
		(coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
		(edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
		(face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
		(loop $-1 -1 $-1 $-1 $42 $12 #)
		(plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
		(coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
		(coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
		(coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
		(coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
		(edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
		(coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
		(coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
		(edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
		(coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
		(edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
		(coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
		(coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
		(loop $-1 -1 $-1 $-1 $33 $39 #)
		(vertex $-1 -1 $-1 $19 0 $64 #)
		(vertex $-1 -1 $-1 $19 1 $65 #)
		(straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
		(face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
		(loop $-1 -1 $-1 $-1 $55 $20 #)
		(plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
		(coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
		(coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
		(coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
		(edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
		(coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
		(edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
		(coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
		(edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
		(vertex $-1 -1 $-1 $27 0 $75 #)
		(vertex $-1 -1 $-1 $62 1 $76 #)
		(straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
		(coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
		(edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
		(coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
		(coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
		(vertex $-1 -1 $-1 $30 1 $78 #)
		(straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
		(coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
		(vertex $-1 -1 $-1 $54 1 $79 #)
		(straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
		(edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
		(edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
		(point $-1 -1 $-1 15 6 17 #)
		(point $-1 -1 $-1 15 16 17 #)
		(plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
		(coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
		(edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
		(vertex $-1 -1 $-1 $71 0 $83 #)
		(straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
		(edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
		(straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
		(vertex $-1 -1 $-1 $49 0 $85 #)
		(straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
		(point $-1 -1 $-1 15 16 7 #)
		(point $-1 -1 $-1 15 6 7 #)
		(straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
		(point $-1 -1 $-1 5 16 17 #)
		(point $-1 -1 $-1 5 6 17 #)
		(straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
		(straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
		(straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
		(point $-1 -1 $-1 5 6 7 #)
		(straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
		(point $-1 -1 $-1 5 16 7 #)
	)
	*** *** Конец записей *** ***
Последний раз редактировалось Кулик Алексей aka kpblc, 13.11.2008 в 13:04.
Makswell вне форума  
 
Непрочитано 13.11.2008, 11:32
#3
zamtmn

КИПиА
 
Регистрация: 21.03.2005
Tyumen
Сообщений: 1,352
<phrase 1=

AE2009rus
Код:
[Выделить все] 
*** *** Начало записей *** ***
  acadver = 17.2s (LMS Tech)
  Visual LISP 2009 (ru)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 17 ASM 12.0.1.915 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @11 212.0.1.915 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Последний раз редактировалось Кулик Алексей aka kpblc, 13.11.2008 в 13:04.
zamtmn вне форума  
 
Непрочитано 13.11.2008, 12:55
#4
Donhuan

Проектировщик СС
 
Регистрация: 24.06.2008
Минск
Сообщений: 134
<phrase 1=

AutoCad 2006 Eng
Код:
[Выделить все] 
*** *** Начало записей *** ***
  acadver = 16.2s (LMS Tech)
  Visual LISP 2006 (en)
  SOLIDCHECK = 1
 '(
   (20800 86 2 0          )
   (16 Autodesk AutoCAD 17 ASM 6.0.5.7004 NT 24 Thu Nov 13 11:53:44 2008 )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @12 208.0.5.7004 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 $64 #)
   (vertex $-1 -1 $-1 $19 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 $75 #)
   (vertex $-1 -1 $-1 $62 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Последний раз редактировалось Кулик Алексей aka kpblc, 13.11.2008 в 13:04.
Donhuan вне форума  
 
Непрочитано 13.11.2008, 13:00
#5
Donhuan

Проектировщик СС
 
Регистрация: 24.06.2008
Минск
Сообщений: 134
<phrase 1=

AutoCad 2008 eng
Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 17.1s (LMS Tech)
  Visual LISP 2008 (en)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 17 ASM 12.0.1.820 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @11 212.0.1.820 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Donhuan вне форума  
 
Непрочитано 13.11.2008, 13:05
#6
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 40,432

Да вы что, сговорились, что ли? Тэги CОDE кто ставить будет? kpblc?
> Евгений: я на болоте тебе ответил
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Автор темы   Непрочитано 13.11.2008, 13:09
#7
Елпанов Евгений

программист
 
Регистрация: 20.12.2005
Москва
Сообщений: 1,439
Отправить сообщение для Елпанов Евгений с помощью Skype™

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Да вы что, сговорились, что ли? Тэги CОDE кто ставить будет? kpblc?
> Евгений: я на болоте тебе ответил
ща поправлю!

>add

Пытался внутрь кода добавить добавление и печать тегов, но такая программа не проходит в формат форума
Елпанов Евгений вне форума  
 
Непрочитано 13.11.2008, 13:16
#8
Makswell

Инженер-строитель
 
Регистрация: 15.08.2007
Киров
Сообщений: 2,204

Цитата:
Сообщение от Кулик Алексей aka kpblc Посмотреть сообщение
Да вы что, сговорились, что ли? Тэги CОDE кто ставить будет? kpblc?
Offtop: Извиняюсь. Это я показал дурной пример
Makswell вне форума  
 
Автор темы   Непрочитано 13.11.2008, 13:25
#9
Елпанов Евгений

программист
 
Регистрация: 20.12.2005
Москва
Сообщений: 1,439
Отправить сообщение для Елпанов Евгений с помощью Skype™

Версия с записью тегов программно:

Код:
[Выделить все] 
(defun c:test (/ e)
 (vl-load-com)
 (setq i 0)
 (princ "\n\n[co")
 (princ "de] ")
 (princ "*** *** Начало записей *** ***")
 (princ (strcat "\n\t acadver = " (getvar "acadver") "\n\t ")
 ) ;_  princ
 (princ (ver))
 (princ
  (strcat "\n\t SOLIDCHECK = " (itoa (getvar "SOLIDCHECK")))
 ) ;_  princ
 (if (getvar "SOLIDHIST")
  (princ
   (strcat "\n\t SOLIDHIST = " (itoa (getvar "SOLIDHIST")))
  ) ;_  princ
 ) ;_  if
 (princ "\n\t'(")
 (foreach a (entget (setq e (vlax-vla-object->ename
                             (vla-addbox
                              (vla-get-ModelSpace
                               (vla-get-ActiveDocument
                                (vlax-get-acad-object)
                               ) ;_  vla-get-ActiveDocument
                              ) ;_  vla-get-ModelSpace
                              (vlax-3d-point 10 11 12)
                              10
                              10
                              10
                             ) ;_  vla-addbox
                            ) ;_  vlax-vla-object->ename
                    ) ;_  setq
            ) ;_  entget
  (if (= 1 (car a))
   (princ (strcat "\n\t\t("
                  (apply 'strcat
                         (mapcar '(lambda (x)
                                   (if (= x 32)
                                    " "
                                    (chr (- 159 x))
                                   ) ;_  if
                                  ) ;_  lambda
                                 (vl-string->list (cdr a))
                         ) ;_  mapcar
                  ) ;_  apply
                  ")"
          ) ;_  strcat
   ) ;_  princ
  ) ;_  if
 ) ;_  foreach
 (princ "\n\t)\n\t*** *** Конец записей *** ***[/co")
 (princ "de]")
 (entdel e)
 (textscr)
 (princ)
)
Елпанов Евгений вне форума  
 
Непрочитано 13.11.2008, 13:35
#10
Alaspher


 
Регистрация: 11.10.2004
e•burg
Сообщений: 755

Вроде такого ещё нет

Autodesk Architectural Desktop 2007 - Русский

Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 17.0s (LMS Tech)
  Visual LISP 2007 (ru)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 18 ASM 12.0.0.5822 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @12 212.0.0.5822 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Последний раз редактировалось Alaspher, 13.11.2008 в 13:56.
Alaspher вне форума  
 
Непрочитано 13.11.2008, 13:48
#11
Alxd

Разработчик САПР
 
Регистрация: 14.05.2004
Тюмень
Сообщений: 467
<phrase 1=

AutoCAD 2009 eng
Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 17.2s (LMS Tech)
  Visual LISP 2009 (en)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 17 ASM 12.0.1.915 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @11 212.0.1.915 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Alxd вне форума  
 
Непрочитано 13.11.2008, 13:49
#12
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996

Автокад 2002 Eng
Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 15.06
  Visual LISP 2000 (en)
  SOLIDCHECK = 1
 '(
   (400 85 1 0          )
   (7 Unknown 13 ACIS 4.0.2 NT 24 Thu Nov 13 12:48:22 2008 )
   (-1 9.9999999999999995e-007 1e-010 )
   (body $-1 $1 $-1 $-1 #)
   (lump $-1 $-1 $2 $0 #)
   (shell $-1 $-1 $-1 $3 $-1 $1 #)
   (face $-1 $4 $5 $2 $-1 $6 forward single #)
   (face $-1 $7 $8 $2 $-1 $9 reversed single #)
   (loop $-1 $-1 $10 $3 #)
   (plane-surface $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 $11 $12 $2 $-1 $13 reversed single #)
   (loop $-1 $-1 $14 $4 #)
   (plane-surface $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 $15 $16 $17 $18 forward $5 $-1 #)
   (face $-1 $19 $20 $2 $-1 $21 reversed single #)
   (loop $-1 $-1 $22 $7 #)
   (plane-surface $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 $23 $24 $25 $26 forward $8 $-1 #)
   (coedge $-1 $27 $10 $28 $29 forward $5 $-1 #)
   (coedge $-1 $10 $27 $30 $31 forward $5 $-1 #)
   (coedge $-1 $32 $33 $10 $18 reversed $34 $-1 #)
   (edge $-1 $35 $36 $17 $37 forward #)
   (face $-1 $38 $39 $2 $-1 $40 reversed single #)
   (loop $-1 $-1 $41 $11 #)
   (plane-surface $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 $42 $30 $43 $44 forward $12 $-1 #)
   (coedge $-1 $45 $14 $42 $46 forward $8 $-1 #)
   (coedge $-1 $14 $45 $47 $48 forward $8 $-1 #)
   (coedge $-1 $33 $32 $14 $26 reversed $34 $-1 #)
   (edge $-1 $49 $50 $25 $51 forward #)
   (coedge $-1 $16 $15 $52 $53 forward $5 $-1 #)
   (coedge $-1 $54 $55 $15 $29 reversed $39 $-1 #)
   (edge $-1 $36 $56 $28 $57 forward #)
   (coedge $-1 $22 $58 $16 $31 reversed $12 $-1 #)
   (edge $-1 $59 $35 $30 $60 forward #)
   (coedge $-1 $25 $17 $58 $61 forward $34 $-1 #)
   (coedge $-1 $17 $25 $54 $62 reversed $34 $-1 #)
   (loop $-1 $-1 $32 $38 #)
   (vertex $-1 $18 $63 #)
   (vertex $-1 $18 $64 #)
   (straight-curve $-1 15 11 17 0 1 0 I I #)
   (face $-1 $-1 $34 $2 $-1 $65 reversed single #)
   (loop $-1 $-1 $54 $19 #)
   (plane-surface $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 $66 $52 $55 $67 forward $20 $-1 #)
   (coedge $-1 $58 $22 $23 $46 reversed $12 $-1 #)
   (coedge $-1 $52 $66 $22 $44 reversed $20 $-1 #)
   (edge $-1 $59 $68 $43 $69 forward #)
   (coedge $-1 $24 $23 $66 $70 forward $8 $-1 #)
   (edge $-1 $50 $68 $42 $71 forward #)
   (coedge $-1 $55 $54 $24 $48 reversed $39 $-1 #)
   (edge $-1 $72 $49 $47 $73 forward #)
   (vertex $-1 $26 $74 #)
   (vertex $-1 $61 $75 #)
   (straight-curve $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 $41 $43 $27 $53 reversed $20 $-1 #)
   (edge $-1 $56 $59 $52 $76 forward #)
   (coedge $-1 $47 $28 $33 $62 forward $39 $-1 #)
   (coedge $-1 $28 $47 $41 $67 reversed $39 $-1 #)
   (vertex $-1 $29 $77 #)
   (straight-curve $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 $30 $42 $32 $61 reversed $12 $-1 #)
   (vertex $-1 $53 $78 #)
   (straight-curve $-1 10 6 17 1 0 0 I I #)
   (edge $-1 $35 $50 $32 $79 forward #)
   (edge $-1 $36 $49 $33 $80 forward #)
   (point $-1 15 6 17 #)
   (point $-1 15 16 17 #)
   (plane-surface $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 $43 $41 $45 $70 reversed $20 $-1 #)
   (edge $-1 $56 $72 $55 $81 forward #)
   (vertex $-1 $70 $82 #)
   (straight-curve $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 $68 $72 $66 $83 forward #)
   (straight-curve $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 $48 $84 #)
   (straight-curve $-1 10 16 7 1 0 0 I I #)
   (point $-1 15 16 7 #)
   (point $-1 15 6 7 #)
   (straight-curve $-1 5 11 17 0 -1 0 I I #)
   (point $-1 5 16 17 #)
   (point $-1 5 6 17 #)
   (straight-curve $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 5 16 12 0 0 -1 I I #)
   (point $-1 5 6 7 #)
   (straight-curve $-1 5 11 7 0 1 0 I I #)
   (point $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.11.2008, 13:50
#13
Alxd

Разработчик САПР
 
Регистрация: 14.05.2004
Тюмень
Сообщений: 467
<phrase 1=

AutoCAD Architecture 2008 eng

Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 17.1s (LMS Tech)
  Visual LISP 2008 (en)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 17 ASM 12.0.1.820 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @11 212.0.1.820 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Alxd вне форума  
 
Непрочитано 13.11.2008, 13:52
#14
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996

Autocad 2004 RUS
Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 16.0s (LMS Tech)
  Visual LISP 2004 (en)
  SOLIDCHECK = 1
 '(
   (20800 86 2 0          )
   (16 Autodesk AutoCAD 17 ASM 6.0.5.7004 NT 24 Thu Nov 13 12:50:41 2008 )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @12 208.0.5.7004 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 $64 #)
   (vertex $-1 -1 $-1 $19 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 $75 #)
   (vertex $-1 -1 $-1 $62 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Непрочитано 13.11.2008, 13:52
#15
Alxd

Разработчик САПР
 
Регистрация: 14.05.2004
Тюмень
Сообщений: 467
<phrase 1=

AutoCAD 2006 рус

Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 16.2s (LMS Tech)
  Visual LISP 2005 (ru)
  SOLIDCHECK = 1
 '(
   (20800 86 2 0          )
   (16 Autodesk AutoCAD 17 ASM 6.0.5.7004 NT 24 Thu Nov 13 15:52:14 2008 )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @12 208.0.5.7004 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 $64 #)
   (vertex $-1 -1 $-1 $19 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 $75 #)
   (vertex $-1 -1 $-1 $62 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
Alxd вне форума  
 
Непрочитано 13.11.2008, 14:02
#16
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996

AutoCAD 2006 RUS SP1
Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 16.2s (LMS Tech)
  Visual LISP 2005 (ru)
  SOLIDCHECK = 1
 '(
   (20800 86 2 0          )
   (16 Autodesk AutoCAD 17 ASM 6.0.5.7004 NT 24 Thu Nov 13 13:02:06 2008 )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @12 208.0.5.7004 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 $64 #)
   (vertex $-1 -1 $-1 $19 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 $75 #)
   (vertex $-1 -1 $-1 $62 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 13.11.2008, 14:18
#17
Елпанов Евгений

программист
 
Регистрация: 20.12.2005
Москва
Сообщений: 1,439
Отправить сообщение для Елпанов Евгений с помощью Skype™

Всем Огромное спасибо!
Все необходимые данные собраны.

Беглое изучение, подтвердило догадки:
1. языковые настройки, сервиспаки, вертикальные решения, не влияют на описание 3д тел.
2. каждая версия автокада имеет свой уникальный заголовок в описании.
3. все последние версии, могут работать с телами без истории.
4. основное описание, осталось почти неизменным с 2000 автокада.
Елпанов Евгений вне форума  
 
Непрочитано 13.11.2008, 14:40
#18
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,996

Еще добавочка. Не зря же я в обед ходил на другие машины
Autocad Civil 3D 2009 RUS SP2
Код:
[Выделить все] 
*** *** Начало записей *** ***
  acadver = 17.2s (LMS Tech)
  Visual LISP 2009 (ru)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 17 ASM 12.0.1.915 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @11 212.0.1.915 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
AutoCAD Civil 3D 2008 SP2
Код:
[Выделить все] 
 *** *** Начало записей *** ***
  acadver = 17.1s (LMS Tech)
  Visual LISP 2008 (ru)
  SOLIDCHECK = 1
  SOLIDHIST = 1
 '(
   (21200 86 2 26          )
   (16 Autodesk AutoCAD 17 ASM 12.0.1.820 NT 0  )
   (1 9.9999999999999995e-007 1e-010 )
   (asmheader $-1 -1 @11 212.0.1.820 #)
   (body $-1 -1 $-1 $2 $-1 $-1 #)
   (lump $-1 -1 $-1 $-1 $3 $1 #)
   (shell $-1 -1 $-1 $-1 $-1 $4 $-1 $2 #)
   (face $-1 -1 $-1 $5 $6 $3 $-1 $7 forward single #)
   (face $-1 -1 $-1 $8 $9 $3 $-1 $10 reversed single #)
   (loop $-1 -1 $-1 $-1 $11 $4 #)
   (plane-surface $-1 -1 $-1 10 11 17 0 0 1 1 0 0 forward_v I I I I #)
   (face $-1 -1 $-1 $12 $13 $3 $-1 $14 reversed single #)
   (loop $-1 -1 $-1 $-1 $15 $5 #)
   (plane-surface $-1 -1 $-1 10 11 7 0 0 1 1 0 0 forward_v I I I I #)
   (coedge $-1 -1 $-1 $16 $17 $18 $19 forward $6 $-1 #)
   (face $-1 -1 $-1 $20 $21 $3 $-1 $22 reversed single #)
   (loop $-1 -1 $-1 $-1 $23 $8 #)
   (plane-surface $-1 -1 $-1 10 6 12 0 1 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $24 $25 $26 $27 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $28 $11 $29 $30 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $11 $28 $31 $32 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $33 $34 $11 $19 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $36 -5 $37 5 $18 $38 forward @7 unknown #)
   (face $-1 -1 $-1 $39 $40 $3 $-1 $41 reversed single #)
   (loop $-1 -1 $-1 $-1 $42 $12 #)
   (plane-surface $-1 -1 $-1 5 11 12 1 0 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $43 $31 $44 $45 forward $13 $-1 #)
   (coedge $-1 -1 $-1 $46 $15 $43 $47 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $15 $46 $48 $49 forward $9 $-1 #)
   (coedge $-1 -1 $-1 $34 $33 $15 $27 reversed $35 $-1 #)
   (edge $-1 -1 $-1 $50 -5 $51 5 $26 $52 forward @7 unknown #)
   (coedge $-1 -1 $-1 $17 $16 $53 $54 forward $6 $-1 #)
   (coedge $-1 -1 $-1 $55 $56 $16 $30 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $37 -5 $57 5 $29 $58 forward @7 unknown #)
   (coedge $-1 -1 $-1 $23 $59 $17 $32 reversed $13 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $36 5 $31 $61 forward @7 unknown #)
   (coedge $-1 -1 $-1 $26 $18 $59 $62 forward $35 $-1 #)
   (coedge $-1 -1 $-1 $18 $26 $55 $63 reversed $35 $-1 #)
   (loop $-1 -1 $-1 $-1 $33 $39 #)
   (vertex $-1 -1 $-1 $19 0 $64 #)
   (vertex $-1 -1 $-1 $19 1 $65 #)
   (straight-curve $-1 -1 $-1 15 11 17 0 1 0 I I #)
   (face $-1 -1 $-1 $-1 $35 $3 $-1 $66 reversed single #)
   (loop $-1 -1 $-1 $-1 $55 $20 #)
   (plane-surface $-1 -1 $-1 10 16 12 0 -1 0 0 0 -1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $67 $53 $56 $68 forward $21 $-1 #)
   (coedge $-1 -1 $-1 $59 $23 $24 $47 reversed $13 $-1 #)
   (coedge $-1 -1 $-1 $53 $67 $23 $45 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $60 -5 $69 5 $44 $70 forward @7 unknown #)
   (coedge $-1 -1 $-1 $25 $24 $67 $71 forward $9 $-1 #)
   (edge $-1 -1 $-1 $51 -5 $69 5 $43 $72 forward @7 unknown #)
   (coedge $-1 -1 $-1 $56 $55 $25 $49 reversed $40 $-1 #)
   (edge $-1 -1 $-1 $73 -5 $50 5 $48 $74 forward @7 unknown #)
   (vertex $-1 -1 $-1 $27 0 $75 #)
   (vertex $-1 -1 $-1 $62 1 $76 #)
   (straight-curve $-1 -1 $-1 15 11 7 0 -1 0 I I #)
   (coedge $-1 -1 $-1 $42 $44 $28 $54 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $60 5 $53 $77 forward @7 unknown #)
   (coedge $-1 -1 $-1 $48 $29 $34 $63 forward $40 $-1 #)
   (coedge $-1 -1 $-1 $29 $48 $42 $68 reversed $40 $-1 #)
   (vertex $-1 -1 $-1 $30 1 $78 #)
   (straight-curve $-1 -1 $-1 10 16 17 -1 0 0 I I #)
   (coedge $-1 -1 $-1 $31 $43 $33 $62 reversed $13 $-1 #)
   (vertex $-1 -1 $-1 $54 1 $79 #)
   (straight-curve $-1 -1 $-1 10 6 17 1 0 0 I I #)
   (edge $-1 -1 $-1 $36 -5 $51 5 $33 $80 forward @7 unknown #)
   (edge $-1 -1 $-1 $37 -5 $50 5 $34 $81 forward @7 unknown #)
   (point $-1 -1 $-1 15 6 17 #)
   (point $-1 -1 $-1 15 16 17 #)
   (plane-surface $-1 -1 $-1 15 11 12 -1 0 0 0 0 1 forward_v I I I I #)
   (coedge $-1 -1 $-1 $44 $42 $46 $71 reversed $21 $-1 #)
   (edge $-1 -1 $-1 $57 -5 $73 5 $56 $82 forward @7 unknown #)
   (vertex $-1 -1 $-1 $71 0 $83 #)
   (straight-curve $-1 -1 $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 -1 $-1 $69 -5 $73 5 $67 $84 forward @7 unknown #)
   (straight-curve $-1 -1 $-1 10 6 7 -1 0 0 I I #)
   (vertex $-1 -1 $-1 $49 0 $85 #)
   (straight-curve $-1 -1 $-1 10 16 7 1 0 0 I I #)
   (point $-1 -1 $-1 15 16 7 #)
   (point $-1 -1 $-1 15 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 17 0 -1 0 I I #)
   (point $-1 -1 $-1 5 16 17 #)
   (point $-1 -1 $-1 5 6 17 #)
   (straight-curve $-1 -1 $-1 15 6 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 15 16 12 0 0 -1 I I #)
   (straight-curve $-1 -1 $-1 5 16 12 0 0 -1 I I #)
   (point $-1 -1 $-1 5 6 7 #)
   (straight-curve $-1 -1 $-1 5 11 7 0 1 0 I I #)
   (point $-1 -1 $-1 5 16 7 #)
 )
 *** *** Конец записей *** ***
__________________
Как использовать код на Лиспе читаем здесь
VVA вне форума  
 
Автор темы   Непрочитано 13.11.2008, 14:49
#19
Елпанов Евгений

программист
 
Регистрация: 20.12.2005
Москва
Сообщений: 1,439
Отправить сообщение для Елпанов Евгений с помощью Skype™

Цитата:
Сообщение от VVA Посмотреть сообщение
Еще добавочка. Не зря же я в обед ходил на другие машины
Точно не зря...
Такие данные, в одном месте, так просто не валяются!
Елпанов Евгений вне форума  
 
Непрочитано 15.11.2008, 20:48
#20
Скулачёв А.

конструктор
 
Регистрация: 29.08.2007
Москва
Сообщений: 55

Цитата:
Точно не зря...
Такие данные, в одном месте, так просто не валяются!
Ещё бы кто расшифровал посимвольно, всё это добро, вообще было бы хорошо, а то я всё никак не доберусь до сути всех этих данных.
__________________
Продумано до мелочей
Скулачёв А. вне форума  
Ответ
Страница 1 из 2 1 2 >
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > Версии формата описания 3dSolid (сравнение)

Реклама i

Обратная связь - Вверх