本帖最后由 鱼与熊掌 于 2015-4-24 14:45 编辑
 - (defun c:tt(/ dimsclst ss x)
- (if(null cxsta)
- (progn
- (alert "需要CX_LIB.VLX,请到QQ群:64665600下载.")
- )
- )
- (cxsta)
- (if(setq ss(ssget))
- (progn
- (cx-cmd-sc ss (setq bl(cx-GetReal 1 "" "输入缩放比例" 0.5)))
- (setq x(car(cx-SsIsType ss"*dim*")))
- (foreach x(cx-SsIsType ss"*dim*")
- (setq dimsclst(cx-Get-DimSc x))
- (cx-Put-DimSc x(* bl(car dimsclst))(/ (cadr dimsclst)bl))
- )
- )
- )
- (cxend)
- )
|