请解决程序中选择两次为一次

894560869

请解决程序中选择两次为一次

(defun DD()

(command "DIMDIAMETER" PAUSE PAUSE  )
(command  "dim1" "new" "%%C<>{}{}" (ENTLAST) "" )）

(defun DR()

(command "dimradius" PAUSE PAUSE  )
(command  "dim1" "new" "%%C<>{}{}" (ENTLAST) "" )）

(defun c:DAA (/ e1) ; 圆或圆弧标注
(setvar "cmdecho" 0) (setvar "pickbox" 25)
(if (not (tblsearch "layer" "7标注层"))
(command "-layer" "n" "7标注层" "c" "4""7标注层"""));endif
(command "layer" "s" "7标注层" "" )
(command"osnap""end,mid,int,NOD,INS,cen,per,TAN,NEA,QUI,APP,EXT,PAR")
(setq e1 (entget (car (entsel "选择圆或圆弧："))))
(if (= (cdr (assoc 0 e1)) "ARC")
(DR))
(if (= (cdr (assoc 0 e1)) "CIRCLE")
(DD))
(princ))

ZZXXQQ

(defun DD (ss)
(command "DIMDIAMETER" ss PAUSE)
(command  "dim1" "new" "%%C<>{}{}" (ENTLAST) "")
)

(defun DR (ss)
(command "dimradius" ss PAUSE)
(command  "dim1" "new" "%%C<>{}{}" (ENTLAST) "")
)

(defun c:DAA (/ e1) ;圆或圆弧标注
(setvar "cmdecho" 0) (setvar "pickbox" 25)
(if (not (tblsearch "layer" "7标注层"))
(command "-layer" "n" "7标注层" "c" "4""7标注层"""));endif
(command "layer" "s" "7标注层" "")
(command"osnap""end,mid,int,NOD,INS,cen,per,TAN,NEA,QUI,APP,EXT,PAR")
(setq e1 (entget (car (setq s1 (entsel "选择圆或圆弧：")))))
(if (= (cdr (assoc 0 e1)) "ARC") (DR s1))
(if (= (cdr (assoc 0 e1)) "CIRCLE") (DD s1))
(princ)
)

894560869

感谢