티스토리 캥거루 스킨 소제목 꾸미기

보호되어 있는 글입니다.

• format_list_bulleted R&D Data/Code
• · 2025. 9. 9.

종이모형 설명서 제작용 심볼 오른쪽 추가 생성 라이노 스크립트

Add Symbol to Right!-_RunScript (Option ExplicitCall Main()Sub Main() Dim TextObject, Text, Allowance Dim shift01, shift02, Length01 Allowance = Rhino.GetString("Add symbol:","*") Do TextObject = Rhino.GetObject("Select a number:") If Not isNull (TextObject) Then If Rhino.isText (TextObject) Then Text = Rhino.TextObjectText (TextObject) Length01 = Len(Text) Text = Text & Allowance..

• format_list_bulleted R&D Data/Code
• · 2025. 9. 7.

종이모형 설명서 제작용 파트 번호 자동 증가 생성 라이노 스크립트

Increase Numbering!-_RunScript (Option ExplicitCall Main()Sub Main() Dim arrObject, Vertical, TextObject, Shift, ShiftObject01, ShiftObject02 Dim auxiliary01, auxiliary02 Dim i Dim length, left01, right01, e, Operator01, Last arrObject = Rhino.ObjectsByLayer("Part_Number") Shift = Rhino.GetReal("add:", 1) Vertical = Rhino.GetReal("Input number to start increasing from:") For i=0 To UBound(arrO..

• format_list_bulleted R&D Data/Code
• · 2025. 9. 7.

종이모형 설명서 제작용 심볼 왼쪽 추가 생성 라이노 스크립트

Add Symbol to Left!-_RunScript (Option ExplicitCall Main()Sub Main() Dim TextObject, Text, Allowance Dim shift01, shift02, Length01 Allowance = Rhino.GetString("Add symbol:","*") Do TextObject = Rhino.GetObject("Select a number:") If Not isNull (TextObject) Then If Rhino.isText (TextObject) Then Text = Rhino.TextObjectText (TextObject) Length01 = Len(Text)' Text = Text & Allowance..

• format_list_bulleted R&D Data/Code
• · 2025. 9. 7.

종이모형 설명서 제작용 라인 위 텍스트+번호 생성 라이노 스크립트

Letter + Num on Line!-_RunScript (Option ExplicitCall Numbering02Sub Numbering02 Dim Number Dim Fontsize, Text Dim arrBod01, arrBod02, arrBod03 Dim arrTextassociate Dim Line01, Line02 Dim UnderlineLength Dim Operator, Letter, Character Dim arrLeaderPoints(1) Operator = 0 Letter = Rhino.GetString("Begin with a:", "A") Number = Rhino.GetReal("Select a number:",1) Fontsize = Rhino.GetReal("Font ..

• format_list_bulleted R&D Data/Code
• · 2025. 9. 7.