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

cdlh · 发表于 2004-10-20 15:59:59

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

ACAD 中输入单行文字只能在命令行中进行，我用的紫光输入法，在命令行中输入中文很不方便，那位大侠能帮忙写一个类似多行文字输入框的单行文字输入框吗？万分感谢！

xyp1964 · 发表于 2004-10-20 16:03:03

直接用mtext输入！

cdlh · 发表于 2004-10-20 17:35:49

最初由 xyp1964 发布
[B]直接用mtext输入！ [/B]

我大部分时候都是用的单行文字，快捷方便。易于编辑。只有在写大段的说明时才用到mtext，有哪位大虾能帮帮我吗？

aidraft · 发表于 2004-10-20 18:26:54

下载一个DOSLib吧
dos_getstring

--------------------------------------------------------------------------------

Windows Dialog box equivalent to LISP getstring function.

Syntax
(dos_getstring title prompt [default [length]])

Parameters
title
A string containing the dialog box title.

prompt
A string containing a prompt.

default
A default string value.

length
A maximum character length limit.

Returns
A string value, if successful.

nil on cancel or on error

Examples
Command: (dos_getstring "Text" "Enter some text")

"This is some text"
[php]
(defun c:txt(/ txtstr inspt txthgt)
  (vl-load-com)
  (if (setq txtstr (dos_getstring "单行文字" "输入文字："))
(progn
   (setq inspt (getpoint "\n插入点："))
   (setq txthgt (vla-get-height (vla-get-activeTextStyle
      (vla-get-activedocument (vlax-get-acad-object)))))
   (if (> txthgt 0)
   (command "text" inspt "" txtstr)
      (command "text" inspt "" "" txtstr))
   )
)
  (princ)
)[/php]

CCHH138 · 发表于 2004-10-20 21:01:47

不能用：
命令: txt
Error:no function definition: DOS_GETSTRING.

aidraft · 发表于 2004-10-20 21:03:39

http://download.mcneel.com/download.asp?id=doslib

cdlh · 发表于 2004-10-20 21:55:14

谢谢 aidraft ！程序可以用，不过要多加载一个 DOS_GETSTRING ，有没有纯 LISP 的程序呀？
另外，不能自定义字体高度不太方便。

andyhua5240 · 发表于 2004-10-21 08:19:47

我下载了，也加载了，但是不知道启动命令是什么呀？
能不能告诉我呀？
谢谢！

ll_j · 发表于 2004-10-21 08:25:56

最初由 cdlh 发布
[B]ACAD 中输入单行文字只能在命令行中进行，我用的紫光输入法，在命令行中输入中文很不方便，那位大侠能帮忙写一个类似多行文字输入框的单行文字输入框吗？万分感谢！ [/B]

单行文本的输入命令是Dtext，意思是动态文本，就是输入的字符串直接在屏幕上反应，在R12以前是与Text命令有区别的，如果使用对话框输入，就失去“动态”的意义了。其实使用紫光拼音时只要将鼠标拖到命令行就能输入汉字了，习惯了也没有什么不方便的。

cdlh · 发表于 2004-10-21 11:24:19

用对话框输入也是动态呀，方便好用就行，没有人愿意帮我了吗？？？？？

梦断江南 · 发表于 2004-10-21 11:34:08

是啊,如ll_j所说,动态的--实时反映还不好么?

aidraft · 发表于 2004-10-21 15:09:17

最初由 cdlh 发布
[B]谢谢 aidraft ！程序可以用，不过要多加载一个 DOS_GETSTRING ，有没有纯 LISP 的程序呀？
另外，不能自定义字体高度不太方便。 [/B]

I always have my DOSLIB loaded (in Startup Suite). And I am too lazy to write another DCL file.

If you want to set the textsize, just change
[B](command "text" inspt "" "" txtstr)[/B]
to
[B](command "text" inspt pause "" txtstr)) [/B]

urljit · 发表于 2004-11-6 16:33:32

楼主是不是想要一个界面如下的程序？

cdlh · 发表于 2004-11-7 02:56:19

最初由 urljit 发布
[B]楼主是不是想要一个界面如下的程序？ [/B]

urljit 兄有吗？给我一个吧。先谢了！

urljit · 发表于 2004-11-7 08:38:32

我的那个仅仅是个框，等我有时间弄好给你，先mail to你的邮件地址吧。
另外，居然你2：56还在线，不睡觉啊？

账号		自动登录	找回密码
密码			立即注册

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

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

浏览过的版块