等高线该颜色

等高线该颜色 昏暗的DB数据库= hostapplicationservices.workingdatabase 昏暗的ED = application.documentmanager.mdiactivedocument.editor编辑 模糊实体 k作为整数 昏暗的DOC文档= application.documentmanager.mdiactivedocument 使用lckdoc作为doc.lockdocument DocumentLock = 使用反交易= db.transactionmanager.starttransaction 尝试 “建立昏暗的图层 昏暗的LT LayerTable =反GetObject(db.layertableid、OpenMode . ForRead)。 昏暗的layname是字符串“朦胧” 如果Lt.Has(layname)= false 昏暗的LTR作为layertablerecord =新layertablerecord() 名称= layname LTR。 文字颜色,颜色。fromcolorindex(colormethod.byaci，3) “升级图层块为写入upgradeopen()中尉 Lt.Add(LTR)的加入到图层块表 反。addnewlycreateddbobject(LTR，真的加入该事务) 最后如果 昏暗的BT作为BlockTable =反GetObject(db.blocktableid、OpenMode . ForRead)。 昏暗的BTR作为BlockTableRecord =反。GetObject(BT(BlockTableRecord。模型空间)，打开方式。forwrite) 昏暗的电视(1)作为TypedValue 电视。setValue(新TypedValue(dxfcode.start，“线”)，0) 电视。setValue(新TypedValue(dxfcode.layername，“计曲线”)，1) 昏暗的setfilt作为selectionfilter =新selectionfilter(电视) 模糊的结果promptselectionresult = ed.getselection(setfilt) 闵敏，马克斯双 min = 100000 马克斯= 1 暗A1，B1，C1，A2，B2，C2，A3，B3，C3为整数 A1 = 0:B1 = 0:C1 = 255 A2 = 255:B2 = 0:C2 = 0 昏暗的PL2(result.value.count - 1)为折线 如果状态= promptstatus.ok然后结果。 昏暗的sset1作为selectionset =结果的价值。 K = 0 每个元素作为selectedobject在sset1 耳鼻喉=反。GetObject(elem.objectid，openmode.forwrite，假) 如果类公司是折线然后 暗淡的PL线= C型(ENT，折线) PL2(K)= PL 马克斯=数学。马克斯(pl.elevation，马克斯) min =数学。min(pl.elevation，min) k,k，1 最后如果 下一个 模糊i为整数 我= LBound(PL2)到UBound(PL2) A3 = A1 + int((A2 A1)*(PL2(我)。海拔?min)/(最大值-最小)) B3 = B1 + int((B2 B1)*(PL2(我)。海拔?min)/(最大值-最小)) C3 = C1 + int((C2 C1)*(PL2(我)。海拔?min)/(最大值-最小)) PL2(我)。颜色,颜色。FromRgb(A3、B3、C3) 下一个 最后如果 commit()跨。 捕获异常 MsgBox(“错误”+ ex.message) 最后尝试 最终用 最终用