[求助]：高手请帮忙!!!一个全新概念的LISP!!!

shq197528

本人想请高手帮我做一个颜色归层的LISP程序!大概的意思是:选择全有的物体,就会自动生成与颜色相对应的图层,然后所选的物体也相对应的归回颜色的图层!!!

guohui.zhai

这样的LISP到处都有,自己下一个吧,就在这个论谈就有,查查!

zxq0220

贴一个。
[php]
(DEFUN C:C2L (/ OLDL I SS LN)
(SETVAR "CMDECHO" 0)
(SETQ OLDL (GETVAR "CLAYER"))
(COMMAND ".UNDO" "BE")
(SETQ I 1)
(REPEAT 254
  (IF (SETQ SS (SSGET "X" (LIST (CONS 62 I)))) (PROGN
   (SETQ LN (ITOA I))
   (IF (NOT (TBLSEARCH "LAYER" LN T))
    (COMMAND "LAYER" "M" LN "C" I "" "")
   )
   (COMMAND "CHPROP" SS "" "LA" LN "C" "BYLAYER" "")
  ))
  (SETQ I (1+ I))
)
(COMMAND ".UNDO" "E")
(SETVAR "CLAYER" OLDL)
(SETVAR "CMDECHO" 1)
(PRINC)
)
(PRINC)
[/php]

狂刀

如果是颜色随层　(SETQ SS (SSGET "X" (LIST (CONS 62 I)　这个判断就没有意义

蔡钰林

以前做的，不知还有用没有？
;;====================================================================
;;程序功能：设置图元颜色为随层方式
;;激活方式：T1
;;其它说明：无
;;====================================================================
(defun C:T1 ( / SS IN EN)
(setvar "cmdecho" 0)
(princ "\n★设置对象颜色为随层★")
(setq SS nil)
(setq SS (ssget))
(setq IN 0)
(if (/= SS nil)
(progn
(princ "\n正在处理图形数据,请稍候...")
(repeat (sslength SS)
(setq EN (ssname SS IN))
(command ".chprop" EN "" "la" "" "c" "bylayer" "")
(setq IN (1+ IN))
);end (repeat (sslength SS)
);end progn
);end if (if (/= SS nil)
(princ "\nOK,已经将所有颜色转换为随层颜色.")
(princ)
);end (defun C:T1 ()
;;====================================================================

zxq0220

最初由 狂刀 发布
[B]如果是颜色随层　(SETQ SS (SSGET "X" (LIST (CONS 62 I)　这个判断就没有意义 [/B]

请仔细看看一楼的要求。

shq197528

多谢三楼的兄弟!!!!!!本人送10个币给你!

shl1980912

3 楼的程序还真好用，谢谢

zxdvip

这好像与CAD的图层概念不太附.

zxmmelly

最初由 shq197528 发布
[B]本人想请高手帮我做一个颜色归层的LISP程序!大概的意思是:选择全有的物体,就会自动生成与颜色相对应的图层,然后所选的物体也相对应的归回颜色的图层!!! [/B]

还要考虑你选择的物体中的图块

WHGF

这样的要求不是“一个全新概念的LISP”

雨箭风刀

最初由 zxq0220 发布
[B]
请仔细看看一楼的要求。 [/B]

请问，如果颜色随层，而层的颜色又各不相同，实体会不会按看到的颜色转化到相应层？