1. เรียกคำสั่งสร้าง Family โดยเลือก Template - Metric Detail Item line base.rft
2. สร้างเส้น Line ไห้ได้ดังภาพ
3. ในการทำหัวลูกศรให้ใช้คำสั่ง Filled Region ในการสร้าง
BIM, Autodesk Revit, Revit Family, MEP, Dynamo, Navisworks, AutoCAD, Bluebeam, Revizto, BIM 360 , Autodesk Certification MEP , MEP Modelling
วันจันทร์ที่ 16 ธันวาคม พ.ศ. 2556
วันพุธที่ 11 ธันวาคม พ.ศ. 2556
Revit เอางาน Hammer Hall มาให้ดูกันครับ
Hammer Hall - ทำแบบ As - Built งานระบบแอร์ ให้ทางประเทศออสเตเรีย แกะจากแบบพิมพ์เขียวของเมื่อ 30 ปีที่แล้ว (ต้นฉบับแม้งโคตรชัดเลย) ใช้ 2 คนในการทำงาน ทำกันอยู่ 1 เดือน
ใช้เทคนิค Workset , Phase
ใช้เทคนิค Workset , Phase
Revit Schedules/Qauntities โดยแบ่งเป็นของแต่ละระดับ
วิธีที่ 1
ลองใช้ invert Elevation ใน pipe Schedule ดูครับ แล้วกำหนด filter ของช่วงระดับในแต่ละชั้น
ระวังในส่วนท่อที่เป็น ท่อในแนวตั้งนะครับ
วิธีที่ 2
ต้องใช้ Parameter เข้ามาช่วย เช่น
ใส่คำว่า Level 1 ใส่ในช่อง comment ของ pipe properties แล้วใช้ filter กรองข้อมูลใน pipe schedule อีกทีนึงใน แสดงผลเฉพาะที่มีคำว่า level 1 ใน comment
ระวังถ้า มีการแก้ไขหรือเขียนท่อเพิ่มต้ องไม่ลืมเพิ่ม Level 1 ทุกครั้ง
Autocad Lisp สำหรับแก้ไข Dimstyle ให้สีเป็น Bylayer
ใครมีปัญหาสำหรับการทำ Xref แล้วต้องแก้สีของ Dimstyle ให้เป็น Bylayer ลองใช้ Lisp ตัวนี้ดูครับ
(defun c:DIMBY (/ DimStyles@ StyleName$)
(princ "\nDimstyles color bylayer")
(setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE" t))))
(setq DimStyles@ (list StyleName$))
(while (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE"))))
(setq DimStyles@ (append DimStyles@ (list StyleName$)))
);while
(foreach StyleName$ DimStyles@
(command "DIMSTYLE" "R" StyleName$)
(setvar "DIMCLRD" 256);Dimension line and leader color
(setvar "DIMCLRE" 256);Extension line color
(setvar "DIMCLRT" 256);Dimension text color
(command "DIMSTYLE" "S" StyleName$ "Y")
);foreach
(princ)
);defun
(defun c:DIMBY (/ DimStyles@ StyleName$)
(princ "\nDimstyles color bylayer")
(setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE" t))))
(setq DimStyles@ (list StyleName$))
(while (setq StyleName$ (cdr (assoc 2 (tblnext "DIMSTYLE"))))
(setq DimStyles@ (append DimStyles@ (list StyleName$)))
);while
(foreach StyleName$ DimStyles@
(command "DIMSTYLE" "R" StyleName$)
(setvar "DIMCLRD" 256);Dimension line and leader color
(setvar "DIMCLRE" 256);Extension line color
(setvar "DIMCLRT" 256);Dimension text color
(command "DIMSTYLE" "S" StyleName$ "Y")
);foreach
(princ)
);defun
สมัครสมาชิก:
บทความ (Atom)