[VBA函数]：VBA offset问题

wfgjy · 发表于 2003-8-27 12:07:42

您需要登录才可以下载或查看，没有账号？立即注册

×

我在用VBA编程时，要点取一条线（包括直线、多义线、圆曲线），然后自动向两边偏移一个值，形成边线，但编完后发现在新建CAD图里可以正常运行，但在地形图里用，偏移的线都跑到0，0点附近了，请问各位大虾能否解决这个问题呀？

sdxylijian · 发表于 2003-8-28 01:41:20

若方便，把代码萜上来，大家可以研究一下嘛！

wfgjy · 发表于 2003-8-28 11:30:17

该程序目的是道路平面图放边线，由用户在一个设置表单里设置好道路边线、人行道宽度后，在这里通过用户选择的中心线，向两边偏移出边线来，结果出了这个问题，敬请大虾指教

hgqhq · 发表于 2003-8-31 08:19:51

初步看了一下你的程序中以下变量没有定义
papscal, papzigao, roadwidth, xcd, rxdwidth, rxd而且它们也没有初始值，不知你出的是什么问题？

wfgjy · 发表于 2003-8-31 10:48:02

这几个变量是在另一个表单里设置的，我没贴上来，只贴了相关的表单代码
问题就是，编程用的简单的VBA offset命令，执行结果让人意外，新建的图
可以正常执行，在有地形图的图里操作，线条全部偏移到原点附近了，实在
不得其解。请赐教。

liubz · 发表于 2003-9-1 10:03:39

我发现cad2000个偏移有问题，如果一条很直的多义线偏移，很可能产生错误的结果。

chman · 发表于 2005-5-17 22:33:48

你没有注意线分为三维线和二维线的缘故
如果你三维线用二维数组存储，就会出现你说的都跑到（0，0）上去了
地形图里面的线都是三维的，X,Y,高程

ghhone · 发表于 2005-5-19 20:34:12

最初由 chman 发布
[B]你没有注意线分为三维线和二维线的缘故
如果你三维线用二维数组存储，就会出现你说的都跑到（0，0）上去了
地形图里面的线都是三维的，X,Y,高程 [/B]

楼上说得不错，很有可能是地形图的用户坐标系统和新建图的坐标系统不一样

账号		自动登录	找回密码
密码			立即注册