[求助]：求大侠帮忙写一个单行文字输入框 LSP

wkai

2. 
   
3. (defun c:tt  (/ fn index txtstr inspt txthgt)
   
4.   (vl-load-com)
   
5.   (setq fn (open "tmp.dcl" "w"))
   
6.   (write-line
   
7.     "txt:dialog{label="请输入";
   
8. :edit_box{label="文字内容";key="content";width=30;}
   
9. ok_only;
   
10. }"  fn)
    
11.   (close fn)
    
12.   (setq index (load_dialog "tmp.dcl"))
    
13.   (new_dialog "txt" index)
    
14.   (action_tile "content" "(setq txtstr $value)")
    
15.   (start_dialog)
    
16. 
    
17.   (if txtstr
    
18.     (progn
    
19.       (setq inspt (getpoint "\n插入点："))
    
20.       (setq txthgt (vla-get-height
    
21.                      (vla-get-activeTextStyle
    
22.                        (vla-get-activedocument (vlax-get-acad-object)))))
    
23.       (if (> txthgt 0)
    
24.         (command "text" inspt "" txtstr)
    
25.         (command "text" inspt "" "" txtstr))
    
26.       )
    
27.     )
    
28.   (princ)
    
29.   )

<br /> (defun c:tt  (/ fn index txtstr inspt txthgt)<br />   (vl-load-com)<br />   (setq fn (open "tmp.dcl" "w"))<br />   (write-line<br />     "txt:dialog{label="请输入";<br /> :edit_box{label="文字内容";key="content";width=30;}<br /> ok_only;<br /> }"  fn)<br />   (close fn)<br />   (setq index (load_dialog "tmp.dcl"))<br />   (new_dialog "txt" index)<br />   (action_tile "content" "(setq txtstr $value)")<br />   (start_dialog)<br /> <br />   (if txtstr<br />     (progn<br />       (setq inspt (getpoint "\n插入点："))<br />       (setq txthgt (vla-get-height<br />                      (vla-get-activeTextStyle<br />                        (vla-get-activedocument (vlax-get-acad-object)))))<br />       (if (> txthgt 0)<br />         (command "text" inspt "" txtstr)<br />         (command "text" inspt "" "" txtstr))<br />       )<br />     )<br />   (princ)<br />   )

Free-Lancer

txthgt -> (getvar "textsize")

urljit

楼主想要能顺手修改字高的功能

它山之石

　　好多二次开发的软件中都有类似输入文字的小程序。找个学学就是了。另外如果你只是因为输入法的原因来做这个程序似乎没什么必要。除非有另外特殊需要。

urljit

我做好了，看看？多提宝贵意见：）
http://www.xdcad.net/forum/showthread.php?s=&threadid=287504

urljit

还是转贴网站功能好用，看看：
[iframe h=600]http://www.xdcad.net/forum/showthread.php?s=&threadid=287504[/iframe]

武陵山人

看上去很不错呀！什么时候传上来？可以先给我一个试试吗？

qjcpj

这是我2002年编写的一个单行文本输入器模块，能定义字高及选择插入点；程序编得不好，让大家见笑了！

urljit

最初由 武陵山人 发布
[B]看上去很不错呀！什么时候传上来？可以先给我一个试试吗？ [/B]

我已经上传，还需要改进，等等吧，我实在太忙

bluesky1000

qjcpj的程序现在看起来的确不怎么完善，但也谢谢你了。
特别感谢urljit的热心和他的优秀的程序。