请教，这个程序哪里出错了？

smartstar · 发表于 2012-5-13 20:58:51

如题，这个程序哪里有问题，为什么改不了线型？
(defun c:tt()
(setq ss_name (car(entsel )))
(setq entdata (entget ss_name ))
(if (assoc 6 entdata)
   (setq entdata (subst (cons 6 "CENTER") (assoc 6 entdata) entdata))
(progn
   (append el '((62 . 256)))
   (setq entdate (append entdata '((6 . "CENTER"))))
)
  )

  (entmod entdata)
)

Andyhon · 发表于 2012-5-13 21:34:43

;; (append el '((62 . 256))) ;;; ????
(setq entdata (append entdata '((6 . "CENTER"))))

smartstar · 发表于 2012-5-14 08:04:44

Andyhon 发表于 2012-5-13 21:34
;; (append el '((62 . 256))) ;;; ????
(setq entdata (append entdata '((6 . "CENTER" ...

不好意思，贴错了。应该是：
(defun c:tt()
(setq ss_name (car(entsel )))
(setq entdata (entget ss_name ))
(if (assoc 6 entdata)
   (setq entdata (subst (cons 6 "CENTER") (assoc 6 entdata) entdata))
   (setq entdate (append entdata '((6 . "CENTER"))))
  )

  (entmod entdata)
(princ)
)
但是这样仍然不能改变线型，请高人指点，谢谢。

Andyhon · 发表于 2012-5-14 08:49:23

1. 前提先有 "CENTER" 线型
2. (setq entdata /= (setq entdate

smartstar · 发表于 2012-5-14 18:08:06

本帖最后由 smartstar 于 2012-5-14 18:25 编辑

Andyhon 发表于 2012-5-14 08:49
1. 前提先有 "CENTER" 线型
2. (setq entdata /= (setq entdate

谢谢老大，第二个问题是我太粗心。

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