Mleader故障
早上好我和我的MLEADER有些纠结,昨天它工作得很好,但今天它没有,我甚至把代码回滚到昨天和同样的问题。
我传递了两个点&弦来做领头羊,这一切都很好。
问题是,最后一个点现在位于文本的末尾,而不是指引线点的端点在其具有尾部之前的位置。顶部的图像是它正在做什么,底部是它正在做什么。
附件是我用来创建多重引线以及样式的。
编辑:相当确定这不是引线样式,因为引线手动完成不会出现问题
Edit2:我找到了导致问题的原因,但不确定如何修复。。
\/将导致项目转到另一侧,
(vla SetDogLegDirection Mleader 0(vlax-3D点(列表(3(长度Pt\u StartPt))(setq Pt\u StartPt(列表(汽车Pt\u StartPt)(cadr Pt\u StartPt)0))(if(>3(长度Pt\u端点))(setq Pt\u端点(列表(汽车Pt\u端点)(cadr Pt\u端点)0))(setq ms(vla get modelspace(vla get activedocument(vlax get acad object)))var(vlax make variant(vlax safearray fill(safearray vlax vbdouble’(0.5))(apply'append(list Pt\u StartPt Pt\u EndPoint)))Mleader(vla addMleader ms var 0)(vla put TextString Mleader Str_Text)(vla SetDogLegDirection Mleader 0(vlax-3D-point(如果(
页:
[1]