Has ripened necessity to gather the information on differences in the description 3dSolid in dxf. First of all, the format header varies each version, in the second, a format of the description, permanently edit. I ask your help - start the program on the computer and copy results of the program on a forum. It will be very useful for my researches, and for going after me.
Especially, results, on computers with vertical solutions of various versions are interesting...
(defun c:test (/ e)
(vl-load-com)
(setq i 0)
(princ "\n\n\t*** *** Start log *** ***")
(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*** *** End log *** ***")
(entdel e)
(textscr)
(princ)
)