Cad productivities กับ lisp: วาดเสาหน้าตัดสี่เหลี่ยมผืนผ้า

[konothai]

จั่วหัวไว้ว่า CAD Productivities เพื่อให้ทราบจุดมุ่งหมายกันก่อนว่า
ทำไปทำไม ไม่ต้องมี LISP ก็เขียนได้อยู่แล้ว เสาต้นเดียว เขียนง่ายมากๆ

ขออนุญาตเอามะพร้าวห้าวมาขายสวนก่อนแล้วกัน

Step-by-Step สำหรับเขียนเสาหน้าตัดสี่เหลี่ยมบนแปลน มีดังนี้
(มีหลายวิธีเขียน แต่ยกตัวอย่างเป็นวิธีนี้ วิธีหนึ่งแล้วกัน)

1. บน Model space ซูมพื้นที่ใกล้จุดตัดของ Grid line ที่จะวาดเสา
2. กำหนด Current Layer ให้ตรงกับที่ใช้ เช่น A-Column
3. พิมพ์ ID กด Enter เลือกจุดตัด Grid Line ที่จะวางเสา
4. คลิกทูล Rectangle เพื่อวาดสี่เหลี่ยม
5. ใส่ค่ามุมล่าง = @-X/2 , -Y/2
6. ใส่ค่ามุมบน = @X,Y

เมื่อ X,Y เป็นความยาวของด้านสี่เหลี่ยมผืนผ้า

ดีไหม?
ถ้าเราสามารถลดขั้นตอนสิ่งที่จะทำตามข้างต้นได้

สิ่งที่ได้ ถ้าสร้าง LISP คำสั่งใหม่ คือ
1. ลดขั้นตอน ลดจำนวนคลิก
2. ลดข้อผิดพลาด ไม่ต้องกำหนดเลเยอร์ผิด
ไม่ต้องพลาดใส่ขนาดหารสองผิด ไม่ต้องพิมพ์เยอะแยะ
ไม่ต้องกด Shift เพื่อจะพิมพ์ @

ลดงาน ลดข้อผิดพลาด แล้วได้อะไร?
ก็ได้เวลาคืนมา ไม่ต้องเสียเวลาแก้ไขงานที่ผิดพลาด
ได้งานที่ Consistency ตรงกันหมด จะเขียนกี่ที ก็ถูกเลเยอร์

มีเวลาจิบกาแฟได้ละเมียดขึ้นอีกนิด

ส่งคำสั่งนี้ให้คนอื่นเขียน ก็ได้เสาที่มาจากเส้น Polyline รูปสี่เหลี่ยม
จาก Rectang ไม่ผิดเพี้ยน และที่สำคัญชื่อเลเยอร์เหมือนกันหมดทุกคน

ลดจำนวนคลิกแล้วได้อะไรอีก คำตอบคือ ลดโอกาสเกิด RSI

แล้ว RSI คืออะไร?
อาการสะสมจากการเกร็งทำงานซ้ำแบบเดิมบ่อยๆ
อย่างการเกร็งคลิกเมาส์หรือพิมพ์คีย์บอร์ดมากๆ
จะเกิดพังผืดรัดรอบ สุดท้ายกลายเป็นนิ้วล๊อค หรืองอไม่ได้
แต่ก็ไม่ได้จะเป็นปุ๊บปั๊บ กินเวลานานๆ

ดูพวกเลขาฯ พวกพลพิมพ์ ทำงานเอกสารประมูลก็ได้
อาจจะเป็นนิ้วเกร็ง นิ้วล๊อค กระดูกข้อมือปูด
ไปอ่านต่อเองที่ตรงนี้ ครับผม
http://en.wikipedia.org/wiki/Repetitive_strain_injury

งาน CAD อาจไม่ถึง RSI แต่ก็จบวันแบบสบายนิ้ว สบายมือ!!!

ทีนี้มาถึงโค้ดตัวคำสั่งนี้บ้าง
ให้เป็นตัวอย่างนะครับ
ไม่อธิบาย Coding แต่มา Discuss กันได้ครับผม

