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

bori

程序中用到命令：
(command "TEXT" p1 "" "" p2)
0 U' V& z$ @; g9 J' L
在P1点插入默认大小，旋转的文字p2。p2为前程序得到。
我想在p2前加入字符串，怎么实现？
+ E/ I. r9 O- X1 O就是说假如我想在CAD里面显示的文字为  价格：p2
/ C8 u0 d" j1 C2 e这个"价格"怎么弄进去？

5 b' W" Y/ G7 @2 D: T& l. z; A$ ~===================================

9 P/ E- s7 p4 O找到方法了，“text”命令内无法进行计算。
只有用rtos函数，先把所有变量值转换为字符串。
# `  d6 Z' ]! i7 u9 ^* c# Q; B然后用strcat函数合并。
8 Q) G  w4 @. G
例如：
9 L0 Y& x6 ]2 N  (setq str (rtos p7 2 2))                     ;;把变量p7的值转换为字符串型
+ [0 F( r; c1 Z& c  (setq str1 (rtos p8 2 2))                   ;;把变量p8的值转换为字符串型
  
  (setq all (strcat "合计" str str1))         ;;赋值all为两个字符串合并

然后再用text命令输出all变量即可。。。。

) [, I$ k. M2 J  _7 ~[ 本帖最后由 bori 于 2009-10-15 15:51 编辑 ]

xhq1954425

分两句不行吗？
8 r5 X1 C- E0 Z1 o/ K5 D3 Y(command "TEXT" p1 "" "" "价格：")
2 c$ A: q) X5 j' |' y(command "TEXT" p12 "" "" p2)

bori

谢谢。
# K; L# Z- K3 y这是个好方法。
但是，我要这两个显示在一行，这个现实位置，不好确定呀。。
. `  }: Q% g! a" ?* ~# H另：(command "TEXT" p12 "" "" p2)
你这 P12 是什么意思？？重新定的一个点？

xhq1954425

p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
8 Z. A" ~* R1 C9 Z- E  O' N7 I# m如果设定相距为10，则：
6 h$ ]$ F8 E" U! u" N& ]6 R
( ?* [1 {$ J' v" [# A(setq p12 (list (+ 10 (car p1)) (cadr p1)))
* P8 T) j7 w) x# _9 z
/ \$ q5 f! g/ m) J[ 本帖最后由 xhq1954425 于 2009-10-12 10:58 编辑 ]

bori

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

bori

原帖由 xhq1954425 于 2009-10-12 10:45 发表
p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
5 o* P8 }" ?! b) b& v# g如果设定相距为10，则：

3 V1 D6 X  n, @) t- Q(setq p12 (list (+ 10 (car p1)) (cadr p1)))

谢谢，用起来还不错。
还让我学了 car cadr 的用法。
非常感谢。

bori

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

xhq1954425

原帖由 bori 于 2009-10-15 14:07 发表
. N8 ?. {5 K& R( _: o' A# H嘿嘿，终于找到能解决的函数了。。

0 d' f# o2 ]5 S% H# ?+ u发上来学习一下！

bori

原帖由 xhq1954425 于 2009-10-15 14:15 发表
$ ]# E; Q; [9 ^$ d  L
4 y# Q( N1 Q4 P7 m% k发上来学习一下！

* J% @2 ]$ y) i' z, m

大哥，先谢谢你之前的教导。
让我学到了car cadr 的用法。
$ y9 x9 {* Z+ T+ z5 k8 {
1 V1 F& w! |/ d  O* a! L2 i  F- T' J函数，帖子里已经更新了，至于别的部分，是针对我单位线切割等加工核价用的。
: b* x$ z3 x2 K貌似柔性很低。所以就不放上来啦。

xhq1954425