不打开图纸的CAD版本？
嗨，我对acad并不陌生，但我不知道该把它放在哪里。我从
顾问那里得到图纸，并且定期，即使我要求他们保存到
我使用的版本，我也无法打开它们。我的问题是，无论如何，我都可以在不打开图纸的情况下准确地找到他们发给我的
是什么版本（因为我不能）？
**** Hidden Message ***** JTB World的“资源管理器列”（非免费）将显示文件的版本。
我相信Trueview不仅会阅读它，还可以将其保存到早期版本。考虑到这一点，我认为运行时版本的Microstation也会很好。它运行20分钟，然后停止，但您可以立即重新开始。我用它做所有的工作。 lisp中的一件事是READ-CHAR，这样你就可以读取文件的开头并查看acad？会有一个游戏。
有一个谷歌
(DEFUN rb (/ buffer char fh)
(setq buffer '())
(SETQ fh (OPEN "d:\\ACADTEMP\\TEST1.dwg"
"r"
)
n-1
)
(WHILE ((defun mp-get-dwg-ver ( dwg / handle stream )
;;Return the specified drawing's version as a string representing
;;the AutoCAD versions that create and support the version natively,
;;e.g. "2018/2019/2020/2021". Of course drawings saved by Civil3D
;;enjoy a special versioning hell that doesn't precisely follow this
;;schema. Thanks Autodesk.
(cond
((null (setq handle (open dwg "r"))) nil) ;; could not open drawing, return nil
((progn (setq stream (substr (read-line handle) 1 6))(close handle)))
((eq "AC1032" stream) "2018/2019/2020/2021")
((eq "AC1027" stream) "2013/2014/2015/2016/2017")
((eq "AC1024" stream) "2010/2011/2012")
((eq "AC1021" stream) "2007/2008/2009")
((eq "AC1018" stream) "2004/2005/2006")
((eq "AC1015" stream) "2000/2000I/2002") ;; was 2000i, forced uppercase
((eq "AC1014" stream) "R14")
((eq "AC1012" stream) "13")
((eq "AC1009" stream) "11,12")
((eq "AC1006" stream) "10")
((eq "AC1004" stream) "9")
((eq "AC1003" stream) "2.6")
((eq "AC1002" stream) "2.5")
((eq "AC2.10" stream) "2.10")
((eq "AC1.50" stream) "2.0")
((eq "AC1.4" (setq stream (substr stream 1 5))) "1.4")
((eq "AC1.2" stream) "1.2")
((eq "MC0.0" stream) "1.1")
("Doesn't appear to be an AutoCAD dwg, cue sad trombone.")
)
)
干杯。
很久以前，我有一个在后台运行的实用程序，它捕获文件版本并自动以正确的版本打开它，以防止用户在我们安装了几个不同版本时将其保存到更新的文件类型。那是15年前...可悲的是，我再也找不到我当时的代码存储库了。我有它，只是不知道在哪里：-/ 这里有一个想法（Q&D）：
嗯，不。我们的客户拥有从80年代到现在的图纸。也就是说，按照你认为合适的方式滥用它，事实上，发布到沼泽的所有示例代码都喜欢这样的未来。干杯。
que
我觉得在这篇之前的某个地方少了一篇帖子
问：
我觉得在这篇文章之前的某个地方少了一篇文章。
少了的是我在发布这篇文章前应该喝的那桶咖啡<我完全误读了Crank的帖子<看别处，我很丑 呵呵
页:
[1]