首先输入APPLOAD命令加载ACAD.FAS程序文件，或添加到启动组内。然后打开三维实体文档，在命令行输入ACAD即可，程序自动生成三维实体的三视图，还可以插入名称是A4TK.DWG的A4图框.

[code]

 

输入命令ACAD后将该三维实体拆图，结果如下图示：

网友答: 我自已弄的,不好用,不过发上来让各位班主改良也是不错哦
;;;;;三维转三视图
(DEFUN c:3DD()
(vl-load-com)
    (SETVAR "CMDECHO"  0)
    (setq a (ssget))
    (setq ta (getpoint "\n请指定三视图摆放点: "))
     (setq TAY (polar Ta (/ pi 1.5) 5))
     (setq TAX (polar Ta 0 5))
    (command "copy" a "" "0,0" "0,0")
    (command "copy" A "" "0,0" "0,0")
    (setq ep (entlast))
    (command "ROTATE3D" a "" "Y" TA "-90" "" )
    (command "ROTATE3D" EP "" "X" TA "-90" "" )
(princ " 实体转成平面图")
(setq ssg1 (ssget));;生成布局选项
(COMMAND "-view" "_top")
(command "layout" "s" "")
(princ "\n 三视图正在生成中，请稍候......")
(command "mspace")
(command "_solprof" ssg1 "" "N" "y" "N")
(princ "\n 三视图已生成")
(setq epa (entlast))
(command "model")
(command "ERASE" SSG1 "")

(princ))

网友答:

不错，不知道你是否能新建一个文件再生成呢

这样还要去复制一个新图形

源代码能看看吗

或者介绍一下思路也行

网友答:

我是用VBA方法新建一个文件后自动拆图。在这里没有上传DVB程序文件 抱歉。

思路是用SOLPROF命令生成三视图的轮廓，并获得三维实体的边界框和视图中心点的方法做成块插入模型空间即可。

网友答: 还不错！最好是直接在模型空间生成三视图。

网友答: 直接在模型空间生成三视图需要用FLATSHOT 命令就可以！

网友答: XIEXIELZ ......................

网友答: 这个自动生成三视图真的很牛逼

网友答: 用不了，提示  ACAD 被CAD拒绝