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

Елпанов Евгений · 13.11.2008, 11:08

Назрела необходимость собрать информацию по отличиям в описании 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)
)

Makswell · 13.11.2008, 11:24

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 #)
	)
	*** *** Конец записей *** ***

zamtmn · 13.11.2008, 11:32

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 #)
 )
 *** *** Конец записей *** ***

Donhuan · 13.11.2008, 12:55

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 #)
 )
 *** *** Конец записей *** ***

Donhuan · 13.11.2008, 13:00

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 #)
 )
 *** *** Конец записей *** ***

Кулик Алексей aka kpblc · 13.11.2008, 13:05

Да вы что, сговорились, что ли? Тэги CОDE кто ставить будет? kpblc?
> Евгений: я на болоте тебе ответил

Елпанов Евгений · 13.11.2008, 13:09

Цитата:

Сообщение от Кулик Алексей aka kpblc

Да вы что, сговорились, что ли? Тэги CОDE кто ставить будет? kpblc?
> Евгений: я на болоте тебе ответил

ща поправлю!

>add

Пытался внутрь кода добавить добавление и печать тегов, но такая программа не проходит в формат форума

Makswell · 13.11.2008, 13:16

Цитата:

Сообщение от Кулик Алексей aka kpblc

Да вы что, сговорились, что ли? Тэги CОDE кто ставить будет? kpblc?

Offtop: Извиняюсь. Это я показал дурной пример

Елпанов Евгений · 13.11.2008, 13:25

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

Код:

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

(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)
)

Alaspher · 13.11.2008, 13:35

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

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 #)
 )
 *** *** Конец записей *** ***

Alxd · 13.11.2008, 13:48

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 #)
 )
 *** *** Конец записей *** ***

VVA · 13.11.2008, 13:49

Автокад 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 #)
 )
 *** *** Конец записей *** ***

Alxd · 13.11.2008, 13:50

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 #)
 )
 *** *** Конец записей *** ***

VVA · 13.11.2008, 13:52

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 #)
 )
 *** *** Конец записей *** ***

Alxd · 13.11.2008, 13:52

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 #)
 )
 *** *** Конец записей *** ***

VVA · 13.11.2008, 14:02

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 #)
 )
 *** *** Конец записей *** ***

Елпанов Евгений · 13.11.2008, 14:18

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

Беглое изучение, подтвердило догадки:
1. языковые настройки, сервиспаки, вертикальные решения, не влияют на описание 3д тел.
2. каждая версия автокада имеет свой уникальный заголовок в описании.
3. все последние версии, могут работать с телами без истории.
4. основное описание, осталось почти неизменным с 2000 автокада.

VVA · 13.11.2008, 14:40

Еще добавочка. Не зря же я в обед ходил на другие машины

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 #)
 )
 *** *** Конец записей *** ***

Елпанов Евгений · 13.11.2008, 14:49

Цитата:

Сообщение от VVA

Еще добавочка. Не зря же я в обед ходил на другие машины

Точно не зря...
Такие данные, в одном месте, так просто не валяются!

Скулачёв А. · 15.11.2008, 20:48

Цитата:

Точно не зря...
Такие данные, в одном месте, так просто не валяются!

Ещё бы кто расшифровал посимвольно, всё это добро, вообще было бы хорошо, а то я всё никак не доберусь до сути всех этих данных.

Скулачёв А. · 15.11.2008, 20:54

AutoCad 2002 eng

