![]() |
![]() |
|
ห้องดราฟ (AutoCad) ข่าวน่าสนใจ ,ถาม ตอบปัญหา เกี่ยวกับโปรแกรม AutoCad |
![]() |
|
|
Share | Thread Tools | Display Modes |
![]() |
#1 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Posts: 97
![]() |
![]()
จั่วหัวไว้ว่า 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% ลองดูนะครับ ออกแรงกันอีกนิด เขียนผนัง เสา เปิดช่อง (ไว้รอวางบล๊อคประตู) ดูแล้วมีแค่นิดเดียว แต่คนขึ้นแปลนน่าจะรู้ดีว่า เป็นด่านแรกที่จะขึ้นงานทั้งหมดเลยทีเดียว!!! ![]() |
![]() |
![]() |
![]() |
#2 |
สมาชิกไทยวิซ
Join Date: Oct 2008
Posts: 464
![]() |
![]()
ขอคาราวะท่านครับ
ขอบคุณมากครับท่าน เป็นจริงทุกประการเลยครับ รอผนัง ประตูหน้าต่าง เปิดช่องครับท่าน |
![]() |
![]() |
![]() |
#3 |
Senior Members
Join Date: Jun 2008
Location: krabi
Posts: 1,606
![]() ![]() |
![]()
จะลองนำไปใช้ครับ เท่าที่รู้เป็นของที่เขาไม่ค่อยให้กันนะครับ ขอบคุณมากๆครับผม
__________________
The SaMui SketchUp Community To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts. To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts. |
![]() |
![]() |
![]() |
#4 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Posts: 97
![]() |
![]()
ผมขอนำชิ้นส่วนอื่นๆ ที่เคยโพสต์ไว้แล้ว
มารวมไว้ตรงนี้ก่อนนะครับ (บางอันผมไม่ได้เขียน 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 ในเบื้องต้น ถ้าเราจัดการสิ่งเหล่านี้ได้แล้ว ก็น่าจะกุมส่วนหลักของแปลนได้แล้วครับ ![]() |
![]() |
![]() |
![]() |
#5 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Location: ดาวอังคาร
Posts: 86
![]() |
![]()
Good job boy...
-ไม่ได้โหลดไปใช้ แต่ก็ไอเดียดี -น่าจะเริ่มจาก AutoLisp สร้าง Grid Line -แล้วมาเสา -ถ้าจะให้ดีลองเพิ่มส่วน inputdata x spacing y spacing เพื่อ Array ซิ มันจะดูสำเร็จรูปเลยนะ...ไม่เกินความสามารถหรอก ลองดูซิ... |
![]() |
![]() |
![]() |
#6 | |
สมาชิกไทยวิซ
Join Date: Jan 2010
Posts: 97
![]() |
![]() Quote:
สร้าง 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 กันได้ ![]() |
|
![]() |
![]() |
![]() |
#7 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Location: ดาวอังคาร
Posts: 86
![]() |
![]() ![]() *check pm. ด้วยนะ* |
![]() |
![]() |
![]() |
#8 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Posts: 97
![]() |
![]() |
![]() |
![]() |
![]() |
#9 |
สมาชิกไทยวิซ
Join Date: Aug 2008
Posts: 232
![]() |
![]()
ขอบคุณท่านผู้ใจดีทุกท่านครับ ได้ความรู้เพิ่มเติมอีกแล้ว :d:d
|
![]() |
![]() |
![]() |
#10 |
สมาชิกไทยวิซ
Join Date: Sep 2008
Posts: 408
![]() |
![]()
น้ำใจงาม ความสามารถสูง สุดยอดครับผม
![]() ![]() ![]() |
![]() |
![]() |
![]() |
#11 |
สมาชิกไทยวิซ
Join Date: Nov 2007
Location: Trang
Posts: 103
![]() |
![]()
ขอบคุณมากครับ เป็นแนวทางไปศึกษาต่อไป
|
![]() |
![]() |
![]() |
#12 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Posts: 97
![]() |
![]()
ขออนุญาตนำมาแจ้งตรงนี้เลยดีกว่า
พอดีท่าน 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 หวังว่าจะเป็นประโยชน์กับเพื่อนๆ พี่ๆ น้องๆ บ้างนะครับ โดยรวมๆ แล้วกระทู้นี้ได้นำเสนอ ทูลจิ๊บๆ จ้อยๆ ที่เขียนเองและโยงมา ยืมมาโชว์ ที่เกือบจะครบในเบื้องต้นแล้ว ช่วยงานแปลนให้จบได้แบบสบายๆ ครับผม ![]() Last edited by konothai; 24-02-2010 at 10:43 AM. |
![]() |
![]() |
![]() |
#13 |
สมาชิกไทยวิซ
Join Date: Jan 2010
Posts: 97
![]() |
![]() |
![]() |
![]() |
![]() |
#14 |
สมาชิกไทยวิซ
Join Date: Jul 2007
Posts: 13
![]() |
![]()
เพิ่งเข้ามาครับ ตามโหลดไม่ได้เลย ท่านใดมีเก็บไว้บ้างครับรบกวนหน่อยครับ ขอบคุณมากครับ
|
![]() |
![]() |
![]() |
#15 |
สมาชิกไทยวิซ
Join Date: Oct 2009
Posts: 203
![]() |
![]()
โหลดไม่ได้ครับ ขอใหม่ด้วยครับ ขอบตุณมาก:d
|
![]() |
![]() |
![]() |
#16 |
สมาชิกไทยวิซ
|
![]()
โหลดไม่ได้ ครับ ..
![]() ![]()
__________________
To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts. |
![]() |
![]() |
![]() |
#17 |
สมาชิกไทยวิซ
Join Date: Jun 2010
Posts: 56
![]() |
![]()
มาเปิด 1 ปี ให้หลังโหลดอะไรไม่ได้แล้ว
แต่ก็อยากบอกว่า lsp นี้แจ๋มมากครับ |
![]() |
![]() |
![]() |
#18 |
กรึ่มจังกรึม
Join Date: Oct 2006
Location: ติดจำนอง
Posts: 1,190
![]() ![]() ![]() ![]() ![]() |
![]()
พิจารณาแล้วมีความเห็นว่า...ผู้ตั้งกระทู้มีความตั้ง ใจ.ในการนำเสนอ และมีสาระ
..จึงขอดันเป็นกระทู้ปักหมุด.ถึงแม้จะนานมาแล้ว...ขอ ขอบคุณ คุณ..konothai..
__________________
คอม ก็ เสีย เมีย ก็ หาย สาย แลนขาด กระ ดาษ หมด โอ้ว แม่ เจ้า สุด ตีน จิงๆ |
![]() |
![]() |
![]() |
#19 |
สมาชิกไทยวิซ
Join Date: Oct 2011
Posts: 4
![]() |
![]()
คำสั่งสร้างเสาใน GstarCAD AECplus ทำง่ายมากครับ แค่กำหนดขนาดเสา และระยะห่างแต่ละเสา ก็เขียนให้เลย นอกจากนั้นสำหรับใครที่ต้องการ หาขนาดที่ดินโปรแกรมทำง่ายมากแค่คลิ๊กพื้นที่ปิดโดยเ ขียนเป็น line ไม่ต้องมาทำให้เป็น poly line ก็บอกขนาดที่ดินให้เป็น ตารางเมตร หรือจะบอกเป็น ตารางวา ก็ได้
นอกจากนั้น AECplus ยังมีที่รันบน AutoCAD ด้วย ตัวโปรแกรมจะเน้นเกี่ยวกับการสร้างบ้าน ถ้าสนใจสามารถสอบถามได้ที่ บริษัท AppliCAD 02-744 9669 02-744 9045 |
![]() |
![]() |
![]() |
#20 |
สมาชิกไทยวิซ
Join Date: Nov 2010
Posts: 156
![]() |
![]()
มีหนังสือเล่มหนึ่งแจกฟรีโปรแกรม PA2012AEC ช่วยเขียนแปลนสถาปัตย์ เขียนเส้น grid ที่ระยะห่างแบบไม่สม่ำเสมอ พร้อมลงเสาให้เลย กับคำสั่งเขียนผนังใส่ hatch กับเปิดช่องผนังแบบอัตโนมัติ กรณีเราต้องการวาง block ประตูและหน้าต่าง พร้อมเขียนเสาเอ็น ลองหาใช้กันดูครับ อาจช่วยให้งานเร็วขึ้นได้บ้าง
![]() |
![]() |
![]() |
![]() |
#21 |
สมาชิกไทยวิซ
Join Date: Aug 2010
Posts: 52
![]() |
![]()
สุดยอดครับ ขอบคุณมากครับ
|
![]() |
![]() |
![]() |
Thread Tools | |
Display Modes | |
|
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
lisp edit text dimension | num100 | ห้องดราฟ (AutoCad) | 3 | 08-08-2010 11:57 PM |
ใครพอจะมี Lisp ที่ใช้บวก Text บ้างครับ | aonhope | ห้องดราฟ (AutoCad) | 15 | 11-05-2010 09:45 AM |
อย่ากได้ Lisp | JK1981 | ห้องดราฟ (AutoCad) | 0 | 03-11-2009 01:39 PM |
Lisp สำหรับ Copy Text และ Copy Block | aonhope | ห้องดราฟ (AutoCad) | 4 | 20-11-2007 04:19 PM |
นำเอา LISP ไปใช้ยังไงดีครับ | tt&n | ห้องดราฟ (AutoCad) | 1 | 26-10-2007 03:43 PM |