有劳各位帮忙把这两个程序合并一下，在这先谢谢了

my258

一直工作因对一些图形用不一样的标注样式感觉这两个程序很好用，有劳各位帮忙把这两个程序合并一下，在这先谢谢了
(defun c:dd ()
(command "-DIMSTYLE" "R" "副本1")
(princ)
)

(defun c:ddd ()
(vl-cmdf "-dimstyle" "a" (ssget) "")
  (princ)
  )

kongel

(defun c:dd ()
(command "-DIMSTYLE" "R" "副本1")
(vl-cmdf "-dimstyle" "a" (ssget) "")
(princ)
)

my258

@kongel 谢谢，是小白刚开始也这样合过，但像有时没反应

执骨哟

(defun ddd ()
(vl-cmdf "-dimstyle" "a" (ssget) "")
  )
(defun c:dd ()
(ddd)
(command "-DIMSTYLE" "R" "副本1")
(princ)
)