Learn command, AutoLISP, Problem AutoCAD, การใช้งาน AutoCAD หลากหลายความรู้หลากหลายปัญหา ร่วมแก้ไขแบ่งปันปัญหาแห่ง CAD การรวมกันคิด สามารถทำให้ผ่านพ้นไปได้ และหาแนวทางแก้ปัญหาได้เกือบทุกปัญหา ลุงธี57
ใครที่มักเจอปัญหาในการเขียนแบบอย่างผม ในกรณีที่ต้องการหารูปแบบของอุปกรณ์ของ Floor Drain , Floor Clean out , อื่นอุปกรณ์อื่นๆของ KNACK ซึ่งโดยปกติจะไม่ค่อยให้แค็ทตาล็อก ขอไปยังไงก็ไม่ได้ ก็เลยต้องเข้าเว็บนี้ครับ http://www.knack.co.th/products_catalog/floor_drain/imageset.html มาบอกกล่าวไว้เผื่อมีประโยขน์
หยิบมาฝากกัน AutoLISP เขียนตำแหน่งเสาไฟฟ้า
หยิบมาฝากกัน AutoLISP เขียนตำแหน่งระยะห่างเสาไฟฟ้า ไปเห็นมาจากเว็บน่าสนใจดี
ที่มา : http://www.phosat.com/
ลองนำไปใช้ดูได้นะครับ
;สร้าง block eploe ขนาด 1x1 มี insert point อยู่ตรงกลาง และ layer epole
(defun c:epole ()
(setq ins_pnt (getpoint "\nStart point :")) ;จุดเริ่มต้นวางเสา
(setq i (getint "\nNumber of blocks :")) ;จำนวนเสาที่จะวาง
(if (> i 1) (setq dist1 (getdist "\nDistance :")))ระยะห่างของเสา
(setq w1 (getdist "\nWidth :"));ขนาดเสา ความกว้าง
(setq l1 (getdist "\nLenght :"));ความยาว ปกติก็ให้ 1x1
(setq rot_txt (getangle "\nRotation angle<0>:"));การหมุนของเสา
(if (not rot_txt)
(setq rot_txt 0.0)
)
(setq rot_txt (rtod rot_txt))
(if (> i 1) (setq txt_dir (getangle "\nPutting direction:"))) ;แนวการวางเสา
(if (not dist1) (setq dist1 0.0))
(if (not txt_dir) (setq txt_dir 0.0))
(setvar "clayer" "epole")
(repeat i
(command "_insert" "epole" ins_pnt w1 l1 rot_txt) ;คำสั่งวางเสา
(setq ins_pnt (polar ins_pnt txt_dir dist1))
)
)
ที่มา : http://www.phosat.com/
ลองนำไปใช้ดูได้นะครับ
;สร้าง block eploe ขนาด 1x1 มี insert point อยู่ตรงกลาง และ layer epole
(defun c:epole ()
(setq ins_pnt (getpoint "\nStart point :")) ;จุดเริ่มต้นวางเสา
(setq i (getint "\nNumber of blocks :")) ;จำนวนเสาที่จะวาง
(if (> i 1) (setq dist1 (getdist "\nDistance :")))ระยะห่างของเสา
(setq w1 (getdist "\nWidth :"));ขนาดเสา ความกว้าง
(setq l1 (getdist "\nLenght :"));ความยาว ปกติก็ให้ 1x1
(setq rot_txt (getangle "\nRotation angle<0>:"));การหมุนของเสา
(if (not rot_txt)
(setq rot_txt 0.0)
)
(setq rot_txt (rtod rot_txt))
(if (> i 1) (setq txt_dir (getangle "\nPutting direction:"))) ;แนวการวางเสา
(if (not dist1) (setq dist1 0.0))
(if (not txt_dir) (setq txt_dir 0.0))
(setvar "clayer" "epole")
(repeat i
(command "_insert" "epole" ins_pnt w1 l1 rot_txt) ;คำสั่งวางเสา
(setq ins_pnt (polar ins_pnt txt_dir dist1))
)
)
สมัครสมาชิก:
บทความ (Atom)
คลังบทความของบล็อก
ป้ายกำกับ
ของหาย
คำสั่งย่อ
คำสั่ง AutoCAD ที่ควรรู้
คีย์ลัด ใน AutoCAD
ณ ที่แห่งนี้
ฟอนท์ภาษาไทย
โลโก้โปรแกรม AutoCAD
วัดความยาวเส้น
ac$
acad.fas
acad.lsp
acad.pgp
acad.vlx
Alias
annotation scale
Attibute
AutoCAD
AutoCAD Command
AutoCAD error
AutoLISP
Autosave
Backup
Block
Block AutoCAD
CAD error
cad.fas
Can not OPEN FILE
close wcs icon
Command
Command autocad
Commandline
CUI
DBLCLKEDIT
Dimension
Dimspace
Draft Setting
DTEXTED
edit text
External Referances
FATAL ERROR
File autocad
Find text
Fix F8
font autocad
FS
Function Key
Game
HATCH
Hatch error
Isomatric
Key
LISP
logo AutoCAD
LSP
Menubar
Missing
Modelspace
Navvcube
Object Snap
Option
Ortho Key
Osnap
Osnap error
overkill
page setup
panels
Paperspace
perpendicular
PRODUCED BY AN AUTODESK EDUCATION PRODUCT
Recovery
Release
Ribbon
Rtext
Scale
Seclect Mode
Select Command
Setvar
Shortcut Key
System Variables
Thai Font for AutoCAD
Tip & Trick
Toolbar หาย
Turn off Start Tab
Unisolate
Variable
Version
Viewport
Virus
Virus AutoLISP
Wblock
XREF
Xref AutoCAD