AutoLISP-Balloon Dimensions-Autocad

คำสั่งเขียน Balloon Dimensions



ตัวอย่าง
1.ป้อนคำสั่งหลัก
โปรแกรมถาม ให้ใส่ลำดับที่



2.โปรแกรมถาม ให้คลิกตำแหน่งหัวลูกศร




3.โปรแกรมถาม ให้คลิกตำแหน่งตัวอักษร


4.เท่านี้ก็เสร็จพิธี



คำสั่งโปรแกรม

(defun C:bn ()
(command "osmode" "0"
"layer" "s" "balloon" ""
"dimstyle" "R" "balloon-dot"
(setq text (getstring "\nลำดับที่:"))
"qleader"
(getpoint "\nตำแหน่งหัวลูกษร:")
(setq PT (getpoint "\nตำแหน่งตัวอักษร:")) "" "5" text ""

"ERASE" "L" ""
"EXPLODE" "L" ""
"circle" PT "D" "7"
"trim" "" PT ""
"style" "Cordia 3" "" "" "" "" "" "n"
"text" "j" "MC" PT "" text ""
"dimstyle" "R" "balloon"
"osmode" "183"


)
)

Posted in: AutoLISP