Thai3Dviz  

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

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

Reply
 
Share Thread Tools Display Modes
Old 20-11-2007, 11:58 AM   #1
aonhope
สมาชิกไทยวิซ
 
aonhope's Avatar
 
Join Date: Sep 2007
Location: พระโขนง คลองเตย กรุงเทพฯ
Posts: 125
aonhope is on a distinguished road
Send a message via MSN to aonhope
Smile Lisp สำหรับ Copy Text และ Copy Block

วันนี้เอา Lisp มาให้ลองใช้กัน 2 ตัวเผื่อจะมีประโยชน์บ้าง

ตัวแรก สำหรับ Copy Text ต้นฉบับ เป็นยังไงตัวต่อไปก็เป็นอย่างนั้น

(DEFUN C:CT () ;copy text from source
(setq e1 (ssname (ssget) 0)
data1 (cdr (assoc 1 (entget e1)))
ss1 (ssget)
n1 (sslength ss1))
(setq i 0)
(repeat n1
(setq e2 (entget (ssname ss1 i)))
(entmod (subst (cons 1 data1) (assoc 1 e2) e2))
(setq i (+ i 1))
) ;end repeat
) ;end program
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

ตัวที่สอง สำหรับ Copy Block จุด Base point อยู่ที่ไหนก็จะเข้าจุดที่นั่น ท่านจะไม่พลาดการเข้า Snap อีกต่อไป

(DEFUN C:cb ()
(MENUCMD "S=MO")
(setvar "osmode" 0)
(setq ss1 (ssget '((0 . "INSERT"))))
(setq e1 (ssname ss1 0))
(setq p1 (cdr (assoc 10 (entget e1))))
(command "copy" ss1 "" "m" p1)
(setvar "osmode" 179))

;;;;;;;;;;;;;;;;;;;;;;;;;;;

ลองเอาไปใช้กันนะครับ เพราะผมก็ใช้บ่อยๆเลยเอามาให้ลองใช้เผื่อจะได้ทำงานเ ร็วขึ้น
__________________
________________________
THANK YOU
To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
aonhope is offline  

Reply With Quote
Old 20-11-2007, 03:03 PM   #2
KanoknonP
สมาชิกไทยวิซ
 
KanoknonP's Avatar
 
Join Date: Apr 2007
Location: หนองคาย
Posts: 716
KanoknonP has a spectacular aura aboutKanoknonP has a spectacular aura about
Default

ขอบคุณครับ เจ๋งเลย ไม่ต้องมานั่งจับจุด insertion

นิดนึ่งครับ โปรแกรม CT+ มีวิธีการใช้งานยังไงครับ
KanoknonP is offline   Reply With Quote
Old 20-11-2007, 03:22 PM   #3
KanoknonP
สมาชิกไทยวิซ
 
KanoknonP's Avatar
 
Join Date: Apr 2007
Location: หนองคาย
Posts: 716
KanoknonP has a spectacular aura aboutKanoknonP has a spectacular aura about
Default

Quote:
Originally Posted by KanoknonP View Post
ขอบคุณครับ เจ๋งเลย ไม่ต้องมานั่งจับจุด insertion

นิดนึ่งครับ โปรแกรม CT+ มีวิธีการใช้งานยังไงครับ

ผมอยากได้วิธีการเปลี่ยนคุณสมบัติของวัตถุ เช่น รัศมีของวงกลม , ความยาวเส้น
เป็นต้น ให้เหมือนกับโปรแกรม Copy text รบกวนพี่ด้วยครับ
KanoknonP is offline   Reply With Quote
Old 20-11-2007, 03:24 PM   #4
aonhope
สมาชิกไทยวิซ
 
aonhope's Avatar
 
Join Date: Sep 2007
Location: พระโขนง คลองเตย กรุงเทพฯ
Posts: 125
aonhope is on a distinguished road
Send a message via MSN to aonhope
Smile

Quote:
Originally Posted by KanoknonP View Post
ขอบคุณครับ เจ๋งเลย ไม่ต้องมานั่งจับจุด insertion

นิดนึ่งครับ โปรแกรม CT+ มีวิธีการใช้งานยังไงครับ

พิมพ์ CT แล้วกด Enter จากนั้นเลือกตัวต้นฉบับบ แล้วก็กด Enter เพื่อเก็บค่าต้นฉบับ จากนั้นไปติกตัวที่เราต้องการจะเปลี่ยน แล้วกด Enter
__________________
________________________
THANK YOU
To view links or images in signatures your post count must be 10 or greater. You currently have 0 posts.
aonhope is offline   Reply With Quote
Old 20-11-2007, 04:19 PM   #5
KanoknonP
สมาชิกไทยวิซ
 
KanoknonP's Avatar
 
Join Date: Apr 2007
Location: หนองคาย
Posts: 716
KanoknonP has a spectacular aura aboutKanoknonP has a spectacular aura about
Default

ทำได้แล้วครับ เจ๋งมากๆๆ ขอบคุณครับ
KanoknonP 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


All times are GMT +7. The time now is 08:10 PM.

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