【已解决】command 下的dtext怎么输入文字啊？

taocitc

command 下的dtext怎么输入文字啊？
刚开始学习lisp，想写个标高
(defun c:bg()
  (setq p0 (getpoint "\n标高插入点:"))
  (setq th "标高")
  (setq p1 (list (+ (car p0) 80) (+ (cadr p0) 80)))
  (setq p2 (list (- (car p1) 160) (cadr p1)))
  (setq p3 (list (- (car p1) 500) (cadr p1)))
  (command "pline" p2 "w" 0 0  p0 p1 p3 "")
  (command ".dtext" "j" "bc" p3 100 0  th)  ;不能正常运行 ,得不到标高这两个字
)
另外有时候会出现不是我想要的图形怎么回事？


原来用text就可以，不用dtext了……

Andyhon

2. 
   
3. (defun c:bg()
   
4.   (setq p0 (getpoint "\n标高插入点:"))
   
5.   (setq th "标高")
   
6.   (setq p1 (list (+ (car p0) 80) (+ (cadr p0) 80)))
   
7.   (setq p2 (list (- (car p1) 160) (cadr p1)))
   
8.   (setq p3 (list (- (car p1) 500) (cadr p1)))
   
9.   (command "pline" p2 "w" 0 0  p0 p1 p3 "")
   
10.   (command "text" "bc" p3 100 0  th)  ;不能正常运行 ,得不到标高这两个字
    
11. )
    

<br /> (defun c:bg()<br />   (setq p0 (getpoint "\n标高插入点:"))<br />   (setq th "标高")<br />   (setq p1 (list (+ (car p0) 80) (+ (cadr p0) 80)))<br />   (setq p2 (list (- (car p1) 160) (cadr p1))) <br />   (setq p3 (list (- (car p1) 500) (cadr p1)))<br />   (command "pline" p2 "w" 0 0  p0 p1 p3 "")<br />   (command "text" "bc" p3 100 0  th)  ;不能正常运行 ,得不到标高这两个字<br /> )<br />

..出现不是我想要的图形...
check osmode ....

taocitc

回复 Andyhon 的帖子

谢谢，设置好osmode可以得到我想要的图形了
dtext换成text就可以了……