怎样变层色？？？？急！

petertian · 发表于 2003-6-20 09:43:00

各位大虾及斑竹，我要用LISP编写一个程序，用于控制layer表中层的颜色，就是如果我总共有20层，1----10层用200号色，11---15层用156号色，16---20层用10号色，不想用手打开layer表改，用程序怎么改？？？急！！！

王咣生 · 发表于 2003-6-20 10:34:00

;;
;; Get list of entire layer name.
;;
(defun do_layer (/ start lyr layer_list)
(setq start 1)
(while (setq lyr (tblnext "LAYER" start))
(setq start nil)
(setq layer_list (append layer_list (list (cdr (assoc 2 lyr))) ))
)
layer_list
)
(defun c:change_lac ( / all_layer_list n la)
  (setq all_layer_list (do_layer))
  (setq n 0)
  (while (setq la (nth n all_layer_list))
;
(cond
   ((< n 10)(command "-layer" "c" "200" la ""))
   ((< n 15)(command "-layer" "c" "156" la ""))
   ((< n 20)(command "-layer" "c" "10" la ""))
);_cond
(setq n (+ n 1))
  );_while
)
[此贴子已经被作者于2003-6-20 10:34:27编辑过]

meflying · 发表于 2003-6-20 10:27:00

;lname——图层名，lcolor——图层颜色，如果没有此图层，还会建立新图层，自己编个程序，循环一下使用此函数设置图层颜色就可以了
(defun setlayer_color(lname lcolor / layer layers adoc)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq layers (vla-get-layers adoc))
  (setq layer (vl-catch-all-apply 'vla-item (list layers lname)))
  (if (vl-catch-all-error-p layer)
   (setq layer (vla-add layers lname))
  )
  (if lin
(vla-put-color layer lcolor)
  )
  (princ)
)

petertian · 发表于 2003-6-20 14:23:00

谢谢楼上！有没有办法得到CPUID？？

怎样变层色？？？？急！

发表回复

精选推荐