PDA

View Full Version : lisp เปลียน layer,color


num100
04-04-2007, 04:54 PM
lisp ตัวนี้ จะเป็นตัวช่วยในการเปลียน layer,color ตาม layer ที่ตั้งไว้
นะครับ ลองเอาไปใช้ดูนะครับ ในที่นี้ผมตั้ง key คือ di และ layer ที่ต้องการเปลียน
คือ layer dimension ง่ายๆ แต่น่าจะพอมีประโยชน์ นะครับ


;; เปลียนเป็น LAYER = DIMENSION=
(defun C:DI (/ a) (setq a (ssget))
; change color
(prompt "\n===============เปลียนเป็น layer dimension=================== " )
(command "change" a """prop" "LAYER" "Dimention" "")
(command "change" a """prop" "lt" "Bylayer" "")
(command "change" a """prop" "color" "Bylayer" "")
(command "layer" "s" "DI" "")
(princ)
)

k_chai_t
07-10-2010, 11:36 PM
พอดีเปิดกระทู้เก่าๆ เจอ Lisp ตัวนี้ อยากสอบถามว่า Lisp นี้ใช้อย่างไรครับ
ใครเอาไปใช้แล้วบ้าง ช่วยบอกหน่อยครับ

kvang
14-10-2010, 04:34 PM
(command "change" a """prop" "LAYER" "Dimention" "")
(command "change" a """prop" "lt" "Bylayer" "")
(command "change" a """prop" "color" "Bylayer" "")
(command "layer" "s" "DI" "")
(princ)
)

ต้องเอาคำสั่งนี้ไปสร้าง LISP ที่ cad ก่อนครับไปที่เมนู
Tools/AutoLISP/Visual LISP Editor
แล้วก็สร้างและ save ไว้ เวลาจะใช้ ก็ LOAD มาใช้
Tools/Auto LISP/Load
File ที่ LISP มาใช้ น่าจะใช้นะครับ

konothai
18-10-2010, 01:20 PM
วิธีปกติใน AutoCAD ก็เป็นอีกทางเลือกนะครับ
ให้ผลเร็วเหมือนกัน

1. เลือกรูปวาดที่ต้องการไว้ก่อน
เส้นที่ถูกเลือกจะแสดงเป็นไฮไลต์ (เส้นประ)

2. บน Toolbar ด้านบน ในส่วนของ Layer
คลิกเลือกชื่อเลเยอร์ที่ต้องการ

ส่วนการเปลี่ยนสี ก็คลิกจาก Toolbar ด้านบน
ในส่วนของสี (Color) จะให้เป็น ByLayer, ByBlock
หรือสีอะไรก็ได้จากตัวเลือกที่มี

:)