 - (if (not pyy)(setq pyy 30))
- (if (not rzz)(setq rzz 3))
- (if (not czz)(setq czz 15))
- (if (not gyy)(setq gyy 20))
- (if (not dxx)(setq dxx 60))
- (setq xuanxiang (getstring "\n执行1 或 设置2:<1>"))
- (if (/= xuanxiang "2") (progn
- (setq py (fix pyy))
- (setq rz (fix rzz))
- (setq cz (fix czz))
- (setq gy (fix gyy))
- (setq dx (fix dxx))
- (setq py (getdist (strcat "\n偏移:<" (itoa py) ">")))
- (setq rz (getdist (strcat "圆角值:<" (itoa rz) ">")))
- (setq cz (getdist (strcat "中间值:<" (itoa cz) ">")))
- (setq gy (getdist (strcat "突出量:<" (itoa gy) ">")))
- (setq dx (getdist (strcat "底线:<" (itoa dx) ">")))
- (if (not py)(setq py (fix pyy)))
- (if (not rz)(setq rz (fix rzz)))
- (if (not cz)(setq cz (fix czz)))
- (if (not gy)(setq gy (fix gyy)))
- (if (not dx)(setq dx (fix dxx)))
- (setq pyy py)
- (setq rzz rz)
- (setq czz cz)
- (setq gyy gy)
- (setq dxx dx)
- ))
|