• AUTO LISP
• AutoCAD Tips
• รับเขียนแบบเฟอร์นิเจอร์
• ออกแบบเครื่องจักรและผลิตภัณฑ์ต่างๆ
• รับแกะสลักลายไม้
• งาน Graphic Design อื่นๆ
• เรื่องราวพลังแห่งจินตนาการ
• บันทึกลึกลับ
• หน้าหลัก

AutoLISP-export object XYZ coordinates -CURVE คำสั่งดึง ค่า coordinates point ของเส้น CURVE export ค่าที่ได้ลง ใน ไฟล์ text ชื่อ coor.txt ซึ่งจะอยู่ใน ไดร์ D: ตัวอย่างไฟล์ สำรอง หมายเหตุ โปรแกรมยังคงไม่สมบูรณ์   Create Date : 20 เมษายน 2554     Last Update : 24 พฤษภาคม 2554 13:04:48 น. Counter : 1953 Pageviews.   1 comment Share Tweet

AutoLISP-ปริ้นอัตโนมัติ คำสั่งปริ้น อัตโนมัติ หรือ plot อัตโนมัติ หลายคน คงเบื่อหน่ายการ Plot งาน ครั้งละหลายๆแ่ผ่น ต้องคอย Set printer ทุกครั้ง เป็นเรื่องที่น่าเบื่อหน่ายมากที่สุด วันนี้ผมขอเสนอ ตัวอย่าง คำสั่ง AUTO PLOT แบบ กึ่งอัตโนมัติ ที่ว่ากึ่งอัตโนมัติ คือ การ plot ใหมด Model โดยส่วนใหญ่ เลือกแบบ Windows เริ่มกันเลย โปรแกรมจะ Option ให้เลือก size และชนิดดังนี้ ต่อไปก็เป็นการเลือกจุดตำแหน่ง 2 จุด ของกรอบกระดาษ เท่านี้ก็เรียบร้อย โปรแกรม ก็จะPREVIEW ให้ดู ตัวอย่าง Plot ใน model แบบ windows หมายเหตุ: ไฟล์ตัวอย่าง โปรแกรม Plot ในโหมด Model แบบกึ่งอัตโนมัิต ต้องกำหนดค่าให้ถูกต้อง (โปรแกรม เฉพาะเครื่อง) ปรับ ค่าในส่วน ของ Setting   Create Date : 20 เมษายน 2554     Last Update : 10 กันยายน 2554 18:13:56 น. Counter : 3533 Pageviews.   7 comment Share Tweet

