求源码翻译

wau2000022

(defun c:dmr ;; 尺寸字翻转;;;
       (/ ss ang ANG1 ssl e lst)
  (command "_.undo" "be")
  (mapcar 'setvar '("cmdecho""blipmode")'(0 0))
  (while (progn
           (prompt "\n请选取要翻转文字方向的尺寸标注 <退出>: ")
           (setq ss (ssget '((0 . "DIMENSION")))))
    (setq ssl (sslength ss))
    (while (> ssl 0)
      (setq e   (ssname ss (setq ssl (1- ssl)))
            lst (entget e)
            ang (dxf 51 lst)
            ang1(if (and (>= pi ang)(> ang 0)) 0 pi))
      (entmod (subst (cons 51 ang1)(assoc 51 lst) lst))
    )
  )
  (mapcar 'setvar '("cmdecho""blipmode")'(1 0))
  (command "_.undo" "end")(princ)
)
(defun DXF (A1 A2 /)(setq ENT (cdr (assoc A1 A2))))
请问这段lsp代码用arx如何实现？
要C++代码的

xiaxiang

搞清楚lisp程序的思路，还怕不能用C++搞定它？
其实这个程序很简单

wau2000022

感谢大师指导

myjping

这个东东是做不到反转的