乐筑天下

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

[编程交流] 面积平方英尺

[复制链接]

38

主题

83

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
186
发表于 2022-7-6 10:12:00 | 显示全部楼层 |阅读模式
大家好。
我的堂兄遇到了这个面积平方英尺的Lisp程序例程,我喜欢,但它似乎不是2004年和2008年的工作。这将是一个很好的工具。我试图修改它,但我仍在学习lisp和VBA。
它给出了一个错误的维度。如果是建筑和脚的话,那就太好了。
DDAREA程序创建一条lwpolyline并插入面积为平方英尺的文本。但是当你列出LW多段线时,你得到了不同的测量值。
如果是建筑和脚的话,那就太好了。
是否有人可以帮助解决此问题,或者是否有人见过这样一个在Autocad ver 2004和2008中工作的程序?
我堂兄告诉我这是AutoCAD 2000版本的。
谢谢
 
111203mm3fisss5fm54cne.jpg
DDAREA。dcl
DDAREA。lsp
回复

使用道具 举报

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:16:42 | 显示全部楼层
 
你能公布例行程序吗?
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:20:04 | 显示全部楼层
嗯。。。Cadmando2,你(或你的堂兄)是从哪里学来这个套路的?
 
编辑:
请张贴LISP代码。
 
此外,请参阅:代码发布指南
回复

使用道具 举报

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:22:29 | 显示全部楼层
我刚在Cadalyst上找到它。
 
 
;Tip1645a:DDAREA。LSP标签区域©2000,Brian Strandberg
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:27:17 | 显示全部楼层
 
 
谢谢,秃鹰。。。我想这可能是同事的诡计,避免了灾难。
回复

使用道具 举报

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:30:18 | 显示全部楼层
 
我还在SPAUG上找到了另一个同名的例程,但作者不同,该例程只显示了一个带有区域信息的警报对话框。张贴在帖子#1上的代码上的作者姓名被删除。因为我不知道全部情况,所以我不会指控。只是为了让OP知道,非作者发布的代码应该在标题中具有作者权限和作者姓名。
回复

使用道具 举报

38

主题

83

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
186
发表于 2022-7-6 10:31:36 | 显示全部楼层
我的堂兄给了我一张CD,里面有他几年前在尝试学习Auto lisp时收集的一堆旧的lisp例程,但他选择了另一个方向,抛弃了AutoCAD,学习了Solid works。
他开始创建的一些Lisp程序例程和其他学生创建的其他例程。
根据我堂兄帕特里克告诉我的,他们哪里没有lisp程序的版权。我觉得偷别人的东西或在没有许可的情况下修改别人的文件是不对的。
如果lisp例程中没有名字,您如何找出编写lisp例程的人?当我查看lisp例程时,没有发现任何问题。
我在AutoCAD Visual lisp编辑器中打开lisp例程,看看是否可以看到它不起作用的原因。
但是Lisp已经很老了,明年我有更多时间的时候,我会学习VBA。
但我有一个同事正在寻找一个程序,你可以在一个区域中选取并创建多段线,然后将建筑中的平方英尺作为文本。从没有CAD的客户那里追踪旧的绘图文件是一件痛苦的事。总是在起草和重新绘制旧手绘时寻找捷径。
回复

使用道具 举报

54

主题

3755

帖子

3583

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
438
发表于 2022-7-6 10:34:25 | 显示全部楼层
VBA失效。不要浪费你的时间。如果你迷上了VB,至少要用VB。网
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:38:26 | 显示全部楼层
 
 
 
别担心。
 
对不起,如果我让你怀疑你使用这个,我并不是想向你收取任何费用。没有伤害,没有犯规。
 
::回到主题:
 
我们可以帮助您修改DCL代码,以“显示”您在OP中要求的值,但为了在结果中有一些实际更改,我们需要修改LISP代码。
回复

使用道具 举报

44

主题

3166

帖子

2803

银币

中流砥柱

Rank: 25

铜币
557
发表于 2022-7-6 10:42:16 | 显示全部楼层
 
 
你打败了我。。。再一次
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-5 21:38 , Processed in 0.768182 second(s), 75 queries .

© 2020-2025 乐筑天下

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