多重引线“基线”方向变换

xudongchu · 发表于 2018-9-20 10:44:27

谢谢分享.....

TULIATRUST · 发表于 2019-4-26 10:49:51

感谢楼主分享，正好要用到这这个功能

TULIATRUST · 发表于 2019-4-26 10:58:02

感谢楼主分享，正好要用到这这个功能
大神提供這麽方便有用的插件
大神提供這麽方便有用的插件

xlfdzlhy · 发表于 2019-5-11 19:42:28

各位大神，有没有快速引线生成多重引线的插件呢

zdqwy19 · 发表于 2019-6-22 07:46:18

看看看看看看看看看看看看看看

qq1254582201 · 发表于 2019-6-25 22:48:12

厉害了，感谢楼主无私奉献，就是能脱离工具箱运行就完美了

qq1254582201 · 发表于 2019-7-1 21:27:29

(defun C:TET2()
(setq oldname(car(entsel)))
(setq Thvlx(vlax-ename->vla-object oldname))
(Get_point Thvlx)
(setq x1(atof(nth 0 listpt))
  y1(atof(nth 1 listpt))
  x2(atof(nth 3 listpt))
  y2(atof(nth 4 listpt))
  lst1(list x1 y1 0 )
  lst2(list x1 y2 0)
  lst3(list x2 y2 0)
)
(setq pt0 (list (trans lst1 1 0)
(trans lst3 1 0)))
(setq pts(gc:3dPointListToVariant pt0))
(setq pt1(vlax-3d-point (trans lst1 1 0)))
(setq pt2(vlax-3d-point (trans lst2 1 0)))
(setq *lead (vla-Mirror Thvlx pt1 pt2))
  (vla-Delete Thvlx)
(vla-SetLeaderLineVertices *lead 0 pts)
)
我是用Vlisp来实现这个功能，没研究明白版主的是什么原理

wrf610051 · 发表于 2020-1-1 14:42:51

回复下载学习,谢谢大师的分享。

开心68602 · 发表于 2021-3-20 18:37:38

下载学习，感谢分享。

13678642166 · 发表于 2021-3-22 13:17:19

如果能像拉移随心那么随意就好了

松树石头哥 · 发表于 2021-3-22 15:32:49

drshang · 发表于 2023-11-6 16:42:18

6666666666666

账号		自动登录	找回密码
密码			立即注册

[工具] 多重引线“基线”方向变换