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 static/image/common/back.gif
;; (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

谢谢老大，第二个问题是我太粗心。
页: [1]
查看完整版本: 请教，这个程序哪里出错了？