[求助]：关于ENTMAKE

diandianhe

小弟想用ENTMAKE添加个字,需要确定坐标.用(10 a )却不行(a为通过鼠标获得的一点)具体:
(setq a(getpoint "\n请输入插入点"))
(entmake ((0 . "text")
              (8 . "dote")
              (10 a)
             )
请教教我这个地方怎么指定插入点?谢谢了

HuaiYu

(setq a(getpoint "\n请输入插入点"))
(if a
  (progn
    (entmake (list '(0 . "TEXT") (cons 10 a) '(1 . "Test text") (cons 40 2.0)))
  )
)

xyp1964

2. [FONT=courier new]
   
3. (if (setq a (getpoint "\n请输入插入点: "))
   
4.   (entmake (list (cons 0 "TEXT")
   
5.                  (cons 8 "dote")
   
6.                  (cons 10 a)
   
7.                  (cons 1 "TEST")
   
8.                  (cons 7 "宋体")
   
9.                  (cons 40 300.0)
   
10.            )
    
11.   )
    
12. )[/FONT]

[FONT=courier new]<br /> (if (setq a (getpoint "\n请输入插入点: "))<br />   (entmake (list (cons 0 "TEXT")<br />                  (cons 8 "dote")<br />                  (cons 10 a)<br />                  (cons 1 "TEST")<br />                  (cons 7 "宋体")<br />                  (cons 40 300.0)<br />            )<br />   )<br /> )[/FONT]

diandianhe

弄出来了,谢谢两位了.