วันจันทร์ที่ 19 พฤศจิกายน พ.ศ. 2555

Tadpole (Slope) Marker

เว้นว่างการบันทึกบล็อกไปนานเหมือนกัน สัปดาห์ที่ผ่านมามีฝรั่งถามหา Tadpole (Slope) Marker ที่เป็นสัญลักษณ์คล้ายตัวลูกอ๊อด ที่เคยโพสต์ไว้ในฟอร์รั่มของ autodesk หมวด Visual LISP / AutoLISP / Customization หลังจากตอบอีเมลไป เลยคิดว่าน่าจะบันทึกไว้ในบล็อกเพื่อเตือนความจำด้วยอีกที่





วันพฤหัสบดีที่ 14 มิถุนายน พ.ศ. 2555

CM

CM - Construction management

ขึ้นหัวข้อเอาไว้ก่อน แล้วจะบันทึกเพิ่มเติมวันหลัง

วันอังคารที่ 8 พฤษภาคม พ.ศ. 2555

Windows 8 คีย์ลัด Shortcut key

ช่วงวันหยุดที่ผ่านมาได้มีโอกาสใช้ Windows 8 Consumer Preview และได้พบเอกสารเกี่ยวกับคีย์ลัด จึงนำมาบันทึกไว้ ณ ที่นี้

วันศุกร์ที่ 13 เมษายน พ.ศ. 2555

AutoCAD : PA2013AEC เพิ่มคำสั่งใหม่สำหรับช่วยเขียนงานโครงสร้าง

PA2013AEC เพิ่มคำสั่งใหม่สำหรับช่วยเขียนงานโครงสร้าง ประกอบด้วยคำสั่ง COL, BA และ SSSS สำหรับเขียนเสา คานแบบแนบหน้าตัดเสา และสัญลักษณ์พื้น โดยวางบนเลเยอร์ S-COLUMN, S-BEAM และ S-SLAB-SYMBOL / S-SLAB-ANNO จะบรรจุโปรแกรมของคำสั่งเหล่านี้อยู่ใน CD ของหนังสือเล่มใหม่ ดูตัวอย่างการทำงานของคำสั่งได้จากวิดีโอนี้

วันอาทิตย์ที่ 11 มีนาคม พ.ศ. 2555

AutoCAD : เรขาคณิต เส้นตรง - วงกลม

จากเส้นตรงของรูปหลายเหลี่ยมด้านเท่า เมื่อนำมาวางซ้อนกันหลายรูป โดยให้หมุนไปรูปละองศาเท่าๆกัน จะสามารถให้ผลสร้างเป็นวงกลมได้


ลองใช้คำสั่ง PNN จากโค้ดถัดไปนี้เพื่อสร้างรูปหลายเหลี่ยมซ้อนกันดังกล่าว

(defun c:pnn (/ osmode n sides r p ang ang1)
(setq osmode (getvar "osmode"))
(initget 7)
(setq n (getint "\nCopies = "))
(initget 7)
(setq sides (getint "\nSides = "))
(initget 7)
(setq r (getdist "\nRadius of circumscribe = "))
(initget 1)
(setq p (getpoint "\nCenter = "))
(setq ang (/ 180. n)
ang1 0.
)
(setvar "osmode" 0)
(setvar "cmdecho" 0)
(repeat n
(command "polygon"
sides
p
"I"
(strcat "@"
(rtos r 2 8)
"<"
(rtos (setq ang1 (+ ang1 ang)) 2 8)
)
)
)
(setvar "cmdecho" 1)
(setvar "osmode" osmode)
(princ)
)

พรอมต์ของคำสั่ง
Command: pnn
Copies = จำนวนสำเนา เช่น 12
Sides = จำนวนด้านของรูปหลายเหลี่ยม เช่น 3
Radius of circumscribe = ค่ารัศมีของวงกลมล้อมรูปหลายเหลี่ยม เช่น 50
Center = กำหนดตำแหน่งจุดศูนย์กลาง

วันศุกร์ที่ 30 ธันวาคม พ.ศ. 2554

AutoCAD Tips : Visual LISP Tip เขียนสัญลักษณ์ Slab งานโครงสร้าง

ส่งท้ายปีเก่า 2554 ด้วยคำสั่งเขียนสัญลักษณ์ Slab งานโครงสร้าง ตามที่ท่านหนึ่งได้อีเมลมาถาม อยากได้คำสั่งช่วยลงสัญลักษณ์นี้ที่เป็นเส้นทแยงมุมในพื้นที่ พร้อมกับวงกลมบอกหมายเลขอ้างอิง ตามรูป



ได้พัฒนาเป็น 2 คำสั่งคือ sss และ ssss โดยคำสั่งหนึ่งใช้เขียน และอีกคำสั่งใช้สำหรับกำหนดค่าเริ่มต้น

Command: SSSS
Letter: พิมพ์ข้อความที่ต้องการ เช่น S1
Text Height: พิมพ์ค่าความสูงตัวอักษรที่ต้องการ เช่น 0.25
Bubble Radius: พิมพ์ค่ารัศมีของวงกลมล้อมตัวอักษร เช่น 0.3

Command: SSS
Developed by S.Chatchawal, schatchawal@gmail.com
Point in boundary: เลือกจุดในพื้นที่ที่จะเขียน และคำสั่งจะแสดงพรอมต์ Point in boundary: นี้ให้เลือกจุดเขียนได้อีกเรื่อยๆ จบคำสั่งโดยกด ENTER ต่อพรอมต์นี้



ท่านที่สนใจสามารถอีเมลมารับไปใช้กันได้ครับ
สวัสดีส่งท้ายปี 2554