wau2000022 发表于 2012-1-30 13:13:06

求源码翻译

本帖最后由 wau2000022 于 2012-1-30 13:14 编辑

(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 发表于 2012-1-31 09:04:00

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

wau2000022 发表于 2012-2-5 14:56:54

感谢大师指导

myjping 发表于 2012-2-8 14:50:42

这个东东是做不到反转的
页: [1]
查看完整版本: 求源码翻译