kingerst 发表于 2009-6-18 11:19:00

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

<p>(DEFUN C:2C() <br/>(SETQ CEN (LIST 200 200) RAD 100) <br/>(COMMAND "CIRCLE" CEN RAD "c") <br/>(COMMAND "CIRCLE" (list 400 200) RAD "c")) </p><p>两个圆，其中一个圆是红色填充。有办法吗？</p>

phoenixdjq 发表于 2009-6-18 12:05:00

<p>(COMMAND "CIRCLE" CEN RAD <font color="#ff0066">"c"</font>)&nbsp; 红色部分是什么意思，应该去掉</p><p></p><p>另外你填充可以用</p><p>(setq a (entlast))</p><p>(command "-hatch" "s" a "" "")</p><p></p><p>细节的自己研究吧</p>

kingerst 发表于 2009-6-18 14:22:00

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

kingerst 发表于 2009-6-18 16:39:00

<p>已经可以选择到我想要的图型。请高手告诉我怎么让它红色填充？</p><p>(DEFUN C:2C()<br/>(COMMAND "PLINE" (LIST 200 100) (LIST 200 300) "c")<br/>(COMMAND "PLINE" (LIST 200 200) (LIST 300 200) "c")<br/>(SETQ CEN (LIST 400 200) RAD 100)<br/>(COMMAND "CIRCLE" CEN RAD) <br/>(COMMAND "CIRCLE" (list 600 200) RAD) <br/>(setq e1 (entnext));&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 设定 E2 为在 E1 后那个图元的名称<br/>(setq e2 (entnext e1)); <br/>(setq e3 (entnext e2));&nbsp;&nbsp; 设定 E1 为图形中第一个图元的名称<br/>(COMMAND "-hatch" "s" e3))</p><p></p>

caoyin 发表于 2009-6-20 23:19:00

<p>(setq col (getvar "cecolor"))</p><p>(setvar "cecolor" "1")</p><p>(COMMAND "-hatch" "s" e3))</p><p>(setvar "cecolor" col)</p>
页: [1]
查看完整版本: help me!!!!!!!!!!!