明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1360|回复: 10

[机械] 求圆管轴线

[复制链接]
发表于 2021-12-13 14:38:57 | 显示全部楼层 |阅读模式
10明经币
求圆管轴线
由直线生成圆管很容易,现反过来,由圆管生成轴线感觉就无法了
只要有圆管轴线上任意两点坐标就可以了
如还能在选择三维圆管的同时,求出圆管外直径和壁厚,那感情更好了。
谢谢




附件: 您需要 登录 才可以下载或查看,没有账号?注册

最佳答案

查看完整内容

不敢当,千万别叫大师。两点选择是为了后续建立切面,不只是为了选择图元,3Dsolid麻烦的地方在于几何特征点很难获取,我还是建议采用两点栏选的形式。非要选取的话,要用nentsel,但选择点不对的话,程序一样出错
"觉得好,就打赏"
还没有人打赏,支持一下
发表于 2021-12-13 14:38:58 来自手机 | 显示全部楼层
不敢当,千万别叫大师。两点选择是为了后续建立切面,不只是为了选择图元,3Dsolid麻烦的地方在于几何特征点很难获取,我还是建议采用两点栏选的形式。非要选取的话,要用nentsel,但选择点不对的话,程序一样出错
回复

使用道具 举报

发表于 2021-12-13 23:03:18 | 显示全部楼层
本帖最后由 夏生生 于 2021-12-13 23:10 编辑

