刚才没有把代码写上就发出去了，现在补上。

happy清风

代码如下：
(defun c:circen();函数名为circen
　　(setq pt0(getpoint″enter center point:″));输入圆心点
　　(setq R (getdist pt0″enter the radius R:″));输入半径
　　(command″layer″ ″s″ ″0″ ″″);设置当前层为0层
　　(command″circle″pt0 R);画出圆
　　(setq pl (list(－(car pt0)5R)(cadr pt0)))
　　(setq pr(list(＋(car pt0)5R)(cadr pt0)))
　　(setq pt(list(car pt0)(＋(cadr pt0)5R)))
　　(setq pb(list(car pt0)(－(cadr pt0)5R)))
　　(command″layer″ ″N″ ″A″ ″C″ ″blue″ ″A″ ″L″ ″center″ ″A″
　　 ″S″ ″A″ ″″);设置点划线层
　　(command″line″pr pl″″)
　　(command″line″pt pb″″);画出点划线
　　(command″layer″ ″S″ ″0″ ″″)
　)

龙龙仔

;;;程序有待改进
(defun C:CIRCEN        ()                        ;函数名为circen   　　
  (setq PT0 (getpoint "ENTER CENTER POINT: ")) ;输入圆心点   　　
  (setq R (getdist PT0 "ENTER THE RADIUS R: ")) ;输入半径   　　
  (command "LAYER" "S" "0" "")                ;设置当前层为0层   　　
  (command "CIRCLE" PT0 R)                ;画出圆   　　
  (setq PL (list (- (car PT0) (* 1.2 R)) (cadr PT0)))
  (setq PR (list (+ (car PT0) (* 1.2 R)) (cadr PT0)))
  (setq PT (list (car PT0) (+ (cadr PT0) (* 1.2 R))))
  (setq PB (list (car PT0) (- (cadr PT0) (* 1.2 R))))
  (command "LAYER" "N" "A" "C" "BLUE" "A" "L" "CENTER" "A" "S" "A" ""
          )                                ;设置点划线层
  (command "LINE" PR PL "")
  (command "LINE" PT PB "")                ;画出点划线
  (command "LAYER" "S" "0" "")
)

happy清风

谢谢龙龙仔老师的指正，我已调试成功了，以后我会努力的，再次谢了。