Cass任何一个CAD版本都能展点的展点原代码Word格式.docx
- 文档编号:19753378
- 上传时间:2023-01-09
- 格式:DOCX
- 页数:7
- 大小:15.79KB
Cass任何一个CAD版本都能展点的展点原代码Word格式.docx
《Cass任何一个CAD版本都能展点的展点原代码Word格式.docx》由会员分享,可在线阅读,更多相关《Cass任何一个CAD版本都能展点的展点原代码Word格式.docx(7页珍藏版)》请在冰豆网上搜索。
mydc.Utility.Prompt(&
正在展绘单点,请稍候!
OpenLeft(myfilename,Len(myfilename)-3)+&
cas&
ForOutputAs#2
Print#2,&
CASS6&
Print#2,Kxy(1,1)+&
&
+Kxy(2,1)
Print#2,Kxy(1,2)+&
+Kxy(2,2)
[KZD]&
SPECIAL&
POINT&
Fori=1ToKn
131800&
+&
+LTrim(Kxy(4,i))
Print#2,Kxy(1,i)+&
+Kxy(2,i)+&
+Kxy(3,i)
e&
Nexti
nil&
IfHn&
lt;
gt;
0Then
[GCD]&
Fori=1ToHn
202101,0.000&
Print#2,Hxy(2,i)+&
+Hxy(1,i)+&
+Hxy(3,i)
EndIf
对每一种地物分类,因为已经排序,只要判断前8位代码就知道是否单点
Open&
C:
\pxy.dat&
ForOutputAs#3
Fori=1ToPn
Ifi=1Then
Print#3,Left(Pxy(1,i),1)+&
+Pxy(2,i)+&
+Pxy(3,i)
Else
Ifi&
1AndLeft(Pxy(1,i),8)&
Left(Pxy(1,i-1),8)Then
Print#3,&
+,&
Close#3
IfPn&
定义一个用来读入的数组
DimCCPxy(3,1500)AsString
DimccPnAsInteger
ccPn=0
ForInputAs#3
DoUntilEOF(3)
ccPn=ccPn+1
Input#3,CCPxy(1,ccPn),CCPxy(2,ccPn),CCPxy(3,ccPn)
Debug.PrintCCPxy(1,ccPn),CCPxy(2,ccPn),CCPxy(3,ccPn)
Loop
经测试读入成功无出错
在此加入多一行数据,用来下面循环之用
CCPxy(1,ccPn)=&
A&
CCPxy(2,ccPn)=CCPxy(2,ccPn-1)
CCPxy(3,ccPn)=CCPxy(3,ccPn-1)
下一步将单点找出来
对于路灯、下水道、电杆,写入展点文件中.其他的以单点+注记
如果不是单点就以线的方式
在此之前将层定义在ZDH
mydc.Layers.Add(&
ZDH&
Fori=1ToccPn
在结尾前,后一个不为&
+&
的为单点
结尾时不为&
ccPnThen
在结尾前,自身与后一个都不为&
IfCCPxy(1,i)&
&
AndCCPxy(1,i+1)&
Then
对于单点,要分开路灯、下水道、电杆
下水道
IfCCPxy(1,i)=&
X&
[GXYZ]&
Print#2,ChangeCode(CCPxy(1,i))&
amp;
0.000&
Print#2,CCPxy(2,i)+&
+CCPxy(3,i)+&
电杆
G&
Print#2,CCPxy(2,
i)+&
路灯
U&
[DLDW]&
如果三者都不是,则addpointandaddtext
AndCCPxy(1,i)&
addp(0)=Val(CCPxy(2,i))
addp
(1)=Val(CCPxy(3,i))
addp
(2)=0#
mydc.ModelSpace.addPoint(addp)
Settestobj=mydc.ModelSpace.addText(CCPxy(1,i),addp(),0.3)
经过以上四个判断,单点已经处理完成,下一步就是展线
展线
当不为“+”时,分列;
当为“+”时。
将坐标加入后面
Print#2,CCL(CCPxy(1,i))
PLINE&
0.000,N,0.000&
+CCPxy(3,i)
后一个不为“+”时,加入E,e,nil
IfCCPxy(1,i+1)&
E&
END&
Close#2
单点展绘完成,请选择保存路径下的*.cas!
mydc.sendcommand(&
_OUTMAP&
vbCr)
EndSub
FunctionChangeCode(ByValcc)AsString
如果在代码外,用内部道路表示
ChangeCode=&
164400&
Ifcc=&
F&
ThenChangeCode=&
141111&
W&
144302&
L&
144400&
B&
144500&
R&
163200&
T&
211110&
S&
181101&
D&
204201&
H&
215400&
N&
144700&
Y&
140001&
V&
216100&
174200&
155210&
171300&
K&
204202&
EndFunction
FunctionCCL(ByValcl)AsString
转层控制
CCL=&
[DLSS]&
Ifcl=&
ThenCCL=&
[JMD]&
[ZBTZ]&
[SXSS]&
[DMTZ]&
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- Cass 任何 一个 CAD 版本 都能展点 原代码