Group Blog
 
All blogs
 

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 : 1150 Pageviews.  

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 : 1588 Pageviews.  

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 : 1661 Pageviews.  

การติดตั้งโปรแกรมหรือคำสั่ง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 : 999 Pageviews.  

AUTOLISP- คำสั่ง เขียนบันได เหล็ก

คำสั่ง เขียนบันได เหล็ก


สามารถสร้า้งบันใดเหล็กที่มีการ์ดกันตกด้านหลัง
เพียงไม่กี่วินาที่




ยังอยู่ในขั้นพัฒนาปรับปรุง


คำสั่ง
str


ตัวอย่าง
ไม่ว่าขนาดจะสูง-ต่ำแค่ไหนก็สามารถสร้างได้ง่ายๆ
เพียงคลิก จุด 2จุด

เลือกตำแหน่ง






มาแล้วบันใดของเรา
การ์ดจะอยู่ที่ 2200 มม.สูงจากพื้น
และราวมือจับสูงจากวัตถุ 1100 มม. ตามมาตรฐาน








สำรอง






 

Create Date : 14 ธันวาคม 2553    
Last Update : 24 พฤษภาคม 2554 13:05:31 น.
Counter : 1002 Pageviews.  

1  2  3  4  

SiAni_3D
Location :
กรุงเทพฯ Thailand

[Profile ทั้งหมด]

ให้ทิปเจ้าของ Blog [?]
ฝากข้อความหลังไมค์
Rss Feed
Smember
ผู้ติดตามบล็อก : 13 คน [?]




ไม่มีอะไร
ยากเกินความพยายาม







free counters
hit counter

Email: siani_3d@windowslive.com

AutoLISP

การติดตั้งคำสั่งAUTOLISP
https://www.bloggang.com/data/siani3d/picture/1292983826.png
AutoLISP-ปริ้นอัตโนมัติ
https://www.bloggang.com/data/s/siani3d/picture/1303271642.gif
AutoLISP-เขียนบันได เหล็ก
http://1.bp.blogspot.com/_rkn52Kckzys/TQNLsCsbRPI/AAAAAAAAAJQ/_FRJ-f_rZSY/s400/3.gif

แกะสลักลายไม้อคีลิกพลาสติก

ตัวอย่างป้าย
https://www.bloggang.com/data/siani3d/picture/1297067488.gif

ออกแบบเครื่องจักรและผลิตภัณฑ์

ระบบคัดแยกขยะ
http://3.bp.blogspot.com/-BFhMOh4N58w/Td25JRkqL-I/AAAAAAAAAZQ/KzKTKe0NKAg/s1600/Assem-2.gif

AutoCAD Tips

แก้ปัญหา image ไฟล์รูป
https://www.bloggang.com/data/s/siani3d/picture/1306393322.gif
แก้ปัญหา DialogBox ไม่ขึ้นป
https://www.bloggang.com/data/s/siani3d/picture/1306463191.gif

บันทึกลึกลับ

ยานอวกาศขนาดยักษ์บนดวงจันทร์
http://www.galacticchannelings.com/afbeeldingen/moon-spaceship.jpg

พบถิ่นที่อยู่ของมนุษย์ต่างดาวแล้ว
hhttps://www.bloggang.com/data/s/siani3d/picture/1305779427.jpg

พลังแห่งจินตนาการ

พลังจิต คืออะไร
http://2.bp.blogspot.com/_rkn52Kckzys/TU-J3VzDbSI/AAAAAAAAAJ4/VBzFljd3gxI/s400/Aura%2BMoving.jpg
Friends' blogs
[Add SiAni_3D's blog to your web]
Links
 

 Pantip.com | PantipMarket.com | Pantown.com | © 2004 BlogGang.com allrights reserved.