algorithmic modeling for Rhino
Search Results - 📍能量/trx闪兑📍自动trx兑换机器人👉【TG：@trxHomeBot】，有名的虚拟货币投资者.x
- Comment on: Topic 'Point Deform that can move brep's control Points'
- lass BrepDeform Inherits GH_Component Public Reslist As New List(Of String) Public Sub New() MyBase.New("BrepDeform", "Deform", _ "移动物件的控制点" & vbCrLf & "(Move the control Point to change a object)", "SEG", "Modify") End Sub Public Overrides ReadOnly Property ComponentGuid As System.Guid Get Return New Guid("8226e0ea-ed6b-47c2-8a24-244f044152d8") End Get End Property Protected Overrides ReadOnly Property Internal_Icon_24x24() As System.Drawing.Bitmap Get Return My.Resources.SEG_BrepDeform End Get End Property Protected Overrides Sub RegisterInputParams(ByVal pManager As GH_Component.GH_InputParamManager) ' pManager.AddTextParameter("Guid", "Id", "将要被替换的犀牛物件" & vbCrLf & "(RhinoObjects that will be replaced)", GH_ParamAccess.item) 'Dim guidParam As New Param_Guid pManager.AddParameter(New Param_Guid, "Guid", "Id", "将要被替换的犀牛物件" & vbCrLf & "(RhinoObjects that will be replaced)", GH_ParamAccess.item) pManager.AddPointParameter("ControlPoint3d", "C", "控制点的位置" & vbCrLf & "(Control Point's location)", GH_ParamAccess.item) pManager.AddPointParameter("NewPoint3d", "P", "新控制点的位置" & vbCrLf & "(New Control Point's location)", GH_ParamAccess.item) pManager.AddNumberParameter("Tolerace", "T", "输入点与物件实际控制点对比的精度" & vbCrLf & "(Tolerace for the Control Point match)", GH_ParamAccess.item, 0.1) pManager.AddBooleanParameter("BlMove", "M", "如果是True则进行移动" & vbCrLf & "(If true Perform the Move)", GH_ParamAccess.item, False) End Sub Protected Overrides Sub RegisterOutputParams(ByVal pManager As Kernel.GH_Component.GH_OutputParamManager) pManager.AddTextParameter("Result", "RG", "结果列表" & vbCrLf & "(Result)", GH_ParamAccess.list) End Sub Public Overrides ReadOnly Property Exposure As GH_Exposure Get Return GH_Exposure.primary End Get End Property Protected Overrides Sub SolveInstance(ByVal DA As Kernel.IGH_DataAccess) If Banner.astrict.showmessage Then Return Dim Ids As Guid = Guid.Empty 'Dim Ids As String = String.Empty Dim tpt As Point3d = Point3d.Unset, opt As Point3d = Point3d.Unset Dim tolar As Double = 0.1 Dim blMove As Boolean = False If Not DA.GetData(0, Ids) Then Return If Not DA.GetData(1, opt) Then Return If Not DA.GetData(2, tpt) Then Return If Not DA.GetData(3, tolar) Then Return If Not DA.GetData(4, blMove) Then Return If Not blMove Then GoTo line1 Reslist.Add(Now & "_未替换！(Replace failed!)") Else Reslist.Clear() ' Grasshopper.Instances.ActiveCanvas.ModifiersEnabled = False End If ' rt.AddRange(docobjlist.Select(Function(geoobj As RhinoObject) GH_Convert.ObjRefToGeometry(New ObjRef(geoobj.Id)))) 'Private Checked(5) As Boolean, Namestr() As String = {"Point", "Curve", "Brep", "Mesh", "TextDot", "TextEntity"} Try Dim rh As RhinoDoc = Rhino.RhinoDoc.ActiveDoc Dim rhobj As RhinoObject = rh.Objects.Find(Ids) ' Dim rhobj As RhinoObject = rh.Objects.Find(New Guid(Ids)) Dim bobj As BrepObject = CType(rhobj, BrepObject) RhinoApp.RunScript("Cancel", False) RhinoApp.RunScript("Cancel", False) bobj.Select(True) RhinoApp.RunScript("_SolidPtOn", False) Dim gobjs As GripObject() = bobj.GetGrips ' rh.Views.RedrawEnabled = False For Each grpobj As GripObject In gobjs If grpobj.CurrentLocation.DistanceTo(opt) < tolar Then grpobj.Select(True) Dim CurrentPln As Plane = RhinoDoc.ActiveDoc.Views.ActiveView.ActiveViewport.ConstructionPlane Dim tropt As New Point3d(opt), trtpt As New Point3d(tpt) tropt.Transform(Transform.PlaneToPlane(Plane.WorldXY, CurrentPln)) trtpt.Transform(Transform.PlaneToPlane(Plane.WorldXY, CurrentPln)) Dim movestr As String = "_move " + String.Format("{0},{1},{2} ", tropt.X, tropt.Y, tropt.Z) + String.Format("{0},{1},{2} _Cancel _Cancel", trtpt.X, trtpt.Y, trtpt.Z) RhinoApp.RunScript(movestr, True) grpobj.Select(False) End If Next 'RhinoApp.RunScript("Cancel", False) 'RhinoApp.RunScript("Cancel", False) '' rh.Views.RedrawEnabled = True Reslist.Add(Now & "_替换成功！(Replace Success!)") Catch ex As Exception Reslist.Add(Now & "_替换失败！(Replace failed!)" & vbCrLf & ex.Message) End Try ' Grasshopper.Instances.ActiveCanvas.ModifiersEnabled = True line1: DA.SetDataList(0, Reslist) End Sub 'Private Sub Testt_PingDocument(sender As IGH_DocumentObject, e As GH_PingDocumentEventArgs) Handles Me.PingDocument ' Dim Mbool = Aggregate bcbool In Checked Into cb = Any(bcbool) ' If Not Mbool Then ' Checked(0) = True ' Message = Namestr(0) ' Order = 0 ' End If 'End Sub End Class The picture below shows the two question. Question One I must use data dam, or the component can't batch deal the brep. I don't know why, I have You can give me a solution to make it working normal not using the data dam Question Two I can not uset the Button component, If I use it, the gh canvas will die with some mouse event--. I have see this problem before in this forum,but there is no solution and explain. I want to know why and How to solve it. I don't know if I have made my question clear,if not give a message. Thank you! Thank you all. The gh test file and 3dm test file in the upload files. …
- Added by huaxiamengqing at 2:02am on June 8, 2015
- Comment on: Photo '08_photo (6)'
- 希望能帮到你！
- Added by Alan Ren at 7:16am on January 27, 2013
- Comment on: Group 'Chinese Grasshopper'
- 人好少，势单力薄啊！
- Added by Alpha222 to Chinese Grasshopper at 6:49pm on November 6, 2012
- Event: 2019新课程 | Grasshopper参数化产品设计高级课程
- 程 连续6天课程，这是本课程的主体部分。该阶段课程对参数化设计方法进行系统性和细致性的介绍和学习。第一阶段的课程内容并不侧重于某个具体的设计行业，是一个设计业通用的专注于介绍参数化设计方法课程。其中包括：参数化设计的运行规则、逻辑思路的分析、相关方法和概念的补充，工具的使用技巧和工作流程等等。本阶段课程的详细介绍请参考 参数化设计系统课程 。 第二阶段：参数化产品设计深入课程 本阶段课程以工业设计行业实际应用的案例为主。侧重介绍参数化设计在产品设计行业中普遍和典型的应用方法和流程。并强调在产品设计行业中遇到的一些普遍的技术难点和解决办法。 这个阶段的课程以实际范例的制作过程为主，反映产品设计行业中普遍会遇到的技术难点是什么，以及该用什么方法或流程去解决，是对第一阶段学习到的方法和理解的深入运用。 请注意：本阶段课程并没有新的参数化设计知识点，事实上所有本阶段运用到的参数化方法和理解都是在第一阶段课程中学习到的。因此学员必须首先完成第一阶段的参数化设计系统课程 。 现在就报名参加课程... 了解课程更多详细介绍... …
- Added by Jessesn at 8:39am on June 8, 2019
- Comment on: Photo 'Process of making installation'
- 粉漂亮! 請問妳的紙是用什麼接的?
- Added by Kid_ed at 5:06pm on December 27, 2009
- Comment on: Photo 'around'
- wow! 有结构图吗？
- Added by ligong at 7:33pm on December 30, 2009
- Comment for: Florian ROCHEREAU
- 你好 我看到您在讨论tt toolbox无法连接到服务器 现在是否解决了
- Added by 未知 at 1:25am on June 20, 2014
- Comment for: BOR-MIN CHANG
- 希望能帮到你！呵呵！
- Added by Alan Ren at 7:19am on January 27, 2013
- Comment on: Topic 'about two ball boolean problem'
- 你的翻譯是不好的，你應該感覺不好。
- Added by Victor Leung to Kangaroo at 8:39am on March 30, 2013
About
Welcome to
Grasshopper
Translate
Search
Photos
Videos
© 2025 Created by Scott Davidson.
Powered by
