对选中的直线批量修改图层

dogingate

可以添加对文字和标注尺寸批量修改

纳闷的是continuous和Continuous居然返回结果不一样！！！ 还有line和LINE也是不一样的，用“=”比较的话返回nil，咋解决？用strcase吗？
(defun c:chg ()
(prompt "\n<<框选欲更新的直线>>")
(setq ss (ssget))
(setq k 0)
(repeat (sslength ss)
        (setq ename (ssname ss k));ss编号从0开始
        (setq elist (entget ename))
        (setq etype (sub_groupcodevalue_get 0 elist))
        (setq elinetype (sub_groupcodevalue_get 6 elist))
        (cond ((= etype (strcase "line"))
                 (if (or (= elinetype "Continuous") (= (sub_layerlinetype_get elist) "Continuous"))
               (progn (setq elist (sub_eline_modify elist)) (entmod elist) (princ "\n直线修改完毕"))))                       
        )
(setq k (1+ k)))
)

(defun sub_layerlinetype_get(elist);;;获取选择对象所在图层设定的线型
(cdr (assoc 6 (setq elist (entget (tblobjname "layer" (cdr (assoc 8 elist)))))))
)

(defun sub_eline_modify(elist)
(sub_groupcodevalue_subst 8 "0" elist)
)

(defun sub_groupcodevalue_get(gcode elist)
(cdr (assoc gcode elist))
)

(defun sub_groupcodevalue_subst(gcode gcodevalue elist);;;获得groupcode的值
(cdr (assoc gcode elist))
)

(defun sub_groupcodevalue_subst(gcode gcodevalue elist);;;替换groupcode的值
(subst (cons gcode gcodevalue) (assoc gcode elist) elist)
)