[求助]：对修改对象属性不是很了解，请帮我改改，谢谢！！

xiaojiang0

我的图层设定的线型为blayer,我想把这个图层上的某一条直线变为center线，其他的线的线型不变，我写的小程序，但我对修改对象属性接触的不多，所以没法实现，请帮我修改一下，感激不尽！·！！
           （setq p1 '(100 20 0))
                    （setq p2 '(150 20 0))
            (command"line" p1 p2 "");
             (setq zt(entget(entlast)))
                     (setq zt1(cdr(assoc 6 zt)));取得Zt的线型
              (setq zt3(cons 6 "center"));将zt的线形变为center
             (setq zt4(subst zt3 zt1 zt))
               (entmod zt4)

qjcpj

线型名（如果不是“随层”，则出现），楼主使用command 命令画直线，系统默认随层，因此使用entget函数取出的组码不含线型6的码，故使用entmod函数不起作用。

xiaojiang0

我现在把图层的线改为continous了，为什么还不能实现呢？
(if (= (tblobjname "layer" "标注线") nil)
(command "_layer" "n" "标注线" "l" "continuous" "标注线"  "lweight" "0.35" "标注线""c" 4 "标注线" "") )

（setq p1 '(100 20 0))
（setq p2 '(150 20 0))
(command"line" p1 p2 "");
(setq zt(entget(entlast)))
(setq zt1(cdr(assoc 6 zt)));取得Zt的线型
(setq zt3(cons 6 "center"));将zt的线形变为center
(setq zt(subst zt3 zt1 zt))
(entmod zt)

为什么这条线还没有变成"center"线呢？
我这样做的目的是想把图层中的某一条线用虚线（如center）等画出来，其它的线都是实线，除了修改直线的属性外，还有没有别的方法了？

qjcpj

必须在(command"line" p1 p2 "")这句之后改所绘直线线型！
(defun c:test        ( / p1 p2 ent zt)
        (setq p1 (getpoint "\n第一点："))
        (setq p2 (getpoint p1 "\n第二点："))
        (command "line" p1 p2 "")
        (command "chprop" (entlast) "" "LT" "continuous"  "") ;;注意此句
        (setq zt (entget (entlast)))                                       
        (setq zt (subst (cons 6 "center") (assoc 6 zt) zt))
        (entmod zt)
        (princ)
)

fsxm

(command "CHANGE" .......)