改圆柱的大小和里面的填充的程序

改圆柱的大小是平面布置中常有的事情,以下的小的程序可以很快改圆柱子的大小
并且一起改掉圆柱子里面的填充的大小,只要最初填充是关联的.选择圆的时候随便圆周上一点就行拉.




(defun C:ccr()
(setvar "cmdecho" 0) ; 命令过程不响应
(setq en (entsel " 选取已知圆: " )) ; 要求选取一对象
(setq en_data(entget(car en))) ; 取对象属性列表
(setq old_radlist (assoc 40 en_data)) ; 取 radius 子列表，40是表头
(setq old_rr (cdr old_radlist)) ; 取 radius
(princ "\ old radius =") (princ old_rr) ; 显示该旧圆半径值
(setq cenpt (cdr (assoc 10 en_data))) ;取得圆的圆心
(setq new_rr (getdist cenpt "\ new radius=:")) ;输入新的半径
(princ "\ new radius =") (princ new_rr)
(setq new_rad_list (cons 40 new_rr)) ;产生新的子列表
(setq en_data (subst new_rad_list old_radlist en_data));为什么无效
(setq n_radlist (assoc 40 en_data))
(setq n_rad (cdr n_radlist))
(princ "\ updated radius =") (princ old_rr)
(entmod en_data)
(prin1)
)