AutoLISP-ดึงหรือแก้ไขข้อมูล ไฟล์ Excel จาก AutoCAD เป็นคำสั่งดึงข้อมูล หรือเพิ่มเติมข้อมูลไฟล์ Excel ด้วยโปรแกรม AutoCAD . .เดี๋ยวจะมาเขียนครับ.... ดาวโหลดโค้ด อันนนี้เป็นของฝรั่งครับ ผมกำลังดัดแปลงแก้ไขให้ง่ายต่อการใช้งาน เมื่อโหลดมาแล้ว ดูวิธีการใช้งานจะอยู่ในส่วนนี้ครับ ;------------------------------------------------------------------------------- ; Overview of Main functions ;------------------------------------------------------------------------------- ; GetExcel - Stores the values from an Excel spreadsheet into *ExcelData@ list ; Syntax: (GetExcel ExcelFile$ SheetName$ MaxRange$) ; Example: (GetExcel "C:FolderFilename.xls" "Sheet1" "L30") ; GetCell - Returns the cell value from the *ExcelData@ list ; Syntax: (GetCell Cell$) ; Example: (GetCell "H15") ; Function example of usage: ; (defun c:Get-Example () ; (GetExcel "C:FolderFilename.xls" "Sheet1" "L30");<-- Edit Filename.xls ; (GetCell "H21");Or you can just use the global *ExcelData@ list ; );defun ;------------------------------------------------------------------------------- ; OpenExcel - Opens an Excel spreadsheet ; Syntax: (OpenExcel ExcelFile$ SheetName$ Visible) ; Example: (OpenExcel "C:FolderFilename.xls" "Sheet1" nil) ; PutCell - Put values into Excel cells ; Syntax: (PutCell StartCell$ Data$) or (PutCell StartCell$ DataList@) ; Example: (PutCell "A1" (list "GP093" 58.5 17 "Base" "3'-6 1/4"")) ; CloseExcel - Closes Excel session ; Syntax: (CloseExcel ExcelFile$) ; Example: (CloseExcel "C:FolderFilename.xls") ; Function example of usage: ; (defun c:Put-Example () ; (OpenExcel "C:FolderFilename.xls" "Sheet1" nil);<-- Edit Filename.xls ; (PutCell "A1" (list "GP093" 58.5 17 "Base" "3'-6 1/4""));Repeat as required ; (CloseExcel "C:FolderFilename.xls");<-- Edit Filename.xls ; (princ) ; );defun ---------------------------------------------------------------------------- คำสั่งดึงข้อมูล (defun c:Get-Example () (GetExcel "C:FolderFilename.xls" "Sheet1" "L30");<-- Edit Filename.xls (GetCell "H21");Or you can just use the global *ExcelData@ list );defun -------------------ที่ต้องแก้ไข ----"C:FolderFilename.xls"---ที่อยู่ไฟล์ ----"Sheet1" ----ชื่อSheet ----"L30"----แถวสูงสุด ---"H21" ---- ช่องข้อมูล ที่ต้องการดึงมา ------------------------------------------------------------------------ คำสั่งแก้ไข-เพิ่มเติมข้อมูล ; (defun c:Put-Example () ; (OpenExcel "C:FolderFilename.xls" "Sheet1" nil);<-- Edit Filename.xls ; (PutCell "A1" (list "GP093" 58.5 17 "Base" "3'-6 1/4""));Repeat as required ; (CloseExcel "C:FolderFilename.xls");<-- Edit Filename.xls ; (princ) ; );defun -------------------ที่ต้องแก้ไข ----"C:FolderFilename.xls"---ที่อยู่ไฟล์ ----"Sheet1" ----ชื่อSheet ----"A1"---- เซล์ที่ต้องการแก้ไขข้อมูล ---- (list "GP093" 58.5 17 "Base" "3'-6 1/4"") ---lisp -ข้อมูล ที่ต้องการเพิ่มเข้าไป   Create Date : 28 กุมภาพันธ์ 2554     Last Update : 28 กุมภาพันธ์ 2554 11:56:26 น. Counter : 2677 Pageviews.   2 comment Share Tweet

การติดตั้งโปรแกรมหรือคำสั่งAUTOLISP ขั้นตอนการติดตั้ง 1. เปิดโปรแกรม auto cad ขึ้นมา - คลิก Tool – เลือก Auto lisp - เลือก Load Application 2.จะปรากฏหน้าต่าง Load /Unload Application -คลิกปุ่ม Contants 3.จะปรากฏหน้าต่าง Starup Suite ขึ้นมา - คลิกปุ่ม Add 4.เลือกไฟล์ Lisp ที่ต้องการ คลิกปุ่ม Add 5. สังเกตว่าไฟล์ที่เราเลือกเข้ามาแล้ว จากนั้นก็ คลิก Close   Create Date : 22 ธันวาคม 2553     Last Update : 24 พฤษภาคม 2554 16:31:07 น. Counter : 2312 Pageviews.   13 comment Share Tweet

AUTOLISP- คำสั่ง เขียนบันได เหล็ก คำสั่ง เขียนบันได เหล็ก สามารถสร้า้งบันใดเหล็กที่มีการ์ดกันตกด้านหลัง เพียงไม่กี่วินาที่ ยังอยู่ในขั้นพัฒนาปรับปรุง คำสั่ง str ตัวอย่าง ไม่ว่าขนาดจะสูง-ต่ำแค่ไหนก็สามารถสร้างได้ง่ายๆ เพียงคลิก จุด 2จุด เลือกตำแหน่ง มาแล้วบันใดของเรา การ์ดจะอยู่ที่ 2200 มม.สูงจากพื้น และราวมือจับสูงจากวัตถุ 1100 มม. ตามมาตรฐาน สำรอง   Create Date : 14 ธันวาคม 2553     Last Update : 24 พฤษภาคม 2554 13:05:31 น. Counter : 1740 Pageviews.   1 comment Share Tweet

• winlovemac
• xemmy
• branelay
• Webmaster - BlogGang

• SiAni_3D - blogspot
• เรื่องลึกลับจากทั่วโลก
• BlogGang.com