help me!!!!!!!!!!!

kingerst

(DEFUN C:2C()
(SETQ CEN (LIST 200 200) RAD 100)
(COMMAND "CIRCLE" CEN RAD "c")
(COMMAND "CIRCLE" (list 400 200) RAD "c"))

两个圆，其中一个圆是红色填充。有办法吗？

phoenixdjq

(COMMAND "CIRCLE" CEN RAD "c")  红色部分是什么意思，应该去掉

另外你填充可以用

(setq a (entlast))

(command "-hatch" "s" a "" "")

细节的自己研究吧

kingerst

不是很明白，请高手再指点，我只是想这两圆，第一个为红色填充，或第二个为红色填充。

kingerst

已经可以选择到我想要的图型。请高手告诉我怎么让它红色填充？

(DEFUN C:2C()
(COMMAND "PLINE" (LIST 200 100) (LIST 200 300) "c")
(COMMAND "PLINE" (LIST 200 200) (LIST 300 200) "c")
(SETQ CEN (LIST 400 200) RAD 100)
(COMMAND "CIRCLE" CEN RAD)
(COMMAND "CIRCLE" (list 600 200) RAD)
(setq e1 (entnext));        设定 E2 为在 E1 后那个图元的名称
(setq e2 (entnext e1));
(setq e3 (entnext e2));   设定 E1 为图形中第一个图元的名称
(COMMAND "-hatch" "s" e3))

caoyin

(setq col (getvar "cecolor"))

(setvar "cecolor" "1")

(COMMAND "-hatch" "s" e3))

(setvar "cecolor" col)