清山小石 发表于 2017-8-7 12:32:45

求助：归层问题

功能描述：判断后图中是否已有所需图层若无该图层则新建图层 （已存在则不新建） 指定到图元、 并将该图层置为当前图层
问题描述：如果图中没有所需图层、指定当前层、及图层指定到图元都有问题。
(defun cmdload (cmdlist / lst)
(setq    lst (mapcar '(lambda (x)
                                             (strcat "(defun c:"(car x)"(/)(xjtc (list \""(car x) "\"\""(cadr x) "\""(itoa (caddr x)) "\""(cadddr x)"\""(itoa (nth 4 x))"\""(itoa (nth 5 x))"\"))(princ))")
                                       )
                            cmdlist
                        )
)
(eval (read (strcat "(progn" (apply 'strcat lst) ")")))
)
(defun xjtc (lst / ss la co lt lw S)
(if (setq ss (ssget))
    (progn
      (setq la (nth 1 lst)
                co (nth 2 lst)
                lt (nth 3 lst)
                lw (nth 4 lst)
                S (nth 5 lst)
      )
      (if (= (tblsearch "layer" la) nil)
                (command "layer" "n" la "c" co la "l" lt la "lw" lw la "S" S LA "")
      )
      (command "chprop" ss "" "c" "bylayer" "la" la "S" S "")
            (setvar "clayer" la)
    )
)
)
(cmdload'( ("1" "图层1" 1 "Continuous" 0 30)
                         ("2" "图层2" 2 "ACAD_ISO03W100" 0 10)
                         ("3" "图层3" 3 "ACAD_ISO03W100" 0 10)
                     ))


清山小石 发表于 2017-8-7 15:09:08

问题已解决:lol
页: [1]
查看完整版本: 求助：归层问题