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

bori

程序中用到命令：
(command "TEXT" p1 "" "" p2)

在P1点插入默认大小，旋转的文字p2。p2为前程序得到。
我想在p2前加入字符串，怎么实现？
就是说假如我想在CAD里面显示的文字为  价格：p2
这个"价格"怎么弄进去？
- Z- S; w& J, @: W* j
9 m' z! r. z& G5 \===================================
- N/ K- l. I# ~5 U
找到方法了，“text”命令内无法进行计算。
只有用rtos函数，先把所有变量值转换为字符串。
然后用strcat函数合并。

/ l6 ]  c0 Q$ I- u2 R例如：
- h! ~* U4 o$ X- a/ @3 ~. U- y  (setq str (rtos p7 2 2))                     ;;把变量p7的值转换为字符串型
& r* n8 I# \& r6 S) S5 W  (setq str1 (rtos p8 2 2))                   ;;把变量p8的值转换为字符串型
  
  (setq all (strcat "合计" str str1))         ;;赋值all为两个字符串合并
/ A3 L( z- x9 p3 T$ @  D
然后再用text命令输出all变量即可。。。。
* u% }8 j, l1 u
9 @+ Y+ ^9 D; T! b[ 本帖最后由 bori 于 2009-10-15 15:51 编辑 ]

xhq1954425

分两句不行吗？
' U# h4 R& e  H4 V' `! j! P(command "TEXT" p1 "" "" "价格：")
5 k0 t% n* a& h/ v: F$ a(command "TEXT" p12 "" "" p2)

bori

谢谢。
( F4 z, }% ^, ]" M: [9 y# m这是个好方法。
1 G( d7 m5 \' |0 O5 @/ x# d但是，我要这两个显示在一行，这个现实位置，不好确定呀。。
" i0 H* v: u: B& p+ n9 z& ^+ h: ]另：(command "TEXT" p12 "" "" p2)
你这 P12 是什么意思？？重新定的一个点？

xhq1954425

p12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
) J7 l, B, ~  V6 Y6 r. F4 S# M如果设定相距为10，则：
5 a( H2 j8 \1 G- I! ^
(setq p12 (list (+ 10 (car p1)) (cadr p1)))

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

bori

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

bori

原帖由 xhq1954425 于 2009-10-12 10:45 发表
: V+ m5 Z  S2 A* k# P+ sp12是p1后面涉及　价格：1000元　相对位置的点，是你自己算好的点
如果设定相距为10，则：
9 l$ z) `0 p, @" P5 o
(setq p12 (list (+ 10 (car p1)) (cadr p1)))

谢谢，用起来还不错。
/ X4 j% s: \3 l) s: n还让我学了 car cadr 的用法。
非常感谢。

bori

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

xhq1954425

原帖由 bori 于 2009-10-15 14:07 发表
% e: Y8 C( T, M# m  U3 j6 Y嘿嘿，终于找到能解决的函数了。。

& U5 f# z0 J! h! w6 j发上来学习一下！

bori

原帖由 xhq1954425 于 2009-10-15 14:15 发表
* b3 I' P: J6 \4 x
* Q9 z! {* \- y) I4 ?$ T0 P发上来学习一下！

, `; K* c; j& l( _  ^! F# G
大哥，先谢谢你之前的教导。
; G2 A- r2 W# J; q让我学到了car cadr 的用法。
7 O! r1 R4 Y& Q- c3 j# H9 G, `
函数，帖子里已经更新了，至于别的部分，是针对我单位线切割等加工核价用的。
貌似柔性很低。所以就不放上来啦。

xhq1954425