dexus 发表于 2022-7-5 18:24:13

除法函数

你好
 
我用一个函数快速分割一条线。分段四舍五入到选定的距离。
现在这个效果很好。但我有一张画有同样长度的线,只有一条分为6部分,另一条分为7部分。
我得到了两条线的vlax转储:
选择对象:;IAcadLine:AutoCAD线条界面
 
; Property values:
;   Angle (RO) = 3.14159
;   Application (RO) = #<VLA-OBJECT IAcadApplication 000000013fd89110>
;   Delta (RO) = (-3000.0 9.09495e-013 0.0)
;   Document (RO) = #<VLA-OBJECT IAcadDocument 000000002f573368>
;   EndPoint = (-14065.0 5567.73 0.0)
;   EntityTransparency = "ByLayer"
;   Handle (RO) = "DB11"
;   HasExtensionDictionary (RO) = 0
;   Hyperlinks (RO) = #<VLA-OBJECT IAcadHyperlinks 0000000037a10f78>
;   Layer = "HULPLIJN"
;   Length (RO) = 3000.0
;   Linetype = "ByLayer"
;   LinetypeScale = 1.0
;   Lineweight = -1
;   Material = "ByLayer"
;   Normal = (0.0 0.0 1.0)
;   ObjectID (RO) = 44
;   ObjectName (RO) = "AcDbLine"
;   OwnerID (RO) = 43
;   PlotStyleName = "ByLayer"
;   StartPoint = (-11065.0 5567.73 0.0)
;   Thickness = 0.0
;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 0000000037a13370>
;   Visible = -1
T
唯一的区别似乎是delta,我如何在lisp中解决这个bug?提前感谢!

Lee Mac 发表于 2022-7-5 18:49:03

更改:
3
收件人:
4

dexus 发表于 2022-7-5 19:04:59

这是一种更好的取整方式,谢谢!
 
顺便说一句,我喜欢你的网站,它对学习autolisp很有帮助。

Lee Mac 发表于 2022-7-5 19:27:35

谢谢你-我感谢你对我的网站的积极反馈!
页: [1]
查看完整版本: 除法函数