ZHANGJIANZSY 发表于 2010-9-27 20:26:00

介绍一拆图工具：自动生成三维实体的三视图

<p>首先输入APPLOAD命令加载ACAD.FAS程序文件，或添加到启动组内。然后打开三维实体文档，在命令行输入ACAD即可，程序自动生成三维实体的三视图，还可以插入名称是A4TK.DWG的A4图框.</p>
<p> </p>
<p>&nbsp;</p>
<p><img src="file:///F:/未命名.bmp"/></p>
<p>输入命令ACAD后将该三维实体拆图，结果如下图示：</p>
<p><img src="file:///F:/未命名1.bmp"/></p>

AMTONNY 发表于 2012-5-9 17:53:09

我自已弄的,不好用,不过发上来让各位班主改良也是不错哦
;;;;;三维转三视图
(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))

santalin 发表于 2010-10-3 16:13:00

<p>不错，不知道你是否能新建一个文件再生成呢</p>
<p>这样还要去复制一个新图形</p>
<p>源代码能看看吗</p>
<p>或者介绍一下思路也行</p>

ZHANGJIANZSY 发表于 2010-10-3 16:36:00

<p>我是用VBA方法新建一个文件后自动拆图。在这里没有上传DVB程序文件 抱歉。</p>
<p>思路是用SOLPROF命令生成三视图的轮廓，并获得三维实体的边界框和视图中心点的方法做成块插入模型空间即可。</p>

xhq1954425 发表于 2010-10-10 08:06:00

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

ZHANGJIANZSY 发表于 2011-2-13 12:09:28

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

172093846 发表于 2012-5-9 00:10:34

XIEXIELZ ......................

jinaijia0427 发表于 2019-11-3 21:43:11

这个自动生成三视图真的很牛逼
页: [1]
查看完整版本: 介绍一拆图工具：自动生成三维实体的三视图