这段代码哪里出错

futuremh · 发表于 2007-8-31 23:56:00

就是还原标注的小程序,有错误,不知哪里错了,走过路过的说说.

(defun c:fred (/ s n e ee)
(setq s (ssget '((0 . "DIMENSION"))))
(setq n 0
e (ssname s n)
)
(while e
    (setq ee (subst (cons 1 "") (assoc 1 (entget e)) (entget e)))
    (entmod ee)
    (setq n (+ 1 n)
   e (ssname s n)
    )
)
)

((defun as (a b /)
(cdr (assoc a (entget b)))
)
)

jdhszh · 发表于 2007-9-1 08:20:00

(setq ee (subst (cons 1 "") (assoc 1 (entget e)) (entget e)))应是

(setq ee (subst (assoc 1 (entget e)) (cons 1 "") (entget e)))吧

((defun as (a b /) 子程序有什么有,而且前边多了"("

futuremh · 发表于 2007-9-1 12:44:00

按楼上的改,还是不行.....

zml84 · 发表于 2007-9-1 13:37:00

;;标注数值还原
(defun C:TT (/ S N E EE)
    (if    (setq S (ssget '((0 . "DIMENSION"))))
    (progn
        (setq N 0)
        (while (setq E (ssname S N))
        (setq EE (entget E)
              EE (subst    (cons 1 "")
                (assoc 1 EE)
                EE
             )
        )
        (entmod EE)
        (setq N (1+ N))
        )
    )
    )
    (princ)
)

futuremh · 发表于 2007-9-1 17:59:00

输入的列表有错误

7686599 · 发表于 2007-9-1 21:15:00

本帖最后由作者于 2007-9-1 21:15:59 编辑

how about this one:

(defun c:x1 (/ date en index ss)
(and (setq ss (ssget '((0 . "DIMENSION"))))
(setq index 0)
(while (setq en (ssname ss index))
(setq date (entget en))
(entmod (subst (cons 1 "") (assoc 1 date) date))
(entupd en)
(setq index (1+ index))
)
)
)

futuremh · 发表于 2007-9-2 00:32:00

谢谢楼上兄弟

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

这段代码哪里出错

浏览过的版块