wowan1314 发表于 2009-8-26 18:06:00

entmake后的图元资料不可以有变量吗?

<p>求助:</p><p>(defun gps-&gt;entmaklg ( / oldclayer) <br/>(if(null YH_DNscale) (setq YH_DNscale 100))<br/>(setq bili (/ YH_DNscale 100))<br/>(if (null (TBLSEARCH "block" "GPS_bz_lg"))<br/>(progn<br/>&nbsp; (setq oldCLAYER (getvar "CLAYER"))<br/>&nbsp; (setvar "CLAYER" "0")&nbsp; <br/>&nbsp; (entmake (list '(0 . "BLOCK")&nbsp; '(2 . "GPS_bz_lg") '(70 . 0) '(10 0 0 0)&nbsp; )&nbsp; )<br/>&nbsp; (entmake '((0 . "CIRCLE")&nbsp; (10 0 0 0)&nbsp;&nbsp; (40 . 65)&nbsp; ))&nbsp; <br/>&nbsp; (entmake '((0 . "endblk")))<br/>&nbsp; (setvar "CLAYER" oldCLAYER)<br/>&nbsp; )<br/>)<br/>)</p><p>将半径定义为(entmake '((0 . "CIRCLE")&nbsp; (10 0 0 0)&nbsp;&nbsp; (40 . (* BILI 65))&nbsp; ))&nbsp; <br/>为何就做不出来了呢?</p><p>或者是还有什么方法可以将半径65与BILI关联呢?</p><p>我想在此(command "-insert" "GPS_bz_lg" PAUSE&nbsp;""&nbsp;"" "")命令之前把半径改好,这样插入时候就可以预览到块的大小。</p>

龙龙仔 发表于 2009-8-27 08:17:00

(setq BILI 20)<br/>(entmake (list '(0 . "CIRCLE")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; '(10 0 0 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (cons 40 (* BILI 65))<br/>&nbsp; )<br/>)

wowan1314 发表于 2009-8-27 11:47:00

<p>顶,果然好用,我自己搞了半天都没成功(我菜鸟,呵呵)。</p><p>原来放到LIST里面就可以啦。</p><p>谢谢 龙龙仔,十分感谢啊!</p>
页: [1]
查看完整版本: entmake后的图元资料不可以有变量吗?