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

bori

程序中用到命令：
1 e3 K3 S* F) W(command "TEXT" p1 "" "" p2)
9 S0 T( _% g/ A" v% N1 ?% W( `7 T
. Y1 u& ^0 i0 O8 y. Y0 o* C2 g在P1点插入默认大小，旋转的文字p2。p2为前程序得到。
我想在p2前加入字符串，怎么实现？
就是说假如我想在CAD里面显示的文字为  价格：p2
这个"价格"怎么弄进去？

===================================

找到方法了，“text”命令内无法进行计算。
只有用rtos函数，先把所有变量值转换为字符串。
然后用strcat函数合并。

例如：
0 I" c4 w! W; g- f/ x" x" A% N9 B+ T  (setq str (rtos p7 2 2))                     ;;把变量p7的值转换为字符串型
  (setq str1 (rtos p8 2 2))                   ;;把变量p8的值转换为字符串型
  
3 i4 e- L8 U7 @, f8 [  (setq all (strcat "合计" str str1))         ;;赋值all为两个字符串合并

然后再用text命令输出all变量即可。。。。
6 M1 F, r0 E3 x$ s, v
[ 本帖最后由 bori 于 2009-10-15 15:51 编辑 ]

xhq1954425

分两句不行吗？
(command "TEXT" p1 "" "" "价格：")
(command "TEXT" p12 "" "" p2)

bori

谢谢。
这是个好方法。
但是，我要这两个显示在一行，这个现实位置，不好确定呀。。
1 R4 m! m7 B: |6 l# \9 K1 C另：(command "TEXT" p12 "" "" p2)
. L( }' S  X' A3 C. \你这 P12 是什么意思？？重新定的一个点？

xhq1954425

p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
6 l5 Y6 g/ |! K7 n如果设定相距为10，则：

9 P6 Q) Z8 d; [% \(setq p12 (list (+ 10 (car p1)) (cadr p1)))
3 X" `! _8 u; A$ G, y
[ 本帖最后由 xhq1954425 于 2009-10-12 10:58 编辑 ]

bori

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

bori

原帖由 xhq1954425 于 2009-10-12 10:45 发表
, j8 Z* I% J* @! Vp12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
如果设定相距为10，则：

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

0 d& n( X0 u! g* T1 p
谢谢，用起来还不错。
. a% w, N9 {5 T2 u, K0 V还让我学了 car cadr 的用法。
. D- [6 h; e- c/ }) f4 K0 r非常感谢。

bori

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

xhq1954425

原帖由 bori 于 2009-10-15 14:07 发表
" G+ ?9 Q$ o# o' }% S2 v. }% Y) L嘿嘿，终于找到能解决的函数了。。

+ C% y8 o% k( B0 j  ^% W6 a: S1 I7 l发上来学习一下！

bori

原帖由 xhq1954425 于 2009-10-15 14:15 发表
# z( |) W9 @  W" ~
1 }, ?. H2 Y* x6 ?3 q0 Z+ ?! g发上来学习一下！

2 y. }. Z& Q- i6 ~& Z大哥，先谢谢你之前的教导。
让我学到了car cadr 的用法。
& G& D3 \2 G* H# _! }1 ]5 s
函数，帖子里已经更新了，至于别的部分，是针对我单位线切割等加工核价用的。
' L) E4 O  U  n# l貌似柔性很低。所以就不放上来啦。

xhq1954425