求高手指点！

hncshj · 发表于 2013-11-12 23:36:47

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:kz()
  (setq a (ssget "x" (list (cons 8  "jzx"))))
   (setq b (sslength a))
   (setq c 0)
   (while (<= c (- b 1))
      (setq d (ssname a c)
(setq appname "south")
(regapp "jzxbh")
(regapp (setq rname appname)
(setq xxdata (entget d (list rname))
(setq south-sx (cdr (assoc -3 xxdata))
(setq south-sx1 (cdr (assoc '1000 (cddr (nth 0 south-sx))))
(setq exdata1 (list (list '-3 (list "jzxbh" (cons 1000  south-sx1)))))
(entmod (list (cons -1 d)(cons -3 (mapcar 'list (mapcar 'car (cdr(assoc -3 (entget d '("*")))))))))
(setq last (entlast))
(setq lastent (entget (entlast)))
(entmod (setq newent (append lastent exdata1)));
(princ "\n已经处理")(princ c)(princ "个")(print)
(setq c (+ c 1))))

不能更新，不知道哪里出错了，请高手指点！

hncshj · 发表于 2013-11-12 23:56:53

只能更新一个，多个不能更新，请指教！

Lispboy · 发表于 2013-11-13 01:01:12

hncshj 发表于 2013-11-12 23:56
只能更新一个，多个不能更新，请指教！

你问问题，首先要介绍下程序是做什么吧，想更新什么。

st788796 · 发表于 2013-11-13 07:31:52

你是要改 CASS 那些扩展词典吧，搜索前面的帖子

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

[求助] 求高手指点！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评