[求助]：在指定位置写出要求的文字

szx025

如何在LISP中实现如下功能:
给出一个变量值,在指定位置写出要求的文字.比如,给出一数值35,
在LISP程序画出的直线上写出TB04-35

zml84

需求不清，
所言直线是事先绘制完成的，还是要在lisp程序中绘制？

szx025

所言直线是在lisp程序中绘制

Dream.Fei

把你的要求(用图)和自己写的部分程序贴出来.

szx025

我只想在LISP中实现这样的功能.执行LISP程序,CAD命令行出现等待输参数命令,输入某一数值后,在LISP程序画出的直线上自动写出与输入参数值有关的文字

Dream.Fei

第一、等待输入参数是很容易实现： getstring getreal getint 都可以。
第二、写出文字
   文字插放点与直线关系？
   文字大小？
   字体？
如果说第二个都知道，直接在绘完直线后 （command "text" ）不就可以解决了吗？

szx025

楼上的兄弟,我想得到的结果是让写出的文字与输入的参数有关联,比如输入的参数是35,写出的文字必须是`TB04-35,输入的参数是45,文字就是`TB04-45,

Dream.Fei

..... 这个很容易啊.

2. 
   
3. (setq str (getstring "\n请输入文字[35/45]:"))'只是示例,这里改成你想要的数据就行,只需要35或是45.
   
4. (setq str (strcat "TB04-" str))
   
5. (command "text" 插入点 字高 比例 str)
   

<br /> (setq str (getstring "\n请输入文字[35/45]:"))'只是示例,这里改成你想要的数据就行,只需要35或是45.<br /> (setq str (strcat "TB04-" str))<br /> (command "text" 插入点 字高 比例 str)<br />

zml84

[PHP]
(defun c:t()
(if (setq pt1 getpoint "\n直线第一点:")
    (if (setq pt2 getpoint "\n直线第二点:")
        (progn
        (setq str (getstring "\n请输入文字[35/45]:"))
        (setq str (strcat "TB04-" str))
        (command "_line" pt1 pt2 "")
        (command "text" pt1 字高 比例 str)
        )
    )
)
(princ)
)
[/PHP]

szx025

语法错误

zml84

我这里没有ACAD，所以没法测试，勿怪。
将字高和比例内置进去以后，请再试。
[PHP]
(defun C:TT()
(if (setq pt1 getpoint "\n直线第一点:")
    (if (setq pt2 getpoint "\n直线第二点:")
        (progn
            (setq str (getstring "\n请输入文字[35/45]:"))
            (setq str (strcat "TB04-" str))
            (command "_line" pt1 pt2 "")
            (command "text" pt1 2.5 1.0 str)
        )
    )
)
(princ)
)
[/PHP]

szx025

还是语法错误

carrot1983

搞不懂，很难吗？
[php]
(defun C:Test()
        (setq pt1 (getpoint "\n请输入文字位置:"))
        (setq str (getstring "\n请输入文字[35/45]:"))
        (setq str (strcat "%%UTB04-" str))
        (command "text" pt1 2.5 0 str)
(princ)
)
[/php]

zxq0220

最初由 szx025 发布
[B]还是语法错误 [/B]

[php]
(defun c:test ()
(while (setq pt1 (getpoint "\n直线第一点:"))
(if (setq pt2 (getpoint "\n直线第二点:")) (progn
  (setq str (getstring "\n请输入文字[35/45]:"))
  (setq str (strcat "TB04-" str))
  (command "_line" pt1 pt2 "")
  (command "text" pt1 "" "" str)
))
)
(princ)
)
[/php]

xyz518mm

试试看这是不是你要的
[PHP]
(DEFUN C:TEST()
(SETVAR "OSMODE" 0)
(SETQ PT1 (GETPOINT  "\n 请输入直线起点:"))
(SETQ PT2 (GETPOINT PT1 "\n 请输入直线终点:"))
(SETQ STR (GETSTRING "\n 请输入显示文字[如:35/45 =>`UTB04-35/`UTB04-45]:"))
(IF (= STR "" )
(SETQ STR (STRCAT "`UTB04-" (ITOA (FIX (DISTANCE PT1 PT2)))))
(SETQ STR (STRCAT "`UTB04-" STR))
)
(COMMAND "_LINE" PT1 PT2 "")
(COMMAND "_TEXT" PT1 2.5 0 STR)
(PRINC)
)
[/PHP]