[求助]：至f5612140 (有关文字程序)

阿土

至f5612140兄:
      您原来编的这文字程序很是适用,现请教如将文字沿插入点同时旋转90度,该怎样做?另外能否在插入点有光标显示,在此先谢了.  
(defun c:txt()
  (setq pt (getpoint "\nSpecify Start point"))
  
  (while pt
     (setq ttt (getstring "\nEnter text:"))
     (setq pt (mapcar '+ pt '(3 0)))
     (command "text" "ml" pt 3 "" ttt )
     (setq pt (getpoint "\nSpecify Start point:"))
  )
)

f5612140

光標?不解含意,畫十字嗎?

(defun c:txt()
   (while (setq pt (getpoint "\nSpecify Start point"))
     (setq ttt (getstring "\nEnter text:"))
     (command "line" (mapcar '- pt '(1 0)) (mapcar '+ pt '(1 0)) "")
     (command "line" (mapcar '- pt '(0 1)) (mapcar '+ pt '(0 1)) "")
     (setq pt (mapcar '+ pt '(3 0)))
     (command "text" "ml" pt 3 90 ttt )
   )
(prin1)
)

阿土

旋转可以了,十分感谢,我所指的光标就是提示文字准备输入的位置,象编辑单行文字后面的那个.

能否在插入时,在插入点先做一条线,定义它的颜色,然后完成文字输入时再删掉它?[/COLOR]

f5612140

(defun c:txt()
     (setq pt (getpoint "\nSpecify Start point"))
     (while pt
       (setq pt1 (mapcar '+ pt '(3 0)))
       (setq ss nil)
       (setq ss (ssadd))
       (command "line" (mapcar '- pt '(1 0)) (mapcar '+ pt '(1 0)) "")
       (setq ss (ssadd (entlast) ss))
       (command "line" (mapcar '- pt '(0 1)) (mapcar '+ pt '(0 1)) "")
       (setq ss1 (ssadd (entlast) ss))
       (command "chprop" ss1 "" "c" 1 "")
       (command "dtext" "ml" pt1 3 90)
       (command "erase" ss "")
       (setq pt (getpoint "\nSpecify Start point"))
     )
     
(prin1)
)

eachy

2. 
   
3. (defun c:txt (/ pt pt1 ss)
   
4.   (setq        oldc  (getvar "cecolor")
   
5.         oldos (getvar "osmode")
   
6.   )
   
7.   (setvar "osmode" 0)
   
8.   (while (setq pt (getpoint "\nSpecify Start point"))
   
9.     (setq pt1 (mapcar '+ pt '(3 0)))
   
10.     (setq ss nil
    
11.           ss (ssadd)
    
12.     )
    
13.     (setvar "cecolor" "1");_ set currect color
    
14.     (command "line"
    
15.              (mapcar '- pt '(1 0))
    
16.              (mapcar '+ pt '(1 0))
    
17.              ""
    
18.     )
    
19.     (ssadd (entlast) ss)
    
20.     (command "line"
    
21.              (mapcar '- pt '(0 1))
    
22.              (mapcar '+ pt '(0 1))
    
23.              ""
    
24.     )
    
25.     (ssadd (entlast) ss);_ no setq
    
26.     ;;(command "chprop" ss1 "" "c" 1 "")
    
27.     (setvar "cecolor" oldc);_ restore color
    
28.     (command "dtext" "ml" pt1 3 90)
    
29.     (command "erase" ss "")
    
30.   )
    
31.   (setvar "osmode" oldos)
    
32.   (princ)
    
33. )

<br /> (defun c:txt (/ pt pt1 ss)<br />   (setq        oldc  (getvar "cecolor")<br />         oldos (getvar "osmode")<br />   )<br />   (setvar "osmode" 0)<br />   (while (setq pt (getpoint "\nSpecify Start point"))<br />     (setq pt1 (mapcar '+ pt '(3 0)))<br />     (setq ss nil<br />           ss (ssadd)<br />     )<br />     (setvar "cecolor" "1");_ set currect color<br />     (command "line"<br />              (mapcar '- pt '(1 0))<br />              (mapcar '+ pt '(1 0))<br />              ""<br />     )<br />     (ssadd (entlast) ss)<br />     (command "line"<br />              (mapcar '- pt '(0 1))<br />              (mapcar '+ pt '(0 1))<br />              ""<br />     )<br />     (ssadd (entlast) ss);_ no setq <br />     ;;(command "chprop" ss1 "" "c" 1 "")<br />     (setvar "cecolor" oldc);_ restore color<br />     (command "dtext" "ml" pt1 3 90)<br />     (command "erase" ss "")<br />   )<br />   (setvar "osmode" oldos)<br />   (princ)<br /> )

jrqjdn

有效果吗？那我也去试试，呵呵 谢谢楼上的了。

阿土

谢谢f5612140兄弟,也谢谢eachy斑竹,很好用,真谢谢了.可是还是有点疑问,为改为"text"命令后面的光标就没有了呢?或者如果用"dtext"命令又如何改变下一行文字的间距呢?好像"dtext"默认的间距是4mm.如果能有下图的那个光标就好了.

f5612140

1.早期版本TEXT和DTEXT是不一樣的,現在的版本輸入-TEXT和TEXT也是不一樣的
2.間距和字的大小有關
3.TSPACEFAC 控制作為一個文字高度係數來測量的多行文字間距。有效值範圍為 0.25 到 4.0。

阿土

谢谢f5612140兄

xuwenzhong

看过了，明白了一些东西！

ss1025

看了楼上的程序，有些地方不太明白。
1、字高就写3高，也不管图纸比例？
2、这个程序就是写文字，和dtext不是一样的吗？
不过，画光标这招倒是不错，值得一学。