付费求助，高手帮忙做二维转三维
本帖最后由 作者 于 2006-5-22 16:57:27 编辑 <br /><br /> <P>课题 用VBA编程实现三视图转换为立体图</P><P> 圆柱与圆柱相交，圆柱与圆锥，圆柱与球体</P>
<P>那位会的帮帮忙</P>
<P>QQ 82607180</P>
<P><A href="mailto:hjs1115@163.com" target="_blank" >hjs1115@163.com</A></P> 图形数字化转换工作室
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">图形数字化转换工作室</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"> <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /><o:p></o:p></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt">工程图纸数字化转换工作室，拥有一批受过工程制图严格培训、经验丰富的绘图人员和具有多年工程实践经验的校审人员。绘图人员熟练地掌握<FONT face="Times New Roman">AutoCAD</FONT>、<FONT face="Times New Roman">MicroStation</FONT>、<FONT face="Times New Roman">3D Studio</FONT>、<FONT face="Times New Roman">3D MAX</FONT>等绘图软件及地理信息系统软件。</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"> <o:p></o:p></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="mso-spacerun: yes"><FONT face="Times New Roman"> </FONT></SPAN>工程图纸数字化转换中心有一套严格的质量保证体系，项目管理贯穿绘图生产的各个环节。为了使绘图产品精确、安全、可靠，每一项目从开始到结束都始终置于项目经理精心组织和管理之下，建立了三级校审、图纸跟踪等制度并由具有多年工程经验的高级工程师对技术问题进行指导解决。以保证所有绘图产品能达到零错误。</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"> <o:p></o:p></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><SPAN style="mso-spacerun: yes"><FONT face="Times New Roman"> </FONT></SPAN>服务范围</P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"> <o:p></o:p></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes"> - </FONT></SPAN>图纸数字化<FONT face="Times New Roman"> </FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes"> - </FONT></SPAN>图纸矢量化<FONT face="Times New Roman"> </FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes"> - </FONT></SPAN>图纸扫描<FONT face="Times New Roman"> A4--A0 </FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes"> - </FONT></SPAN>缩微胶片扫描<FONT face="Times New Roman"> </FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt"><FONT face="Times New Roman"><SPAN style="mso-spacerun: yes"> - </FONT></SPAN>文献录入<FONT face="Times New Roman"> </FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 6pt"><FONT face="Times New Roman"> <o:p></o:p></FONT></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 24pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1; tab-stops: list 24.0pt"><FONT face="Times New Roman">-<SPAN style="FONT: 7pt 'Times New Roman'"> </FONT></SPAN>价格合理，保证质量。</P>
<P style="MARGIN-LEFT: 252pt; TEXT-INDENT: -252pt"><SPAN style="mso-spacerun: yes"> </SPAN>联系人：张先生<o:p></o:p></P>
<P> 电 话：010－67685711 <o:p></o:p></P>
<P> Email：zlp80009@126.com<o:p></o:p></P>
<P style="TEXT-INDENT: 264pt"><SPAN style="mso-spacerun: yes"> QQ</SPAN>：83387257<o:p></o:p></P>
<P class=MsoNormal style="MARGIN: 0cm 0cm 0pt 24pt; TEXT-INDENT: -18pt; mso-list: l0 level1 lfo1; tab-stops: list 24.0pt"><FONT face="Times New Roman">-<SPAN style="FONT: 7pt 'Times New Roman'"> </SPAN> <o:p></o:p></FONT></P></SPAN> cuseasky@sina.com <P> 天 弛 CAD 制 图 工 作 室 <BR> <A href="http://www.060s.com/web/com/ZHXL/" target="_blank" >http://www.060s.com/web/com/ZHXL/</A> <BR> 我们承接各类机械制图服务(机械或是建筑行业) 开展的业务:所有机械工装夹具,<BR>各种机构,小型设备等设计,机械工程CAD制图、三维造型、模具设计,三维装配,<BR>设备效果图,三维动画（用于企业的营销宣传等等）,我们均用世界顶级的软件(SOLIDWORKS, UG, PROE, CATIA ,AUTOCAD,CAXA... ...) <BR>完全可以根据您的要求生成各种格式三维模型与平面工程图. <BR> 我们保证在全国价格最低!!!!<BR> 联系电话： 13596291998 QQ： 573256504<BR> 电子邮件： <A href="mailto:TCCAD@126.com" target="_blank" >TCCAD@126.com</A> 联 系 人：张弛</P> 【新提醒】怎么根据二维的标高画三维啊 - AutoLISP/Visual LISP 编程技术 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!http://bbs.mjtd.com/thread-190283-1-1.html
还有一个方法是通过改变(直线多段线)厚度来实现视觉上的三维效果
[*];ZZ41批量改变图元39厚度'e派工具箱'代码没有加载工具箱则无法运行实现
[*](DEFUN C:ZZ41()(ZZ412023)(princ))
[*](defun ZZ412023()
[*](setvar "cmdecho" 0)
[*](setvar "blipmode" 0)
[*](graphscr);20240608
[*](if(not z1)
[*] (SETQ z1 0)
[*])
[*](SETQ str(strcat "\n归具体数值<"(rtos z1 2 2) ">:"))
[*];(SETQ JD(getint "\n小数保留位数<4>: "))
[*](SETQ z11(getreal str))
[*](if z11
[*] (SETQ z1 z11)
[*]);20240608
[*](princ "\n请选择要改变厚度的图元2023年09月14日23时06分51秒")
[*]
[*](if(setq ss(ssget "X"))
[*] (xyp-SubUpd ss 39 Z1)
[*])
[*](princ)
[*])
页:
[1]