乐筑天下

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

[编程交流] 除法函数

[复制链接]

4

主题

44

帖子

38

银币

初来乍到

Rank: 1

铜币
23
发表于 2022-7-5 18:24:13 | 显示全部楼层 |阅读模式
你好
 
我用一个函数快速分割一条线。分段四舍五入到选定的距离。
现在这个效果很好。但我有一张画有同样长度的线,只有一条分为6部分,另一条分为7部分。
我得到了两条线的vlax转储:
选择对象:;IAcadLine:AutoCAD线条界面
 
  1. ; Property values:
  2. ;   Angle (RO) = 3.14159
  3. ;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000013fd89110>
  4. [color=red];   Delta (RO) = (-3000.0 9.09495e-013 0.0)[/color]
  5. ;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002f573368>
  6. ;   EndPoint = (-14065.0 5567.73 0.0)
  7. ;   EntityTransparency = "ByLayer"
  8. ;   Handle (RO) = "DB11"
  9. ;   HasExtensionDictionary (RO) = 0
  10. ;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000037a10f78>
  11. ;   Layer = "HULPLIJN"
  12. ;   Length (RO) = 3000.0
  13. ;   Linetype = "ByLayer"
  14. ;   LinetypeScale = 1.0
  15. ;   Lineweight = -1
  16. ;   Material = "ByLayer"
  17. ;   Normal = (0.0 0.0 1.0)
  18. ;   ObjectID (RO) = 44
  19. ;   ObjectName (RO) = "AcDbLine"
  20. ;   OwnerID (RO) = 43
  21. ;   PlotStyleName = "ByLayer"
  22. ;   StartPoint = (-11065.0 5567.73 0.0)
  23. ;   Thickness = 0.0
  24. ;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000037a13370>
  25. ;   Visible = -1
  26. T

唯一的区别似乎是delta,我如何在lisp中解决这个bug?提前感谢!
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 18:49:03 | 显示全部楼层
更改:
  1. 3

收件人:
  1. 4
回复

使用道具 举报

4

主题

44

帖子

38

银币

初来乍到

Rank: 1

铜币
23
发表于 2022-7-5 19:04:59 | 显示全部楼层
这是一种更好的取整方式,谢谢!
 
顺便说一句,我喜欢你的网站,它对学习autolisp很有帮助。
回复

使用道具 举报

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 19:27:35 | 显示全部楼层
谢谢你-我感谢你对我的网站的积极反馈!
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-12 20:12 , Processed in 0.406094 second(s), 60 queries .

© 2020-2025 乐筑天下

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