[求助]：学习 entmake 问题

qiyu0588

好多人建议用entmake
而不用command

遇到了问题：
下面是用entmake画园的lisp：

(defun c:tt()
       (setq p1 (getpoint "\npoint:"))
       (entmake (list
                  '(0 . "circle")
                  '(cons 10 p1)
                  '(40 . 25)
                  
                  )
       )
)

运行后显示：错误: DXF 组不正确: (CONS 10 P1)
为什么呢？

taner

最初由 qiyu0588 发布
[B]好多人建议用entmake
而不用command

遇到了问题：
下面是用entmake画园的lisp：

(defun c:tt()
       (setq p1 (getpoint "\npoint:"))
       (entmake (list
                  '(0 . "circle")
    ... [/B]

2. 
   
3.   [FONT=courier new]
   
4. (defun c:tt ()
   
5.   (setq p1 (getpoint "\npoint:"))
   
6.   (entmake (list
   
7.              '(0 . "circle")
   
8.              (cons 10 p1)
   
9.              '(40 . 25)
   
10. 
    
11.            )
    
12.   )
    
13. )
    
14. 
    
15.   [/FONT]
    

<br />   [FONT=courier new]<br /> (defun c:tt ()<br />   (setq p1 (getpoint "\npoint:"))<br />   (entmake (list<br />              '(0 . "circle")<br />              (cons 10 p1)<br />              '(40 . 25)<br /> <br />            )<br />   )<br /> )<br /> <br />   [/FONT]<br />

qiyu0588

明白了 谢谢了！
我再试试其他对象