社区
VBA
帖子详情
如何找acad中所有线段的起点和终点
lljlll2009
2009-04-24 05:45:27
RT
如何找acad中所有线段的起点和终点
还有一个问题
空间线段的两端(a点和b点)
坐标已知为a=(x1,y1,z1),b=(x2,y2,z2)
已知一固定长度为7.5
求以a(x1,y1,z1)为端点,在ab方向上长度为7.5的点的坐标
a__________________b________c
c点可能在ab上,也可能在ab的延长线上.
请各位大侠指点迷津,不胜感激!
...全文
221
1
打赏
收藏
如何找acad中所有线段的起点和终点
RT 如何找acad中所有线段的起点和终点 还有一个问题 空间线段的两端(a点和b点) 坐标已知为a=(x1,y1,z1),b=(x2,y2,z2) 已知一固定长度为7.5 求以a(x1,y1,z1)为端点,在ab方向上长度为7.5的点的坐标 a__________________b________c c点可能在ab上,也可能在ab的延长线上. 请各位大侠指点迷津,不胜感激!
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
1 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
xhf81
2009-09-16
打赏
举报
回复
想法:
用画线的命令可不可以,取得ab线的角度,然后画线,起点是a,然后给角度和距离,终点是要找的那个点
VB 判断两条
线段
是否相交
r As Rectangle) As Boolean If r.xMin 算法2:判断点是否在
线段
上(p为一点,s和e分别为
线段
的
起点
和
终点
) Private Function PointOnSegment(p As Point, s As Point, e As Point) As Boolean ' 创建外接矩形 Dim...
标注所有
线段
的lisp程序源码_在网上
找
的几个比较有用的lisp小程序
1. 计算所有
线段
总长度(加载后只需框选所有线(defun c:LL()(setvar"cmdecho" 1)(setq en(ssget (list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))(setq i 0)(setq ll 0)(repeat(sslength en)(setq ss(ssname en...
标注所有
线段
的lisp程序源码_标注
线段
长度【文字方式】 - AutoLISP/Visual LISP 编程技术 -
CAD
论坛 - 明经
CAD
社区 - 曲线,测量 - Powered by Dis...
本帖最后由 仲文玉 于 2012-8-11 08:30 编辑[code="lisp](defun C:kxbz ()(COMMAND "UCS" "")(setq cmdecho_bak (getvar "cmdecho"))(setq A
cad
Object (vlax-get-a
cad
-object)A
cad
Document (vla-get-ActiveDocument ...
地籍
cad
的lisp程序大集合_几个
CAD
很有用的lisp程序
1.计算所有
线段
总长度(加载后只需框选所有
线段
便可得出这些
线段
的总长度)(defun c:LL ()(setvar "cmdecho" 1)(setq en (ssget(list '(0 . "spline,arc,line,ellipse,LWPOLYLINE"))))(setq i 0)(setq ll 0)(repeat ...
将一个多段线按一些点分割成一个或多个
线段
virtual A
cad
::ErrorStatus getSplitCurves( const AcGePoint3dArray& points, AcDbVoidPtrArray& curveSegments ) const; 参数: const AcGePoint3dArray& points 在曲线上的分割点数组(在WCS...
VBA
2,463
社区成员
10,807
社区内容
发帖
与我相关
我的任务
VBA
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
复制链接
扫一扫
分享
社区描述
VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章