【求助】图层向指定图层转换（帮忙看看错在哪里？）

qcw911 · 发表于 2011-3-24 08:20:39

本帖最后由 qcw911 于 2011-3-24 18:09 编辑

大家帮忙看看下面代码为什么有错误呢？
执行不了
如果颜色等4 的话执行do_col4
如果颜色等5的话执行do_col5

(defun c:cl(/ tos_layer layernum ent_se)
;感谢露水2提供
(setq la '("TOS_S1")
   ent_se (ssget (list  (cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) la)))))
  )
            (setq num1(1- (sslength ent_se)))
            (setq n 0)
            (while (<= n num1)
               (setq sevf (ssname ent_se n))
               (setq sevd (entget sevf))
               (setq entype (cdr (assoc 62 sevd)))

               (cond ((= entype 4) (do_col4))
                           ((= entype 5) (do_col5))
               )
               (setq n(1+ n))
               )
)
(defun do_col4()
(command "chprop" ent_se "" "LA" "TOS_K1" "LT" "continuous" "C" "BYLAYER" "" )
)
(defun do_col5()
(command "chprop" ent_se "" "LA" "TOS_S1" "LT" "continuous" "C" "BYLAYER" "" )
)

qcw911 · 发表于 2011-3-24 08:33:30

本帖最后由 qcw911 于 2011-3-24 08:34 编辑

这样改也不行啊
(defun c:cl(/ tos_layer layernum ent_se)

(setq la '("TOS_S1")
   ent_se (ssget (list  (cons 8 (apply 'strcat (mapcar '(lambda (x) (strcat x ",")) la)))))
  )
;******************************************************
            (setq num1(1- (sslength ent_se)))
            (setq n 0)
            (while (<= n num1)
               (setq sevf (ssname ent_se n))
               (setq sevd (entget sevf))
               (setq entype (cdr (assoc 62 sevd)))

               (IF (= entype 4)

                     (do_col4)


                     (do_col5)

               )
            (setq n(1+ n))
               )

)
(defun do_col4()
(command "chprop" ent_se "" "LA" "TOS_K1" "LT" "continuous" "C" "BYLAYER" "" )
)
(defun do_col5()
(command "chprop" ent_se "" "LA" "TOS_S1" "LT" "continuous" "C" "BYLAYER" "" )
)

luntan666 · 发表于 2011-3-24 16:24:03

看不懂，顶下.....

crazylsp · 发表于 2011-3-24 21:07:19

本帖最后由 crazylsp 于 2011-3-24 21:11 编辑

先把5字符化，改成"5"就OK了

qcw911 · 发表于 2011-3-25 08:36:25

crazylsp 发表于 2011-3-24 21:07
先把5字符化，改成"5"就OK了

字符画好像不行啊

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

[基础] 【求助】图层向指定图层转换（帮忙看看错在哪里？）