Thai3Dviz  

Go Back   Thai3Dviz > AutoCad > ห้องดราฟ (AutoCad)

ห้องดราฟ (AutoCad) ข่าวน่าสนใจ ,ถาม ตอบปัญหา เกี่ยวกับโปรแกรม AutoCad

Reply
 
Share Thread Tools Display Modes
Old 22-02-2010, 11:25 AM   #1
konothai
สมาชิกไทยวิซ
 
konothai's Avatar
 
Join Date: Jan 2010
Posts: 97
konothai is on a distinguished road
Default Lisp เขียนเส้นคู่ เช่น ผนังบนแปลน

เขียนเส้นคู่แบบอัตโนมัติ โดยเราเพียงกำหนดจุดเริ่มต้นและสิ้นสุด
ส่วนการออฟเซ็ตเส้น คำสั่งจะทำให้เอง




ดาวน์โหลดที่

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

ได้ไฟล์ W-L.ZIP แตกออกมาเป็น W-L.VLX

วิธีใช้ต้องโหลดไฟล์ก่อนด้วยคำสั่ง APPLOAD
พิมพ์ชื่อคำสั่งนี้บน Command:
หรือเมนู Tools | Load applications
หรือบน Ribbon: Manage | Applications | Load Applications

เลือกไฟล์ L-W.VLX แล้วคลิก Load

มี 3 คำสั่งด้วยกัน
command prompt เป็นดังนี้


Command: wp เขียนเส้นคู่ เส้นที่สองหรือเส้นออฟเซ็ต คำสั่งสร้างให้ในทิศทวนเข็มนาฬิกา
Start point: เลือกจุดแรก
End point: เลือกจุดที่สอง

Command: wm เขียนเส้นคู่ เส้นที่สองหรือเส้นออฟเซ็ต คำสั่งสร้างให้ในทิศตามเข็มนาฬิกา
Start point: เลือกจุดแรก
End point: เลือกจุดที่สอง

ทั้งสองคำสั่ง wp และ wm สร้างออฟเซ็ตที่ระยะ 0.1 หน่วย (หรือผนัง 10 ซม. ในแบบหน่วยเมตร)

แต่ถ้าต้องการเปลี่ยนระยะออฟเซ็ต ให้พิมพ์ ww และใส่ค่าใหม่ที่ต้องการ

Command: ww
Wall thick: <0.1> ใส่ระยะออฟเซ็ตเส้นใหม่ที่ต้องการ

หากต้องการโหลดอัตโนมัติ
เพื่อใช้คำสั่งนี้ทุกครั้งที่เปิด AutoCAD
ไม่ต้องเสียเวลากำหนดโหลดเองอีก

ในไดอะล็อกจาก Appload
ให้คลิก Contents เพื่อเพิ่มไฟล์นี้เข้าใน Startup suite
konothai is offline  

Reply With Quote
Old 22-02-2010, 01:03 PM   #2
konothai
สมาชิกไทยวิซ
 
konothai's Avatar
 
Join Date: Jan 2010
Posts: 97
konothai is on a distinguished road
Default

การประยุกต์ใช้ ให้กำหนดเลเยอร์ไปด้วยเลย
เช่น เอาคำสั่ง wm และ wp ไปใช้กับการเขียนเส้นผนังที่
จะวางไว้บนเลเยอร์ชื่อ WALL

ให้สร้างไฟล์ LISP เพิ่มเติม โดยใช้โค้ดดังนี้

(defun c:wml () (command "layer" "m" "WALL" "")(c:wm)(princ))
(defun c:wpl () (command "layer" "m" "WALL" "")(c:wp)(princ))

แล้วโหลดไฟล์ LISP ใหม่นี้

คราวนี้พอใช้คำสั่งใหม่ wml หรือ wpl
ก็ไม่ต้องเสียเวลากำหนด Current Layer เองอีกเลย
คำสั่งจะกำหนดให้เลยที่เลเยอร์ WALL
ก่อนเข้าสู่คำสั่ง WM และ WP
ที่ให้กำหนดจุดเขียนรูป


จะแก้ชื่อเลเยอร์เป็นอะไรก็ได้ ตามที่ใช้งานอยู่
เช่น

(defun c:wml () (command "layer" "m" "A-WALL" "")(c:wm)(princ))

konothai is offline   Reply With Quote
Old 07-03-2010, 11:59 AM   #3
baggio11
สมาชิกไทยวิซ
 
baggio11's Avatar
 
Join Date: Jun 2008
Posts: 132
baggio11 is on a distinguished road
Send a message via MSN to baggio11
Default

จากคำสั่งข้างต้นครับ
ผมจะเพิ่มคำสั่งนี้ได้ ยังไงยครับ

(defun c:wml () (command "layer" "m" "WALL" "")(c:wm)(princ))
(defun c:wpl () (command "layer" "m" "WALL" "")(c:wp)(princ))