;;; Column
(defun c:rr (/ p tmp oldosmode c1 c2 *error*)
(graphscr)
(setq oldosmode (getvar "osmode"))
(defun *error* (msg)
(command "undo" "end")
(setvar "osmode" oldosmode)
(setvar "cmdecho" 1)
(princ)
)
(if (not #ColumnLayer)
(setq #ColumnLayer "A-Column") ; Specify your layer HERE!!!
)
(if (not #Columnx)
(setq #Columnx 0.25)
)
(if (not #Columny)
(setq #Columny 0.25)
)
(foreach msg (list "\nColumn x size: <" #Columnx "> ")
(princ msg)
)
(if (setq tmp (getdist))
(setq #Columnx tmp)
)
(foreach msg (list "\nColumn y size: <" #Columny "> ")
(princ msg)
)
(if (setq tmp (getdist))
(setq #Columny tmp)
)
(setvar "cmdecho" 0)
(command "undo" "begin")
(command "layer" "m" #ColumnLayer "")
(setq c1 (strcat "@"
(rtos (/ #Columnx -2.0) 2)
","
(rtos (/ #Columny -2.0) 2)
)
c2 (strcat "@" (rtos #Columnx 2) "," (rtos #Columny 2))
)
(while (setq p (getpoint "\nCenter of column: "))
(setvar "lastpoint" p)
(setvar "osmode" 0)
(command "rectang" c1 c2)
(setvar "osmode" oldosmode)
)
(command "undo" "end")
(setvar "cmdecho" 1)
(princ)
)

ถ้าสร้างไฟล์ .LSP ไม่เป็น
มีแนบให้โหลดที่นี้ครับ


http://www.tempf.com/getfile.php?id=398116&key=4b826b83f0173

วิธีโหลดเพื่อใช้ก็เหมือนกับกระทู้ที่ผ่านมา

ตอนนี้จะเขียนเสาพิมพ์แค่ RR กด Enter ในคำสั่งเดียวนี้
จะจัดการงานข้างบนทั้งหมดให้เลย มีพรอมต์ดังนี้

Command: RR
Column x size: <0.25>
Column y size: <0.25>
Center of column: เลือกจุดเขียนเสา ปกติคือจุดตัดของ Grid Line
Center of column: คำสั่งยังวนให้เลือกตำแหน่งอื่นได้อีก จบคำสั่งโดยกด ENTER

สังเกตว่าขั้นตอนทำงานทั้งหมด
อยู่ในคำสั่งเดียว และลดจำนวนครั้งที่ป้อนค่าลงไปมาก
ที่ต้องกำหนดเลเยอร์ปัจจุบันก็ไม่ต้องทำเอง
ที่ต้องคำนวณหารสองก็ไม่ต้องทำเอง

Note:
1.โค้ดนี้กด ESC ยกเลิกได้ และ Undo ย้อนกลับได้ตามปกติ
บางโค้ด LISP จะเขียนให้สั้นลง ตัดส่วนควบคุมเหล่านี้ออกไป
2. แก้ชื่อเลเยอร์เริ่มต้นในโค้ดที่
(setq #ColumnLayer "A-Column") ; Specify your layer HERE!!!

เช่นแก้เป็น
(setq #ColumnLayer "Column") ; Specify your layer HERE!!!

3. แก้ขนาดเริ่มต้น (default value) ของเสาที่
(setq #Columnx 0.25)
(setq #Columny 0.25)

เช่นแก้เป็น
(setq #Columnx 0.3)
(setq #Columny 0.3)

PRODUCTIVITIES ครับ คือสิ่งที่ผลักดันให้เราศึกษา LISP
+ สิ่งอื่นๆ ที่ตามมาอีกมากมาย

ปราชญ์กรีก พาเร็ตโต้ สมัยดึกดำบรรพ์ยังบัญญัติกฎ 20/80
เอาไว้เลย ว่า ถ้ากุม 20% ของส่วนสำคัญได้ ก็ถือว่า
กุมส่วนหลักของงานไปแล้วกว่า 80%

ลองดูนะครับ ออกแรงกันอีกนิด
เขียนผนัง เสา เปิดช่อง (ไว้รอวางบล๊อคประตู)

ดูแล้วมีแค่นิดเดียว แต่คนขึ้นแปลนน่าจะรู้ดีว่า
เป็นด่านแรกที่จะขึ้นงานทั้งหมดเลยทีเดียว!!!

[mus]

ขอคาราวะท่านครับ
ขอบคุณมากครับท่าน
เป็นจริงทุกประการเลยครับ
รอผนัง ประตูหน้าต่าง เปิดช่องครับท่าน

[yanman]

จะลองนำไปใช้ครับ เท่าที่รู้เป็นของที่เขาไม่ค่อยให้กันนะครับ ขอบคุณมากๆครับผม

[konothai]

ผมขอนำชิ้นส่วนอื่นๆ ที่เคยโพสต์ไว้แล้ว
มารวมไว้ตรงนี้ก่อนนะครับ
(บางอันผมไม่ได้เขียน coding เอง มี Link ไปเจ้าของเดิม)

Lisp เขียนเส้นคู่ เช่น ผนังบนแปลน
http://www.thai3dviz.com/board/showthread.php?t=31674

มาแล้ว lisp เปิดช่องผนังบนแปลน
http://www.thai3dviz.com/board/showthread.php?t=31661

Annotation Scale กับแบบหน่วยเมตร ใช้กันแบบใดครับ
http://www.thai3dviz.com/board/showthread.php?t=31598

ใส่ Hatch พร้อมเส้นคู่แนวฉาบในสองคลิก
http://www.thai3dviz.com/board/showthread.php?t=31559


ในเบื้องต้น ถ้าเราจัดการสิ่งเหล่านี้ได้แล้ว
ก็น่าจะกุมส่วนหลักของแปลนได้แล้วครับ

[GsxRTypeR7]

Good job boy...
-ไม่ได้โหลดไปใช้ แต่ก็ไอเดียดี
-น่าจะเริ่มจาก AutoLisp สร้าง Grid Line
-แล้วมาเสา
-ถ้าจะให้ดีลองเพิ่มส่วน inputdata x spacing y spacing เพื่อ Array ซิ มันจะดูสำเร็จรูปเลยนะ...ไม่เกินความสามารถหรอก ลองดูซิ...

[konothai]

Originally Posted by GsxRTypeR7

Good job boy...
-ไม่ได้โหลดไปใช้ แต่ก็ไอเดียดี
-น่าจะเริ่มจาก AutoLisp สร้าง Grid Line
-แล้วมาเสา
-ถ้าจะให้ดีลองเพิ่มส่วน inputdata x spacing y spacing เพื่อ Array ซิ มันจะดูสำเร็จรูปเลยนะ...ไม่เกินความสามารถหรอก ลองดูซิ...

จัดให้ครับ
สร้าง Grid Line และวางเสา แบบ uniform X-Y

Command: gg
Developed by konothai@yahoo.com
Grid x spacing: <3.0> ระยะห่างของเส้นแนวนอน
Grid y spacing: <3.0> ระยะห่างของเส้นแนวตั้ง
Number of Grid x lines: <4> จำนวนเส้นแนวนอน
Number of Grid y lines: <4> จำนวนเส้นแนวตั้ง
Column x size: <0.25> ขนาดเสาแนว y
Column y size: <0.25> ขนาดเสาแนว x
Specify lower-left column center: จุดวางเสาต้นแรกที่มุมล่างซ้าย

ค่าเริ่มต้นใส่ไว้เท่ากันในแนว X-Y
แต่ตอนใช้ เราจะกรอกค่าเท่าไรก็ได้



ดาวน์โหลดตรงนี้นะครับ
เป็น Compiled LISP => .VLX ครับ
โหลดด้วย Appload ตามปกติ

http://www.tempf.com/getfile.php?id=...=4b8386f8b19a1


ถ้าจะแก้ชื่อเลเยอร์ให้สร้างคำสั่งนี้ครับ

(defun c:ggg ()
(setq #GridLayer "A-Grid"); Set your Grid Layer Here!!!
(setq #ColumnLayer "A-Column"); Set your Column Layer Here!!!
(c:gg)
(princ)
)

ไฟล์หมดอายุหรือมี Bugs
โพสต์มา Discuss กันได้

[GsxRTypeR7]

เยี่ยมมากครับ...
*check pm. ด้วยนะ*

[konothai]

Originally Posted by gsxrtyper7

เยี่ยมมากครับ...
*check pm. ด้วยนะ*

เช็ค pm แล้วครับผม
เปิดครั้งแรกยังไม่ได้ตอบกลับ
พอจะมาพิมพ์ตอบอีกที
pm มันถูกลบออกไปแล้ว แต่ผมจำเนื้อหาได้ครับ

ขอบคุณมากๆ ครับ
สำหรับคำแนะนำทุกอย่างครับผม

จะลองเอาไปทำดู ยากส์ขึ้นๆ ๆ ๆ

รวมถึงเรื่องการจัดการนะครับ

[lomanstick]

ขอบคุณท่านผู้ใจดีทุกท่านครับ ได้ความรู้เพิ่มเติมอีกแล้ว :d:d

[BM3DM]

น้ำใจงาม ความสามารถสูง สุดยอดครับผม

[napoleon]

ขอบคุณมากครับ เป็นแนวทางไปศึกษาต่อไป

[konothai]

Originally Posted by GsxRTypeR7

เยี่ยมมากครับ...
*check pm. ด้วยนะ*

ขออนุญาตนำมาแจ้งตรงนี้เลยดีกว่า
พอดีท่าน GxxRTypeR7 ให้แนวคิดว่า
น่าจะดีถ้า Solved พวก Non-uniform ด้วย

เมื่อวานส่งเมล์ไปถามเจ้าของบล็อก อยากถามแนวทาง
ได้กลับมาเลย โค้ดทั้งชุด ตามไปดูกันครับ

http://chatchawalsupakasem.blogspot....-tips-non.html



ผมลองกรอกค่าด้วยค่าช่วงของ grid line

แนว X ในรูป
ระยะปลายทางซ้าย+จำนวน*ค่าระยะ1+จำนวน*ค่าระยะ2+ ... + ระยะปลายทางขวา

แนว Y ในรูป
ระยะปลายด้านบน+จำนวน*ค่าระยะ1+จำนวน*ค่าระยะ2+ ... + ระยะปลายด้านล่าง


จบงานด้วย Increment Text:
1,2,3,...
A,B,C,...


^^^
^^^
^^^
คำตอบของ
PRODUCTIVITY
หรือเพิ่มผลผลิตด้วย LISP


หวังว่าจะเป็นประโยชน์กับเพื่อนๆ พี่ๆ น้องๆ บ้างนะครับ

โดยรวมๆ แล้วกระทู้นี้ได้นำเสนอ
ทูลจิ๊บๆ จ้อยๆ ที่เขียนเองและโยงมา ยืมมาโชว์
ที่เกือบจะครบในเบื้องต้นแล้ว

ช่วยงานแปลนให้จบได้แบบสบายๆ ครับผม

[konothai]

Originally Posted by konothai

แนว y ในรูป
ระยะปลายด้านบน+จำนวน*ค่าระยะ1+จำนวน*ค่าระยะ2+ ... + ระยะปลายด้านล่าง

แก้ไขหน่อยครับ ต้องเริ่มจากด้านล่างไปด้านบน

ระยะปลายด้านล่าง+จำนวน*ค่าระยะ1+จำนวน*ค่าระยะ2+ ... + ระยะปลายด้านบน

[k_chai_t]

เพิ่งเข้ามาครับ ตามโหลดไม่ได้เลย ท่านใดมีเก็บไว้บ้างครับรบกวนหน่อยครับ ขอบคุณมากครับ

[jeabdc]

โหลดไม่ได้ครับ ขอใหม่ด้วยครับ ขอบตุณมาก:d

[Booooooo]

โหลดไม่ได้ ครับ ..

[nutchawut]

มาเปิด 1 ปี ให้หลังโหลดอะไรไม่ได้แล้ว
แต่ก็อยากบอกว่า lsp นี้แจ๋มมากครับ

[aodtoo]

พิจารณาแล้วมีความเห็นว่า...ผู้ตั้งกระทู้มีความตั้ง ใจ.ในการนำเสนอ และมีสาระ

..จึงขอดันเป็นกระทู้ปักหมุด.ถึงแม้จะนานมาแล้ว...ขอ ขอบคุณ คุณ..konothai..

[GstarCAD]

คำสั่งสร้างเสาใน GstarCAD AECplus ทำง่ายมากครับ แค่กำหนดขนาดเสา และระยะห่างแต่ละเสา ก็เขียนให้เลย นอกจากนั้นสำหรับใครที่ต้องการ หาขนาดที่ดินโปรแกรมทำง่ายมากแค่คลิ๊กพื้นที่ปิดโดยเ ขียนเป็น line ไม่ต้องมาทำให้เป็น poly line ก็บอกขนาดที่ดินให้เป็น ตารางเมตร หรือจะบอกเป็น ตารางวา ก็ได้
นอกจากนั้น AECplus ยังมีที่รันบน AutoCAD ด้วย ตัวโปรแกรมจะเน้นเกี่ยวกับการสร้างบ้าน ถ้าสนใจสามารถสอบถามได้ที่ บริษัท AppliCAD 02-744 9669
02-744 9045

[paddraft]

มีหนังสือเล่มหนึ่งแจกฟรีโปรแกรม PA2012AEC ช่วยเขียนแปลนสถาปัตย์ เขียนเส้น grid ที่ระยะห่างแบบไม่สม่ำเสมอ พร้อมลงเสาให้เลย กับคำสั่งเขียนผนังใส่ hatch กับเปิดช่องผนังแบบอัตโนมัติ กรณีเราต้องการวาง block ประตูและหน้าต่าง พร้อมเขียนเสาเอ็น ลองหาใช้กันดูครับ อาจช่วยให้งานเร็วขึ้นได้บ้าง

[naszeotoez]

สุดยอดครับ ขอบคุณมากครับ