(defun
c:bsc (/ blk bname dx dy disx disy newx newy)
(if
(setq blk (car (entsel "\nSelect the block to change Scale : ")))
(progn
(setq enlist(entget blk))
(setq bname (cdr(assoc 2 enlist)))
(cond
((= bname "blk1")(setq dx
100.0 dy 100.0))
((= bname "blk2")(setq dx
100.0 dy 120.0))
)
(setq disx (getdist "\nEnter
Distance X : "))
(setq disy (getdist "\nEnter
Distance Y : "))
(setq newx (/ disx dx)
newy (/ disy dy)
)
(entmod (append (entget blk)
(list (cons 41 newx) (cons 42 newy))
)
)
)
)
(princ)
)
การเพิ่มชื่อ
Block name และระยะ dis.x dis.y แทรกเพิ่มเข้าไปในโปรแกรมตามตัวอย่าง
ชื่อ block name คือ blk1 และ blk2 และระยะ
dx และ dy
ไม่มีความคิดเห็น:
แสดงความคิดเห็น