|
調整線條寬度的實用工具
（作者未知） 2009/7/19
（接上頁）itget 1 "Entity Number")
(prompt"\n選擇實體確定顏色或給出顏色號")
(setq lb (getkword"[Entity\\Number]:"))
(if (=lb "Entity")
(progn
(prompt"\n選擇實體確定所需變化線寬圖素的顏色：")
(setq le (ssget))
(setq lp (ssname le 0))
(setq lc (car (car (cdr(cdr (cdr(entget lp)))))))
(if (=lc 62)
(setg 11(cdr(cdr(cdr(cdr(cdr(cdr(entget lp)))))))
)
(if(=1c 66)
(progn
(prompt"\n該實體的顏色是隨圖層確定的(Bylayer)!")
(setq bb 0)
(setq kk(getstring"\n終止處理過程?"))
)
)
(if(=lc 6)
(setq ll (cdr(car (cdr(cdr(cdr(cdr(entget lp))))))))
)
)
(if(=lb"Number")
(setq ll(getstring"\n給出顏色號："))
)
)
(setq objl(ssadd))
(setq j 0)
(while(﹤j(sslength obj))
(setq pl(ssname obj j))
(setq j (+j 1))
(setq pc (cdr(car(cdr (cdr(cdr(entget pl)))))))
(setq lcc(car(car(cdr(cdr(cdr(entget pl)))))))
(if(=lcc 6)
(setq pc (cdr(car(cdr(cdr(cdr(cdr(entget pl))))))))
)
(if(=ll pc)
(ssadd pl obj1)
)
)
)
)
(if(=t"LType")
(progn
(initget 1"Entity Name")
(prompt"\n選擇實體確定線型或給出線型名")
(setq lb(getkword"[Entity\\Name]:"))
(if(=lb "Entity")
(progn
(prompt"\n選擇線型實體確定所需變化線寬圖素的線型：")
(setq le (ssget))
(setq lp(ssname le 0))
(setq lc(car(car(cdr(cdr(cdr(entget lp)))))))
(if(=lc 6)
(setq ll (cdr(car(cdr(cdr(cdr(entget lp)))))))
)
(if(/=lc 6)
(progn
(prompt "\n該實體的顏色是隨圖層確定的(Bylayer)!")
(setq bb 0)
(setq kk (getstring"\n終止處理過程?"))
)
)
)
)
(if(=lb "Name")
(progn
(initget 1"Continuous Dashed Center Phantom DIvide Hidden DOt DAshdot Borde
r")
(prompt"給出需要變化的線型名?")
(se（未完，下一頁）
|
|
|