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

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

有没有选择相同颜色的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

好象在基础应用里有问过, 建议不要发重复的贴呀
;亮顯指定顏色的實體.
;2004-02-03
(defun c:testa(/ coa co ssco i one )
   (setq coa (getvar "CECOLOR"))
   (initdia)
   (command ".color")(setvar "cmdecho" 0)
   (setq co (getvar "CECOLOR"))
   (SETQ SSCO(SSGET "X" (LIST (CONS 62 (atoi co)))))
   (setvar "CECOLOR" coa)
   (setq i 0)
   (repeat (sslength ssco)
   (setq one (ssname ssco i))
   (redraw one 3)
   (setq i (1+ i)))
   (setvar "cmdecho" 1) (princ))

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

发表回复

精选推荐