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

bori

程序中用到命令：
(command "TEXT" p1 "" "" p2)
$ U/ ^9 Z# R6 J& D0 m0 c
9 u0 N8 _3 Y, R! m2 L; m9 D* z- f在P1点插入默认大小，旋转的文字p2。p2为前程序得到。
我想在p2前加入字符串，怎么实现？
就是说假如我想在CAD里面显示的文字为  价格：p2
这个"价格"怎么弄进去？

===================================
4 F& L( ?2 ^! P3 A
找到方法了，“text”命令内无法进行计算。
/ E( w6 [4 I9 m. w/ j只有用rtos函数，先把所有变量值转换为字符串。
+ j  M% X& t, u1 I% b) v) S% K然后用strcat函数合并。
+ o3 p( |7 ?; |3 q* \9 X+ ~4 X, S
例如：
  (setq str (rtos p7 2 2))                     ;;把变量p7的值转换为字符串型
  (setq str1 (rtos p8 2 2))                   ;;把变量p8的值转换为字符串型
' U! J) A+ Z) I! _1 {4 L! V* s. M  
  (setq all (strcat "合计" str str1))         ;;赋值all为两个字符串合并
  w8 Q# S: |; B/ R2 M! e$ f
0 M" Z8 F  ~. D然后再用text命令输出all变量即可。。。。
1 V+ F; U% }/ d1 X
$ d6 G0 [. [7 z) l' U[ 本帖最后由 bori 于 2009-10-15 15:51 编辑 ]

xhq1954425

分两句不行吗？
# @% ~5 J* @! D/ ^) w; A, u2 k( p(command "TEXT" p1 "" "" "价格：")
8 T1 `# D7 c: C. _# g4 E(command "TEXT" p12 "" "" p2)

bori

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

xhq1954425

p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
0 `6 d$ O2 |  q% T- Y( q8 k如果设定相距为10，则：

(setq p12 (list (+ 10 (car p1)) (cadr p1)))

2 C7 ?! [: _; G/ V$ u[ 本帖最后由 xhq1954425 于 2009-10-12 10:58 编辑 ]

bori

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

bori

原帖由 xhq1954425 于 2009-10-12 10:45 发表
p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
如果设定相距为10，则：
4 `" j; r1 H1 P& ]5 {4 ?
  D5 M2 d1 z  z' K# Y- j5 m' M2 [(setq p12 (list (+ 10 (car p1)) (cadr p1)))

, ]6 }! I. l( |! Q' a6 ?
谢谢，用起来还不错。
还让我学了 car cadr 的用法。
非常感谢。

bori

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

xhq1954425

原帖由 bori 于 2009-10-15 14:07 发表
& s( Q) T5 s- ]& U' V% D% U0 d, R8 |嘿嘿，终于找到能解决的函数了。。

8 X5 [0 W  \% ?+ Q! C发上来学习一下！

bori

原帖由 xhq1954425 于 2009-10-15 14:15 发表

发上来学习一下！

' x/ B5 E+ }4 u+ Z, }5 `0 E: c* ]6 m5 g
大哥，先谢谢你之前的教导。
让我学到了car cadr 的用法。

2 `( `0 S8 l! m$ ]2 d0 P' N# l$ k函数，帖子里已经更新了，至于别的部分，是针对我单位线切割等加工核价用的。
0 _" X$ D  Y3 {! k8 l& s1 {貌似柔性很低。所以就不放上来啦。

xhq1954425