[求助]标注文字翻转（已解决）

jialiang168 · 发表于 2010-7-4 23:34:00

请问:为什么出错?

命令:
命令: ap
APPLOAD 已成功加载 dmr.lsp。

命令:
命令:
命令: dmr
; 错误: no function definition: UNDO_BEGIN

jialiang168 · 发表于 2010-7-4 23:34:00

请问:为什么出错?

命令:
命令: ap
APPLOAD 已成功加载 dmr.lsp。

命令:
命令:
命令: dmr
; 错误: no function definition: UNDO_BEGIN

小神仙 · 发表于 2010-7-5 08:46:00

(defun c:dmr ;; 尺寸字翻转;;;
       (/ ss ang ANG1 ssl e lst)
、 (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 1))
（princ)
)

有两个自定义出错处理函数，没有的话删掉就好了

crazylsp · 发表于 2010-7-5 11:08:00

本帖最后由 crazylsp 于 2011-4-21 11:32 编辑

; 这样可以了,觉得如果能输入角度就更实用了

edoumxx · 发表于 2012-4-24 19:30:05

cy956 发表于 2009-12-25 02:51
(defun c:dmr ;; 尺寸字翻转;;;       (/ ss ang ANG1 ssl e lst)  (u ...

尺寸字翻转程序很好用，但在autocad2012里该程序无法运行：提示"; 错误: no function definition: DXF"，请大神帮忙调一下

香田里浪人 · 发表于 2013-5-4 08:48:59

这样可以了,觉得如果能旋转90度角度就更实用了

账号		自动登录	找回密码
密码			注册