乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 38|回复: 3

vlax-curve-getClosestPointTo问题

[复制链接]

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2006-12-3 11:34:29 | 显示全部楼层 |阅读模式
您好-
我正在尝试在VBA和VLisp之间进行通信,以使用setlispvar和Evalispexpression代码使用vlax曲线函数。我似乎无法让代码正常工作。附件包含我的代码。代码尝试从(0,0,0)到(100100,0)绘制一条线,然后找到距离(50,55,0)最近的点。问题似乎在于将点变量转换为点列表。任何帮助都将不胜感激,因为此时此刻我感到彻底的沮丧和“脑死亡”,知道我忽略了一些非常明显的事情或做了一些非常愚蠢的事情list data))) (t data)))"
    EvalLispExpression "(setq " & symbolName & "(translate-variant " & symbolName & "))"
    EvalLispExpression "(setq translate-variant nil)"
End Sub
[/code]
回复

使用道具 举报

71

主题

928

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1230
发表于 2006-12-3 13:42:31 | 显示全部楼层

我用的是弗兰克的课,很容易用,做你需要的事
(我在2006年,我还没有在2007年试过)
“曲线”。cls v1.3(最新更新日期为2001年12月18日)
“版权所有2000,2001年由Frank Oquendo出版
回复

使用道具 举报

170

主题

1424

帖子

8

银币

顶梁支柱

Rank: 50Rank: 50

铜币
2119
发表于 2006-12-3 14:45:06 | 显示全部楼层
谢谢各位。!
感谢您的提示。我仍在努力解决这个问题。我尝试过曲线课,取得了一些成功。对于我的测试图形,它似乎工作得很好,因为在坐标上只有几个值小于10,000的Aecc点。我在一张有大约300个点的较大的图上试了一下,x的状态平面坐标为10,000,000,y的状态平面坐标为3,000,000,它在不同的点给出了一个错误信息,没有一致性。如果我把点数转换成小于10,000的值,那么它对于300点来说是完美的。问题是不是因为我一直得到错误代码13,所以有些值用科学符号表示?
反正我会一直玩下去。再次感谢你的帮助!!!
回复

使用道具 举报

1

主题

4

帖子

1

银币

初来乍到

Rank: 1

铜币
8
发表于 2006-12-5 20:05:18 | 显示全部楼层
当你离原点太远的时候Cad本身就有抵消的问题,vba的低精度也没多大帮助。
如果您只想要最近的点,我将发布一些我更喜欢的带数学的代码。
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-7 00:14 , Processed in 0.955839 second(s), 60 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表