entmake创建图元出错

amwkto2011

1. (defun c:tt ()
   
2.   (setq gets (getstring "\n请输入单行文字内容<A>:"))
   
3.   (if (= gets "")
   
4.     (setq gets "A")
   
5.   )
   
6.   (while (setq getp (getpoint "\n指定文字放置点:"))
   
7.        (entmake (list '(0 . "TEXT")
   
8.        (cons 1 gets)
   
9.        (cons 8 et);为什么加入图层就会出错,不加入图层又可以成功
   
10.        (cons 10 getp)
    
11.        (cons 40 5)
    
12.       
    
13.        )
    
14.     )
    
15.   )
    
16. )

(defun c:tt ()<br />   (setq gets (getstring "\n请输入单行文字内容<A>:"))<br />   (if (= gets "")<br />     (setq gets "A")<br />   )<br />   (while (setq getp (getpoint "\n指定文字放置点:"))<br />        (entmake (list '(0 . "TEXT")<br />        (cons 1 gets)<br />        (cons 8 et);为什么加入图层就会出错,不加入图层又可以成功<br />        (cons 10 getp)<br />        (cons 40 5)<br />        <br />        )<br />     )<br />   )<br /> )

entmake创建图元，组码有先后顺序吗，顺序是不是按组码数值从小到大来的？

/db_自贡黄明儒_

先判断图层是否存在

amwkto2011

/db_自贡黄明儒_ 发表于 2014-10-22 15:05
先判断图层是否存在

明白了，我出错的地方了
格式错误了
（8 "et"）应该要这样才对
（8 et）没双引号

newer

amwkto2011 发表于 2014-10-22 15:10
明白了，我出错的地方了
格式错误了
（8 "et"）应该要这样才对

et 要是变量的话，
你用 (cons 8 et) 。

Free-Lancer

只要是符合layer命名规则的string即可，没有的图层会新建

amwkto2011

amwkto2011 发表于 2014-10-22 15:10
明白了，我出错的地方了
格式错误了
（8 "et"）应该要这样才对

谢谢帮我解答

amwkto2011

Free-Lancer 发表于 2014-10-22 20:05
只要是符合layer命名规则的string即可，没有的图层会新建

谢谢帮我解答

amwkto2011

newer 发表于 2014-10-22 19:34
et 要是变量的话，
你用 (cons 8 et) 。

谢谢帮我解答

xvjiex

感谢楼主分享entmake创建图元出错！