关于autolisp系统命令"text"的调用。

bori

程序中用到命令：
9 R1 P& o% H4 j! i# Z! T2 v(command "TEXT" p1 "" "" p2)

3 n3 @6 k. ~7 N- }& |; u, A在P1点插入默认大小，旋转的文字p2。p2为前程序得到。
我想在p2前加入字符串，怎么实现？
就是说假如我想在CAD里面显示的文字为  价格：p2
6 G2 s8 z$ v0 a# v+ N, V5 O这个"价格"怎么弄进去？
9 w- X: y1 {6 r5 z& p. w
===================================

找到方法了，“text”命令内无法进行计算。
" A- C$ X, R7 H: q/ E只有用rtos函数，先把所有变量值转换为字符串。
( ?. u: w3 Y5 k0 @, W2 @) n然后用strcat函数合并。
. q. {, f$ \% ~( a4 a
例如：
  (setq str (rtos p7 2 2))                     ;;把变量p7的值转换为字符串型
  (setq str1 (rtos p8 2 2))                   ;;把变量p8的值转换为字符串型
  
7 p: t+ n  l6 y4 e$ s1 Y  \' M; G  (setq all (strcat "合计" str str1))         ;;赋值all为两个字符串合并
: @( J  x& E- h/ F. [- a- S) i
然后再用text命令输出all变量即可。。。。
4 ~" I# y4 T9 h% A0 [
[ 本帖最后由 bori 于 2009-10-15 15:51 编辑 ]

xhq1954425

分两句不行吗？
: P% \5 I3 b: Q5 n- r5 o7 ~(command "TEXT" p1 "" "" "价格：")
$ p- e; A+ W( ^; k3 R(command "TEXT" p12 "" "" p2)

bori

谢谢。
这是个好方法。
但是，我要这两个显示在一行，这个现实位置，不好确定呀。。
另：(command "TEXT" p12 "" "" p2)
你这 P12 是什么意思？？重新定的一个点？

xhq1954425

p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
如果设定相距为10，则：
. m! @0 ]) ?& T# R4 e& j
+ d, t  U0 I9 h) ^6 g(setq p12 (list (+ 10 (car p1)) (cadr p1)))

[ 本帖最后由 xhq1954425 于 2009-10-12 10:58 编辑 ]

bori

哦，貌似这样有点麻烦，如果能直接像VB一样，字符串跟实数结合输出就好了。

bori

原帖由 xhq1954425 于 2009-10-12 10:45 发表
p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
2 j# y5 t/ \1 r; s' U* t如果设定相距为10，则：
& U* A, j& L4 \/ R4 x/ r8 w
: B; X% q; d5 L& z4 Q(setq p12 (list (+ 10 (car p1)) (cadr p1)))

! Z  G1 r" m9 g% B% t# B- ]
谢谢，用起来还不错。
还让我学了 car cadr 的用法。
非常感谢。

bori

嘿嘿，终于找到能解决的函数了。。

xhq1954425

原帖由 bori 于 2009-10-15 14:07 发表
嘿嘿，终于找到能解决的函数了。。

发上来学习一下！

bori

原帖由 xhq1954425 于 2009-10-15 14:15 发表
& r& o, J5 T' l  S( t/ j
发上来学习一下！

( B9 r2 Z# o- _
3 P/ \+ ]0 q4 ^! }
大哥，先谢谢你之前的教导。
. z6 c" C8 |9 E3 i让我学到了car cadr 的用法。
: e% W; X# k0 K: Y9 X
函数，帖子里已经更新了，至于别的部分，是针对我单位线切割等加工核价用的。
1 b  p. I. O* [5 s% r+ p5 ~貌似柔性很低。所以就不放上来啦。

xhq1954425