AutoLISP-คำสั่ง Insert Block แบบง่ายๆ

เบื่อกับการ Insert Block ที่มีรายการ Block เยอะๆมั้ย
Blockก็เยอะ กว่าจะค้นหาเจอแทบแย่

Insert Block ใช้เวลาในการค้นหา Block แต่ละที ก็นานอยู่
Insert Block เข้าซัก 10 Block แล้วใช้เวลาเท่าไหร่

Autolisp สามารถจัดการ การ Insert Block ให้เป็นเรื่องง้าย..ง่าย
โดยการป้อนข้อมูล ผ่านCommand : ทั้งหมด แทบจะไม่ต้องใช้เมาส์เลย
ก็ว่าได้ครับ

ตัวอย่าง

อันนี้คำสั่ง สำหรับการ Insert Block มีขั้นตอนการทำงานดังนี้ครับ

1.เริ่ม ป้อนคำหลัก เพื่อเรียกคำสั่งขึ้นมา

2.โปรแกรมจะถาม ให้เราเลือก ชนิดของ Block
อันนี้ ให้ เลือก 1 หรือ 2

3.เมื่อเลืก อุปกรณ์ โปรแกรมก็แสดงรายละเอียดของรายการอุกปรณ์ขึ้นมา ตรงนี้ผมได้แยกตามกลุ่มไว้ตามรูปครับ เพื่อง่ายต่อการ เลือก อันนี้คือเลือก WIRE -WAY จาก stepแรก

4.อันนี้เลือก หมายเลข 1 คือ W-3-XXX โปรแกรมก็จะแสดง รายละเอียดของรายการ W-3-XXX ว่ามีรุ่นไหนบ้าง

แล้วเราก็เลือกรุ่น ตามที่เราต้องการครับ

5. เข้าสู่ step สุดท้าย คลิก เลือก ตำแหน่ง

เท่าก็เส็รจพิธี มาแล้วครับ BLOCK ของเรา ไม่ต้องไปค้นหาให้ตาลาย

Read More

AutoLISP-คำสั่งหั่นหรือแบ่งชิ้นส่วน

ในหัวข้อการแบ่งหรือหั่นนี้ ขอยกตัวอย่าง งานไม้ หรือเหล็กแผ่น ที่มีขนาด มาตรฐานตายตัว 4x8 ฟุต แล้วนำมาแบ่งย่อยเป็นชิ้นๆ ทำให้ง่ายและสะดวกต่อประเมิณราคาต้นทุนของวัสดุ

ตัวอย่าง
อันนี้คือตัวอย่างการแบ่งไม้ของชิ้นส่วนเฟอร์นิเจอร์ ซึ่งทำให้รู้ว่าต้องใช้ไม้ 4x8 กี่แผ่นถึงจะเพียง กับจำนวนที่ผลิต

1.ป้อนคำสั่ง ซึ่งผมได้สร้าง Template ไว้แล้ว


2.เลือกขนาดของไม้ กรณีที่มีหลายขนาด


3. ใส่ขนาดความกว้าง ยาว และความหนา ของชิ้นงานจริง

กว้าง



ยาว


หนา


4.โปรแกรมก็จะทำการแบ่งชิ้นตามขนาดที่เรากำหนด พร้อมกับเขียน Dimension ให้เสร็จเรียบร้อย และบอกขนาดของแนวตัดไว้ (กรณีนี้แนวตัด 5 มม.) ทำให้แม่นยำ ต่อการคำนวนมากยิ่งขึ้น และโปรแกรมจะบอกรายละเอียด ว่าตัดขนาดเท่าไหร่ ได้จำนวน กี่ชิ้น และบอกขนาดของเศษที่เหลืออีกด้วย ง่ายมั้ยละครับ ดีกว่าจะต้องมาคิดแล้วเขียนทีละเส้น


5.หลังจากนั้นโปรแกรมก็จะถาม ให้เราเลือกขนาดของเศษที่เหลือ
(กรณีนี้ผมเลือกแนว H หรือแนวนอน)



6.ผลลัพธ์ โปรแกรมก็จะตัดเส่นที่เราไม่ต้องการทิ้งไป ให้เหลือเพียงเศษชิ้นใหญ่ที่เราต้องการแทน

Read More

AutoLISP-updateวันที่ อัตโนมัติ-Autocad

1.ป้อนคำสั่ง




2.เลือก text เสร็จแล้ว (เร็วจังวู้)

Read More

AutoLISP-Balloon Dimensions-Autocad

คำสั่งเขียน Balloon Dimensions



ตัวอย่าง
1.ป้อนคำสั่งหลัก
โปรแกรมถาม ให้ใส่ลำดับที่



2.โปรแกรมถาม ให้คลิกตำแหน่งหัวลูกศร




3.โปรแกรมถาม ให้คลิกตำแหน่งตัวอักษร


4.เท่านี้ก็เสร็จพิธี



คำสั่งโปรแกรม

(defun C:bn ()
(command "osmode" "0"
"layer" "s" "balloon" ""
"dimstyle" "R" "balloon-dot"
(setq text (getstring "\nลำดับที่:"))
"qleader"
(getpoint "\nตำแหน่งหัวลูกษร:")
(setq PT (getpoint "\nตำแหน่งตัวอักษร:")) "" "5" text ""

"ERASE" "L" ""
"EXPLODE" "L" ""
"circle" PT "D" "7"
"trim" "" PT ""
"style" "Cordia 3" "" "" "" "" "" "n"
"text" "j" "MC" PT "" text ""
"dimstyle" "R" "balloon"
"osmode" "183"


)
)

Read More