Editing And Visualizing 3d Solids
Once you have created a solid, you can create more complex shapes by combining solids. You can join solids, subtract solids from each other, or find the common volume (overlapping portion) of solids. Use the Boolean or CheckInterference method to perform these combinations. Solids are further modified by obtaining the 2D cross section of a solid or slicing a solid into two pieces. Use the SectionSolid method to find cross sections of solids, and the SliceSolid method for slicing a solid into two pieces.
Find the interference between two solids This example creates a box and a cylinder in model space. It then finds the interference between the two solids and creates a new solid from that interference. For ease of viewing, the box is colored white, the cylinder is colored cyan, and the interference solid is colored red. Sub Ch8FindInterferenceBetweenSolids ' Define the box Dim boxObj As Acad3DSolid Dim length As Double Dim width As Double Dim height As Double Dim center(0 To 2) As Double center(0) = 5: center(1) = 5: center(2) = 0 length = 5 width = 7 height = 10 ' Create the box object in model space ' and color it white Set boxObj = ThisDrawing.ModelSpace. AddBox(center, length, width, height) boxObj.Color = acWhite ' Define the cylinder Dim cylinderObj As Acad3DSolid Dim cylinderRadius As Double Dim cylinderHeight As Double center(0) = 0: center(1) = 0: center(2) = 0 cylinderRadius = 5 cylinderHeight = 20 ' Create the Cylinder and ' color it cyan Set cylinderObj = ThisDrawing.ModelSpace.AddCylinder (center, cylinderRadius, cylinderHeight) cylinderObj.Color = acCyan ' Find the interference between the two solids ' and create a new solid from it. Color the ' new solid red.
Dim solidObj As Acad3DSolid Dim bSolidsInterfere As Boolean Set solidObj = boxObj.CheckInterference(cylinderObj, True, bSolidsInterfere) solidObj.Color = acRed ZoomAll End Sub. Slice a solid into two solids This example creates a box in model space. It then slices the box based on a plane defined by three points. The slice is returned as a 3DSolid. Sub Ch8SliceABox ' Create the box object Dim boxObj As Acad3DSolid Dim length As Double Dim width As Double Dim height As Double Dim center(0 To 2) As Double center(0) = 5#: center(1) = 5#: center(2) = 0 length = 5#: width = 7: height = 10# ' Create the box (3DSolid) object in model space Set boxObj = ThisDrawing.ModelSpace. AddBox(center, length, width, height) boxObj.Color = acWhite ' Define the section plane with three points Dim slicePt1(0 To 2) As Double Dim slicePt2(0 To 2) As Double Dim slicePt3(0 To 2) As Double slicePt1(0) = 1.5: slicePt1(1) = 7.5: slicePt1(2) = 0 slicePt2(0) = 1.5: slicePt2(1) = 7.5: slicePt2(2) = 10 slicePt3(0) = 8.5: slicePt3(1) = 2.5: slicePt3(2) = 10 ' slice the box and color the new solid red Dim sliceObj As Acad3DSolid Set sliceObj = boxObj.SliceSolid (slicePt1, slicePt2, slicePt3, True) sliceObj.Color = acRed ZoomAll End Sub.
Editing And Visualizing 3d Solids Pdf
開催済みセミナー資料. COMSOL Days 技術セミナー第35回-最適化セミナー 講師：橋口 真宣、米 大海 (弊社第1技術部) 開催日：2018年7月18日(水). COMSOL Days 技術セミナー第36回-光学・半導体セミナー 講師：水山 洋右 氏 (米国・COMSOL, Inc.) 開催日：2018年7月18日(水). COMSOL Days 技術セミナー第33回-非線形解析セミナー 講師：Ed Gonzalez氏 (スウェーデン・COMSOL AB)高野 直樹 先生 (慶應義塾大学 教授)橋口 真宜、米 大海 (弊社第1技術部) 開催日：2018年7月5日(木). COMSOL Days 技術セミナー第32回-地下の見える化セミナー第3回 講師：Ed Gonzalez氏 (スウェーデン・COMSOL AB)長田 昌彦 先生 (埼玉大学 教授)橋口 真宜、米 大海 (弊社第1技術部) 開催日：2018年7月4日(水). 人とくるまの テクノロジー展 2018横浜 ワークショップ講演-人とくるまのテクノロジー展2018横浜 ワークショップ講演 講師：トン リチュ (弊社第1技術部 副部長) 開催日：2018年5月24日(木).
COMSOL Days 技術セミナー第28回-COMSOL光学セミナー 講師：水山洋右氏 (米国・COMSOL, inc. 主席エンジニア) 開催日：2018年4月26日(木). COMSOL Days 技術セミナー第25回-COMSOL化学反応工学セミナー 講師：本間 俊司 先生 (埼玉大学 准教授)橋口 真宜、米 大海 (弊社第1技術部) 開催日：2018年3月1日(木). COMSOL Days 技術セミナー第24回-有限要素法による電磁界シミュレーション入門 講師：平野 拓一 先生 (東京工業大学) 開催日：2018年2月16日(金). COMSOL Days 技術セミナー第23回-IoT志向のものづくりのための基礎セミナー 講師：林 茂雄 先生 (電気通信大学 名誉教授)橋口 真宜、米 大海 (弊社第1技術部) 開催日：2018年2月14日(水). COMSOL Days 技術セミナー第21回-COMSOL 5.3aを使いこなそう！ 講師：橋口 真宣、米 大海 (弊社第1技術部)トン リチュ (弊社第1技術部)山口 徹 (弊社システム部) 開催日：2018年2月1日(木).