cadtiger 发表于 2004-2-2 18:08:00

有没有选择相同颜色的lisp程序？

有没有选择相同颜色的lisp程序？

hi71400 发表于 2004-2-2 20:46:00

晓东CAD上有。

meflying 发表于 2004-2-3 08:39:00

(ssget "x" '((62 . 23)));23就是颜色值

BDYCAD 发表于 2004-2-3 09:11:00

好象在基础应用里有问过, 建议不要发重复的贴呀


;亮顯指定顏色的實體.<BR>;2004-02-03<BR>(defun c:testa(/ coa co ssco i one )<BR>       (setq coa (getvar "CECOLOR"))<BR>       (initdia)<BR>       (command ".color")(setvar "cmdecho" 0)<BR>       (setq co (getvar "CECOLOR"))<BR>       (SETQ SSCO(SSGET "X" (LIST (CONS 62 (atoi co)))))<BR>       (setvar "CECOLOR" coa)<BR>       (setq i 0)<BR>       (repeat (sslength ssco)<BR>                       (setq one (ssname ssco i))<BR>                       (redraw one 3)<BR>                       (setq i (1+ i)))<BR>       (setvar "cmdecho" 1) (princ))
页: [1]
查看完整版本: 有没有选择相同颜色的lisp程序？