โดยนำไปเพิ่มลงใน ไฟล์ LSP ของผมที่มีอยู่เดิมอะครับ
เนื่องจาก VLX ผมเปิดดู codeไม่ได้
baggio11 is offline   Reply With Quote
Old 07-03-2010, 02:28 PM   #4
konothai
สมาชิกไทยวิซ
 
konothai's Avatar
 
Join Date: Jan 2010
Posts: 97
konothai is on a distinguished road
Default

Quote:
Originally Posted by baggio11 View Post
จากคำสั่งข้างต้นครับ
ผมจะเพิ่มคำสั่งนี้ได้ ยังไงยครับ

(defun c:wml () (command "layer" "m" "wall" "")(c:wm)(princ))
(defun c:wpl () (command "layer" "m" "wall" "")(c:wp)(princ))

โดยนำไปเพิ่มลงใน ไฟล์ lsp ของผมที่มีอยู่เดิมอะครับ
เนื่องจาก vlx ผมเปิดดู codeไม่ได้
ใช่แล้วครับ
เพิ่มในไฟล์ lsp ใดก็ได้
konothai is offline   Reply With Quote
Old 07-03-2010, 05:22 PM   #5
baggio11
สมาชิกไทยวิซ
 
baggio11's Avatar
 
Join Date: Jun 2008
Posts: 132
baggio11 is on a distinguished road
Send a message via MSN to baggio11
Default

หมายถึงว่า จะเอา code ของพี่ ทั้งหมด แต่อยู่ในรูปแบบ ของ LSP
อะครับ
baggio11 is offline   Reply With Quote
Old 08-03-2010, 09:49 AM   #6
konothai
สมาชิกไทยวิซ
 
konothai's Avatar
 
Join Date: Jan 2010
Posts: 97
konothai is on a distinguished road
Default

ไม่จำเป็นต้องมีโค้ด LISP
ไฟล์ .VLX ตั้งใจจะ Protect โค้ด
ไม่ให้ผู้อื่นเห็น ไม่ให้ผู้อื่นแก้ไขเปลี่ยนแปลงได้ครับ

แต่นำไปใช้ได้ง่ายมากๆ เลยครับ

ถ้าไม่อยากโหลดผ่านคำสั่ง Appload ทีละตัว
จะเพิ่มบรรทัดโหลดไว้เลยก็ยังได้ครับ

เช่น จะปรับเลเยอร์พร้อมโหลดให้เพิ่มโค้ดต่อไปนี้
ไว้ในไฟล์ LISP ตัวใดก็ได้ แล้วโหลดจากไฟล์นั้นทีเดียว
ไม่ต้องทำซ้ำหลายครั้ง

(load "c:/Path1/Path2/ชื่อไฟล์.VLX")
(defun c:wml () (command "layer" "m" "wall" "")(c:wm)(princ))
(defun c:wpl () (command "layer" "m" "wall" "")(c:wp)(princ))

สังเกตว่ากำหนด Path ในการโหลดใช้
forward slash ไม่ใช่ backslash แบบบน Windows
เช่น เก็บไว้ที่ C:\LISP\VLX\wall.vlx
ก็เขียนเป็น
(load "c:/lisp/vlx/wall.vlx")

แค่นี้เองครับ

konothai is offline   Reply With Quote
Old 05-04-2010, 11:37 AM   #7
manjuyung
สมาชิกไทยวิซ
 
Join Date: Mar 2010
Posts: 30
manjuyung is on a distinguished road
Default

สุดยอดครับ อยากได้แบบมีลาย hathc ด้วยทำยังไงครับ
manjuyung is offline   Reply With Quote
Old 26-04-2012, 09:33 AM   #8
construction
สมาชิกไทยวิซ
 
Join Date: Jun 2009
Posts: 140
construction is on a distinguished road
Default

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

ใครโหลดไปแล้ว ส่งให้หน่อยซิครับ ลิงค์มันตาย


อีเมล chaiyasit_1978@hotmail.com
construction is offline   Reply With Quote
Reply

Thread Tools
Display Modes

Posting Rules
You may not post new threads
You may not post replies
You may not post attachments
You may not edit your posts

BB code is On
Smilies are On
[IMG] code is On
HTML code is Off

Forum Jump

Similar Threads
Thread Thread Starter Forum Replies Last Post
เล็กๆน้อยๆกับภาษาไทย tom101 ห้องนั่งเล่น (Living room) 25 08-06-2011 02:00 PM
อยากได้อะไร Google จัดให้.... มือใหม่ยิ่งต้องควรอ่าน และ ทำความเข้าใจ mr_renderman ห้องพยาบาล 39 02-03-2011 11:08 AM


All times are GMT +7. The time now is 11:03 AM.

Design Developed by CompleteGFX
Powered by vBulletin® Version 3.8.5
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.
Copyright ©2002-2010 Thai3dViz Co.,Ltd.
Hosting by THAISITE.net