代码又臭又长

  1. ;;;思路是建立两个断面,断面中心连线,
  2. ;;;后续可以根据连线再求出连线的垂面,利用垂面建立断面,可以求得直径和壁厚
  3. (defun c:test (/ value2list vxv ANG DOC LST1 LST2 OBJ OBJ1 OBJ2 OBJ3 PT1 PT1A PT2 PT2A PT3 PT3A SS)
  4.   (defun value2list (value)
  5.     (setq value        (vl-catch-all-apply
  6.                   (function vlax-safearray->list)
  7.                   (list (vlax-variant-value value))
  8.                 )
  9.     )
  10.     (if        (= (type value) (function LIST))
  11.       value
  12.       nil
  13.     )
  14.   )
  15.   (defun vxv (u v)
  16.     (list
  17.       (- (* (cadr u) (caddr v)) (* (cadr v) (caddr u)))
  18.       (- (* (car v) (caddr u)) (* (car u) (caddr v)))
  19.       (- (* (car u) (cadr v)) (* (car v) (cadr u)))
  20.     )
  21.   )
  22.   (setq        pt1  (getpoint "\n栏选起点:")
  23.         pt2  (getpoint pt1 "\n栏选终点:")
  24.         pt3  (mapcar '+ pt1 '(0 0 1))
  25.         ang  (+ (* 0.5 pi) (angle pt1 pt2))
  26.         pt1a (polar pt1 ang 1)
  27.         pt2a (polar pt2 ang 1)
  28.         pt3a (mapcar '+ pt1a '(0 0 1))
  29.         ss   (ssget "f" (list pt1 pt2) '((0 . "3DSOLID")))
  30.         obj  (vlax-ename->vla-object (ssname ss 0))
  31.         pt1  (vlax-3d-point pt1)
  32.         pt1a (vlax-3d-point pt1a)
  33.         pt2  (vlax-3d-point pt2)
  34.         pt2a (vlax-3d-point pt2a)
  35.         pt3  (vlax-3d-point pt3)
  36.         pt3a (vlax-3d-point pt3a)
  37.         doc  (vlax-get-property (vlax-get-acad-object) 'activedocument)
  38.         doc  (if (= 1 (getvar "cvport"))
  39.                (vlax-get-property doc 'paperspace)
  40.                (vlax-get-property doc 'modelspace)
  41.              )
  42.         obj1 (vla-SectionSolid obj pt1 pt2 pt3)
  43.         obj2 (vla-SectionSolid obj pt1a pt2a pt3a)
  44.         lst1 (value2list (vla-explode obj1))
  45.         lst2 (value2list (vla-explode obj2))
  46.         pt1  (vla-get-Center (car lst1))
  47.         pt2  (vla-get-Center (car lst2))
  48.         obj3 (vla-addline doc pt1 pt2)
  49.   )
  50.   (vla-ScaleEntity obj3 pt1 1000)
  51.   (foreach n (append (list obj1 obj2) lst1 lst2)
  52.     (vla-delete n)
  53.   )
  54.   (setq        pt1  (value2list pt1)
  55.         pt2  (value2list pt2)
  56.         pt3  (mapcar '- pt2 pt1) ;_法向量
  57.         pt1a (distance '(0 0 0) pt3) ;_法向量的模
  58.         pt1a (mapcar '(lambda (x) (/ x pt1a)) pt3) ;_单位向量
  59.         pt2a (vl-list* (- (cadr pt1a)) (car pt1a) (cddr pt1a)) ;_pt1a旋转90度
  60.         pt3a (vxv pt1a pt2a) ;_垂面点1
  61.         pt2a (vxv pt1a pt3a) ;_垂面点2
  62.         obj1 (vla-SectionSolid
  63.                obj
  64.                (vlax-3d-point pt1)
  65.                (vlax-3d-point (mapcar '+ pt1 pt3a))
  66.                (vlax-3d-point (mapcar '+ pt1 pt2a))
  67.              )
  68.         lst1 (value2list (vla-explode obj1))
  69.         lst2 (vl-sort (mapcar 'vla-get-Diameter lst1) '>)
  70.   )
  71.   (vla-delete obj1)
  72.   (princ (strcat "\n直径:"
  73.                  (rtos (car lst2) 2 2)
  74.                  ";壁厚:"
  75.                  (rtos (* 0.5 (- (car lst2) (cadr lst2))) 2 2)
  76.          )
  77.   )
  78.   (princ)
  79. )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
回复

使用道具 举报

 楼主| 发表于 2021-12-14 09:29:02 | 显示全部楼层

大师您好:
您的程序经试很好,只是操作时选择两点有时如没与圆管相交时就出错
请你试试能不能改成
选择圆管实体图元的方式
谢谢您的帮助
回复

使用道具 举报

 楼主| 发表于 2021-12-14 10:16:39 | 显示全部楼层
夏生生 发表于 2021-12-14 09:42
不敢当,千万别叫大师。两点选择是为了后续建立切面,不只是为了选择图元,3Dsolid麻烦的地方在于几何特征 ...

谢谢夏工。
您写的程序看上去太难以理解,我慢慢消化学习。
再请教个问题:
用section
中的三点方式形成一个面与圆管实体相交后形成两个位于圆管侧壁上的面域,再用这两个面域来取出平行于圆管的长线,线的两端点则是展开图的下料长度。
但有个不太明白的是,圆管一次形成两个面域感觉混乱,怕自动选择错了,不知能不能只形成一个面域?
以您的水平应能搞定这个展开程序的
http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid903159
也请您看看


点评

我没做过钢结构加工,但是我印象里面相贯线切割机是认3D3S输出的数据的  发表于 2021-12-14 10:51
您的另一个帖子,相贯线展开,我看过,我是硬算的,这方面有很多软件可以解决问题,您可以尝试其它软件。如非要autocad的话,您可以试试3D3S  发表于 2021-12-14 10:47
不用客气,我有空再看您另一个帖子,能力有限,不一定能解决  发表于 2021-12-14 10:35
回复

使用道具 举报

发表于 2021-12-14 10:34:53 | 显示全部楼层
ynhh 发表于 2021-12-14 10:16
谢谢夏工。
您写的程序看上去太难以理解,我慢慢消化学习。
再请教个问题:

实际上是一个平铺直叙的逻辑
  (setq        pt1  (getpoint "\n栏选起点:");_栏选起点,切面1第一点pt1
        pt2  (getpoint pt1 "\n栏选终点:");_栏选终点,切面1第二点pt2
        pt3  (mapcar '+ pt1 '(0 0 1));_切面1第三点pt3,把第一点的z+1(1可以是任意值)
        ang  (+ (* 0.5 pi) (angle pt1 pt2));_点1、2角度+90度,为切面2做准备
        pt1a (polar pt1 ang 1);_切面2第一点,pt1顺角度移动1(1可以是任意值)
        pt2a (polar pt2 ang 1);_切面2第点,pt2顺角度移动1(1可以是任意值)
        pt3a (mapcar '+ pt1a '(0 0 1));_切面2第三点,把pt1a的z+1(1可以是任意值)
        ss   (ssget "f" (list pt1 pt2) '((0 . "3DSOLID")));_选择实体,最好能切到完整截面
        obj  (vlax-ename->vla-object (ssname ss 0));_转为obj
        pt1  (vlax-3d-point pt1);_转为数组
        pt1a (vlax-3d-point pt1a);_转为数组
        pt2  (vlax-3d-point pt2);_转为数组
        pt2a (vlax-3d-point pt2a);_转为数组
        pt3  (vlax-3d-point pt3);_转为数组
        pt3a (vlax-3d-point pt3a);_转为数组
        doc  (vlax-get-property (vlax-get-acad-object) 'activedocument);_doc
        doc  (if (= 1 (getvar "cvport"))
               (vlax-get-property doc 'paperspace)
               (vlax-get-property doc 'modelspace)
             );_space
        obj1 (vla-SectionSolid obj pt1 pt2 pt3);_切第一个面域
        obj2 (vla-SectionSolid obj pt1a pt2a pt3a);_切第二个面
        lst1 (value2list (vla-explode obj1));_炸开第一个面
        lst2 (value2list (vla-explode obj2));_炸开第个面
        pt1  (vla-get-Center (car lst1));_炸开后的图元是椭圆或圆,随便找一个获取其形心
        pt2  (vla-get-Center (car lst2));_炸开后的图元是椭圆或圆,随便找一个获取其形心
        obj3 (vla-addline doc pt1 pt2);_形心相连即为中心线
  )
  (vla-ScaleEntity obj3 pt1 1000);_中心线放大1000倍
  (foreach n (append (list obj1 obj2) lst1 lst2)
    (vla-delete n)
  );_删除前面操作产生的obj
  (setq        pt1  (value2list pt1);_数组转点,前面产生的第一个面域的中心
        pt2  (value2list pt2);_数组转点,前面产生的第二个面域的中心
        pt3  (mapcar '- pt2 pt1) ;_法向量
        pt1a (distance '(0 0 0) pt3) ;_法向量的模
        pt1a (mapcar '(lambda (x) (/ x pt1a)) pt3) ;_单位向量
        pt2a (vl-list* (- (cadr pt1a)) (car pt1a) (cddr pt1a)) ;_pt1a旋转90度
        pt3a (vxv pt1a pt2a) ;_垂面点1
        pt2a (vxv pt1a pt3a) ;_垂面点2
;;;前面的运算都是为了求与管中心线垂直的面,因为第一面域和第二面域都不一定垂直于管中心线
;;;后面的操作和前面的操作基本相同,区别就在于垂直面,我就不注释了
        obj1 (vla-SectionSolid
               obj
               (vlax-3d-point pt1)
               (vlax-3d-point (mapcar '+ pt1 pt3a))
               (vlax-3d-point (mapcar '+ pt1 pt2a))
             )
        lst1 (value2list (vla-explode obj1))
        lst2 (vl-sort (mapcar 'vla-get-Diameter lst1) '>)
  )
  (vla-delete obj1)

评分

参与人数 3明经币 +3 收起 理由
lee50310 + 1 很给力!
寒潮大冬瓜 + 1 很给力!
ynhh + 1 很给力!

查看全部评分

回复

使用道具 举报

发表于 2022-4-30 09:27:25 | 显示全部楼层
这么好的贴子,及大神的耐心回复,顶起来
回复

使用道具 举报

发表于 2024-8-7 20:54:30 | 显示全部楼层
很好→很棒!很好~很棒!!很好……很棒!!!
回复

使用道具 举报

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

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-15 01:39 , Processed in 0.282425 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表