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

wowan1314

求助:

(defun gps->entmaklg ( / oldclayer)
(if(null YH_DNscale) (setq YH_DNscale 100))
(setq bili (/ YH_DNscale 100))
(if (null (TBLSEARCH "block" "GPS_bz_lg"))
(progn
  (setq oldCLAYER (getvar "CLAYER"))
  (setvar "CLAYER" "0") 
  (entmake (list '(0 . "BLOCK")  '(2 . "GPS_bz_lg") '(70 . 0) '(10 0 0 0)  )  )
  (entmake '((0 . "CIRCLE")  (10 0 0 0)   (40 . 65)  )) 
  (entmake '((0 . "endblk")))
  (setvar "CLAYER" oldCLAYER)
  )
)
)

将半径定义为(entmake '((0 . "CIRCLE")  (10 0 0 0)   (40 . (* BILI 65))  )) 
为何就做不出来了呢？

或者是还有什么方法可以将半径65与BILI关联呢？

我想在此(command "-insert" "GPS_bz_lg" PAUSE "" "" "")命令之前把半径改好，这样插入时候就可以预览到块的大小。

龙龙仔

(setq BILI 20)
(entmake (list '(0 . "CIRCLE")
        '(10 0 0 0)
        (cons 40 (* BILI 65))
  )
)

wowan1314

顶，果然好用，我自己搞了半天都没成功（我菜鸟，呵呵）。

原来放到LIST里面就可以啦。

谢谢 龙龙仔，十分感谢啊！