Код:

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

 *** *** Начало записей *** ***
  acadver = 15.06
  Visual LISP 2000 (en)
  SOLIDCHECK = 1
 '(
   (600 85 1 0          )
   (7 Unknown 13 ACIS 6.0.2 NT 24 Sat Nov 15 20:40:06 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 -5 $36 5 $17 $37 forward 7 unknown #)
   (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 -5 $50 5 $25 $51 forward 7 unknown #)
   (coedge $-1 $16 $15 $52 $53 forward $5 $-1 #)
   (coedge $-1 $54 $55 $15 $29 reversed $39 $-1 #)
   (edge $-1 $36 -5 $56 5 $28 $57 forward 7 unknown #)
   (coedge $-1 $22 $58 $16 $31 reversed $12 $-1 #)
   (edge $-1 $59 -5 $35 5 $30 $60 forward 7 unknown #)
   (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 -5 $68 5 $43 $69 forward 7 unknown #)
   (coedge $-1 $24 $23 $66 $70 forward $8 $-1 #)
   (edge $-1 $50 -5 $68 5 $42 $71 forward 7 unknown #)
   (coedge $-1 $55 $54 $24 $48 reversed $39 $-1 #)
   (edge $-1 $72 -5 $49 5 $47 $73 forward 7 unknown #)
   (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 -5 $59 5 $52 $76 forward 7 unknown #)
   (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 -5 $50 5 $32 $79 forward 7 unknown #)
   (edge $-1 $36 -5 $49 5 $33 $80 forward 7 unknown #)
   (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 -5 $72 5 $55 $81 forward 7 unknown #)
   (vertex $-1 $70 $82 #)
   (straight-curve $-1 5 6 12 0 0 -1 I I #)
   (edge $-1 $68 -5 $72 5 $66 $83 forward 7 unknown #)
   (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 #)
 )
 *** *** Конец записей *** ***

Елпанов Евгений · 15.11.2008, 22:22

Цитата:

Сообщение от Скулачёв А.

Ещё бы кто расшифровал посимвольно, всё это добро, вообще было бы хорошо, а то я всё никак не доберусь до сути всех этих данных.

Это самое полное описание формата SAT, включает описание формата, математики и.т.д...
Пособие по формату файла SAT (ACIS)

PS. в результатах тестов, которые я просил сделать, для меня, нет ни единой непонятной запятой.

Скулачёв А. · 15.11.2008, 22:48

Цитата:

PS. в результатах тестов, которые я просил сделать, для меня, нет ни единой непонятной запятой.

Расшифруйте, пожалуйста, (body $-1 $1 $-1 $-1 #) и (vertex $-1 $48 $84 #)

Елпанов Евгений · 16.11.2008, 09:02

Цитата:

Сообщение от Скулачёв А.

Расшифруйте, пожалуйста, (body $-1 $1 $-1 $-1 #) и (vertex $-1 $48 $84 #)

Код:

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

(body
$-1 - пустой указатель
$1  - указатель на первую глыбу 
$-1 - пустой указатель
$-1  - пустой указатель
 #)  - конец цитаты

(vertex
$-1  - пустой указатель
$48  - указатель на ребро, использующее вершину
$84  - указатель на местоположение вершины
 #)  - конец цитаты

ps.
1. Ты привел пример из 2002 версии акада - в последующих, было добавлено много дополнительных полей.
2. Не жди, что добрый дядя, напишет библиотеку по работе с солидами и тебе подарит - хочешь разобраться - разбирайся!
3. На сегодняшний день, я уже могу создавать любые 3д тела, по собственному вкусу, но с некоторыми ограничениями - только в линейке 2004-2009 и все грани, только плоские поверхности. Хотя могут быть внутренние полости, сквозные отверстия, набор из нескольких объединенных тел и.т.д... Так же, я могу очищать тела от лишней информации - стандартная очистка, удаляет только часть.

zamtmn · 16.11.2008, 12:08

>>3. На сегодняшний день, я уже могу создавать любые 3д тела
а зачем? по мне так в автокаде они не нужны

Елпанов Евгений · 16.11.2008, 12:21

Цитата:

Сообщение от zamtmn

а зачем? по мне так в автокаде они не нужны

Некоторым, они нужны. Случается и такое...

Скулачёв А. · 16.11.2008, 12:59

Цитата:

Сообщение от zamtmn

по мне так в автокаде они не нужны

Они не нужны только тем, кто мыслит плоско, а тем, кто мыслит 3-х мерно, нужны.

Скулачёв А. · 16.11.2008, 13:04

Цитата:

Сообщение от Елпанов Евгений

ps.
1. Ты привел пример из 2002 версии акада - в последующих, было добавлено много дополнительных полей.
2. Не жди, что добрый дядя, напишет библиотеку по работе с солидами и тебе подарит - хочешь разобраться - разбирайся!
3. На сегодняшний день, я уже могу создавать любые 3д тела, по собственному вкусу, но с некоторыми ограничениями - только в линейке 2004-2009 и все грани, только плоские поверхности. Хотя могут быть внутренние полости, сквозные отверстия, набор из нескольких объединенных тел и.т.д... Так же, я могу очищать тела от лишней информации - стандартная очистка, удаляет только часть.

Я предпочитаю стратегию быстрого старта. Чтобы освоить новое для себя оканчиваю спец курсы. AutoCad и AutoLisp я стал изучать только после окончания курсов. Если вы готовы поделиться информацией, но за деньги, я готов заплатить за качественные знания.

zamtmn · 16.11.2008, 13:41

>>Они не нужны только тем, кто мыслит плоско, а тем, кто мыслит 3-х мерно, нужны.
В 3д можно прекрастно обойтись без них, проектировать в автокаде используя солиды - близко к мазохизму, для них нет средств редактирования. Помоему единственное применение - экспорт в расчетные программы, ну и импорт оттудаже

Скулачёв А. · 16.11.2008, 14:10

Цитата:

Сообщение от zamtmn

>>Они не нужны только тем, кто мыслит плоско, а тем, кто мыслит 3-х мерно, нужны.
В 3д можно прекрастно обойтись без них, проектировать в автокаде используя солиды - близко к мазохизму, для них нет средств редактирования. Помоему единственное применение - экспорт в расчетные программы, ну и импорт оттудаже

Почему нет, они есть, целая панель Solids Editing

zamtmn · 16.11.2008, 14:28

>>Почему нет, они есть, целая панель Solids Editing
имхо солид проще пересоздать чем отредактировать.
Чем по Вашему солид лучше обычных примитивов?

Скулачёв А. · 16.11.2008, 16:24

Цитата:

Сообщение от Елпанов Евгений

Код:

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

(body
$-1 - пустой указатель
$1  - указатель на первую глыбу 
$-1 - пустой указатель
$-1  - пустой указатель
 #)  - конец цитаты
 
(vertex
$-1  - пустой указатель
$48  - указатель на ребро, использующее вершину
$84  - указатель на местоположение вершины
 #)  - конец цитаты

Вы не поясните на рисунке на какое именно ребро указывает указатель и где координаты вершины смотреть. И не понятно пока с какой именно вершины , ребра, стороны начинается отсчёт.

Кулик Алексей aka kpblc · 16.11.2008, 19:37

zamtmn, хотя бы возможностью построения сечений, разрезов и видов любого ракурса с минимальной ручной доводкой (говорю про штатные средства AutoCAD'a). Это как минимум )

Скулачёв А. · 07.01.2009, 20:53

Цитата:

Сообщение от Елпанов Евгений

1. Ты привел пример из 2002 версии акада - в последующих, было добавлено много дополнительных полей.
2. Не жди, что добрый дядя, напишет библиотеку по работе с солидами и тебе подарит - хочешь разобраться - разбирайся!

Почти разобрался, но некоторые вопросы остались. Почему AutoCad 2002 пишет, что видит один объект (в первой строке третья цифра), а уже версия 2004 видит два объекта?
Вообще, я так понял, мануал, что вы разместили на форуме предназначен для программирования на Си, или я ошибаюсь.

Елпанов Евгений · 08.01.2009, 09:02

Цитата:

Сообщение от Скулачёв А.

Вообще, я так понял, мануал, что вы разместили на форуме предназначен для программирования на Си, или я ошибаюсь.

Проблема не в си или лисп, а еще глубже. Мануал, размещенный на форуме, предназначен для описания формата SAT в общем и целом, а не применительно для акада. К тому же, версии форматов в мануале и акаде разные... Но это не мешает, разобраться в описании тел акада. Просто, необходимо более творчески подходить к справке и тратить время на эксперименты...

Удачи!

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) )
Просмотров: 7262