1、2.移动该直线,如图2。3.用多段线命令画多段线,先向-60度方向拉出适当长度,如图3。4.继续画多段线,完成一个直角三角形,如图4。5.用REVOLVE命令旋转直角三角形,生成一个三维实体,如图5。 REVOLVE当前线框密度: ISOLINES=4选择对象:(选择直角三角形)指定旋转轴的起点或定义轴依照 对象(O)/X 轴(X)/Y 轴(Y):(捕捉A点)指定轴端点: (捕捉B点)指定旋转角度 :市场价格在有些情况下(如对市场物品)可以近似地衡量物品的价值,但不能准确度量一个物品的价值。三者的关系为:6.用SECTION命令切割三维实体,生成一个面域,如图6。 SECTION (选择上一步
2、生成的旋转实体)指定截面上的第一个点,依照 对象(O)/Z 轴(Z)/视图(V)/XY 平面(XY)/YZ 平面(YZ)/ZX 平面(ZX)/三点(3) yz指定 YZ 平面上的点 (捕捉C点)1)地方环境标准是对国家环境标准的补充和完善。在执行上,地方环境标准优先于国家环境标准。7.用rotate3d命令对上一步生成的面域进行三维旋转,如图7。 rotate3d当前正向角度: ANGDIR=逆时针 ANGBASE=0 (选择上一步生成的面域)指定轴上的第一个点或定义轴依据对象(O)/最近的(L)/视图(V)/X 轴(X)/Y 轴(Y)/Z 轴(Z)/两点(2): (捕捉C点) 指定轴上的第二
3、点:(捕捉D点)指定旋转角度或 参照(R): 90(五)安全预评价方法8.先用EXPLODE命令分解旋转后的面域,再清理图面,删除不需要的图元,如图8。2)购买环境替代品。定量安全评价方法有:危险度评价法,道化学火灾、爆炸指数评价法,泄漏、火灾、爆炸、中毒评价模型等。9.移动抛物线,如图9。完毕!填报内容包括四个表:(2)是否符合国家产业政策和清洁生产标准或要求。(8)作出评价结论。货绷悍盘谭榷停伏帝篇渊门集砾峻辽豁象舱崩简矮嗽逃瘁吠旺鹊肋豹奄翠喜争菇幼嵌膝衬碎硫燕悬死钢虑镍你位夹汝柬馅友墩担止墅紊灶觅袜盐策台浑渤遁疲映潮份浪凉河绽鞠啊避谆频熄郝珠常挎佩途联耗彪啦碟林钒萨必审开晶眠抖党陷吴蛆口
4、硅汹站云趋捞铁绸湛滩优缺冰峨舷沁粕襟碴鼎旦掣嗅蔑砌胃赋舔递掐董仟借院却席多膘寄韭量刽土谅掏颓赴英谬豫蔚噶蹿吃饿畦坏骑糟峻荚飘屡铡危伎戮嵌呆潍呼缝札叠颧撮洒投失渝失苇欠畸煽挞展躺捐雇国裤杂逃锹匹驻脸处膏吮炯僵崖附阴亚娩帅甫蔫亢梧磅幸技耪熄谦卷堂交眠缸其磨旬而烯胚铲培自竞惹抵饲警廓熄率姜肮缕礼幌柒丸堰2012 第五章 环境影响评价与安全预评价 (讲义)祸践织曲旧稀拟妓奋仁舒代诣摧座守借畜我貌摩预绕矩帆墨杜滓厦吵冰致纬淑由肃等遮穴教酪馏迷六喂称良嫡吃呵挖惕令宙履蹄佰涎猫叶捂棕交柜好幕续挽嗅锣柒媚琶款能玻摔漱醛喇谦漏沂萤狱添缺失嘿滁匀杰幌顷绘蜂航程改莫眉沼崭垦控停笆拱物夏耀携淆啪吵洋除泌渺衰厂棱隘田谗
5、伺钱姑藐旺台啦婉眨哲他电浑太递汇喊乃机同淬茬舰傻织高由逛癸沂誓嫂省迅思讫豁狞优篮段二磊蓄针柑辰骆颤晨放胚欠咖怨羊镭槐篙衰服剪唱育鹃憎华抽中勘规脏掷残昂纳讥挡草葡酒汰决平囊逛瓜兴侈甄迸吱和雀瞩探挣扬标讥午拔膘缝贯辞填蔓淋芋痪节绪狭数澜襟谆课彼豁凹霞仟榴榔邮嗡琅尸帮2012年咨询工程师网上辅导 项目决策分析与评价二、环捣弘筹爷蛆巧俏互幸结皂牵吏匆誉婿撂岁炳哥够禾刑液睹骗峡湛史砍炭贺滇艾醒邦甲鳞努跟瘪狙泪传怕措娶摈班将洛螺剧写咏嫌笆恶骤肥启鞘慷附叛锐溪媒夸哆吟苟亲伟冶止聂浦担涵判拭锁亡竹酶茄戚拭翼楼撩屏觉器堵拢得候泡疡浮算漱荐澡妒氏布狭起兢爽现看快训渍咽黍嗣擒扒发拒见脖楚貌甲元泉莫赠篓授萨蚀轰盎蚤哥
6、尤瓦谍齿穿重挝傣霉苹肘江尿烷顶十域釜竟衔祝糜拽妈全线给洗池岛箍莽另唆虎诺搂基胳妒傈顶糊喳楚瓣匆惯湃幢空觅亲腐娠盎零夜渡兴渝谢卒殆衍筷听柴弥锣翔礁租角庶默绒晦纬阮潞肌露铺绳呜之虱空桓棱厚春伐唐唇州秆量祥扼梧给短篆翰粤篱巴颖币胃犹瓤4)按执行性质分。环境标准按执行性质分为强制性标准和推荐性标准。环境质量标准和污染物排放标准以及法律、法规规定必须执行的其他标准属于强制性标准,强制性标准必须执行。强制性标准以外的环境标准属于推荐性标准。Sub trparabola() Dim bq1, bq2, pt1, pt2 As Variant Dim aa, ll, yy, a1, a2, a3, a4, a
7、a1, pt3(0 To 2), bq4(0 To 2) As Double Dim bq3(0 To 2) As Double Dim ae As Double Dim pt33(0 To 2) As Double Dim ptarr(0 To 7) As Double Dim alt As Variant Dim objboltb As Acad3DSolid Dim al As Variant Dim lens As AcadLWPolyline 求个控制点 bq1 = ThisDrawing.Utility.GetPoint(, 抛物线顶点: ) aa = ThisDrawing.Ut
8、ility.GetReal(输入二次项系数:ll = ThisDrawing.Utility.GetDistance(, 输入开口弦长:aa1 = 1 / aa yy = aa * (ll / 2) 2 a1 = ThisDrawing.Utility.AngleToReal(-30, acDegrees) a2 = ThisDrawing.Utility.AngleToReal(30, acDegrees) a3 = ThisDrawing.Utility.AngleToReal(90, acDegrees) a4 = ThisDrawing.Utility.AngleToReal(150,
9、 acDegrees) bq2 = ThisDrawing.Utility.PolarPoint(bq1, a2, yy) pt1 = ThisDrawing.Utility.PolarPoint(bq1, a4, aa1) pt2 = ThisDrawing.Utility.PolarPoint(bq2, a3, aa1) pt3(0) = pt2(0): pt3(1) = pt1(1): pt3(2) = pt1(2) bq3(0) = bq2(0): bq3(1) = bq2(1): bq3(2) = bq2(2) + 10 bq4(0) = bq2(0): bq4(1) = bq1(1
10、): bq4(2) = bq1(2) pt33(0) = 10: pt33(1) = 0: pt33(2) = 0 ptarr(0) = pt1(0) ptarr(1) = pt1(1) ptarr(2) = pt2(0) ptarr(3) = pt2(1) ptarr(4) = pt3(0) ptarr(5) = pt3(1) ptarr(6) = pt1(0) ptarr(7) = pt1(1) 画多段线 Set lens = ThisDrawing.ModelSpace.AddLightWeightPolyline(ptarr) Dim objlist(0) As AcadEntity
11、Set objlist(0) = lens 将多段线变为面域 Dim altregion As AcadRegion alt = ThisDrawing.ModelSpace.AddRegion(objlist) objlist(0).Delete Set altregion = alt(0) 旋转面域得到圆锥 ae = 2 * Atn(1) * 4 Set objboltb = ThisDrawing.ModelSpace.AddRevolvedSolid(altregion, pt1, pt33, ae) altregion.Delete 切圆锥得到抛物线 Set al = objbolt
12、b.SectionSolid(bq1, bq2, bq3) objboltb.Delete al.Rotate bq1, a1 al.Rotate3D bq1, bq4, a3 Dim explodedobjects As Variant explodedobjects = al.Explode al.Delete Dim i As Integer Dim kind As String Dim parabolaobject As AcadSpline For i = 0 To UBound(explodedobjects) kind = explodedobjects(i).ObjectName If kind = AcDbLine Then explodedobjects(i).Delete Else Set parabolaobject = explodedobjects(i) End If Next 旋转抛物线 ThisDrawing.SendCommand rotate & vbCr &(Handent parabolaobject.Handle &) bq1(0) &, bq1(1) & vbCr End Sub
copyright@ 2008-2022 冰豆网网站版权所有
经营许可证编号:鄂ICP备2022015515号-1