CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 3343|回复: 9

[经验] 关于autolisp系统命令"text"的调用。

[复制链接]
发表于 2009-10-12 09:55 | 显示全部楼层 |阅读模式
程序中用到命令:
# b6 k' M* f0 i9 [* z(command "TEXT" p1 "" "" p2)
' c9 }8 J' L) g
$ T! w* r" i7 x  R5 X) [7 @* o2 z9 `在P1点插入默认大小,旋转的文字p2。p2为前程序得到。" |' a8 D; b/ |/ I& m9 K
我想在p2前加入字符串,怎么实现?% r7 Y3 x- J1 Z! z# s4 J1 f& E3 Z6 s& ~
就是说假如我想在CAD里面显示的文字为  价格:p23 T- u& F- M4 |. Z
这个"价格"怎么弄进去?
% P0 N7 f5 j8 E: z. D- k2 N
1 E7 Y; i/ o2 X) y# ~7 q: |0 C===================================# Q8 F5 t% B/ H# S$ C; A, D
/ O3 x. g6 x' o- ^. C+ |* P4 ?
找到方法了,“text”命令内无法进行计算。
, {, t3 Z4 j8 Y3 l' w6 Y  L只有用rtos函数,先把所有变量值转换为字符串。
$ ?7 F; I& w4 K* i  m) n然后用strcat函数合并。
- g8 k. I. w& r; M9 @8 a' M6 }; d" Z  `8 _- Z
例如:
" n. W, E7 Y+ J: P4 i$ U  (setq str (rtos p7 2 2))                     ;;把变量p7的值转换为字符串型
! H  {, w8 m2 w  (setq str1 (rtos p8 2 2))                   ;;把变量p8的值转换为字符串型8 g4 {6 y7 @/ a
  
  I. @3 D9 G: k: w! A$ _2 M  (setq all (strcat "合计" str str1))         ;;赋值all为两个字符串合并
4 V7 {: e* p; N* L4 w4 V! F: x5 v" f7 n& `
然后再用text命令输出all变量即可。。。。
4 _% D4 o. y7 A
" t6 S' a8 k) u  d9 r. g8 T6 c
[ 本帖最后由 bori 于 2009-10-15 15:51 编辑 ]
发表于 2009-10-12 10:15 | 显示全部楼层
分两句不行吗?# M$ g- t  |8 Y# [( A4 a# |
(command "TEXT" p1 "" "" "价格:")
# ?# N9 w0 k6 P+ X! a  R(command "TEXT" p12 "" "" p2)
 楼主| 发表于 2009-10-12 10:34 | 显示全部楼层
谢谢。
7 }1 p. B. O% \& ^4 A1 k这是个好方法。
* E5 V8 D. D. J4 M/ l但是,我要这两个显示在一行,这个现实位置,不好确定呀。。- e6 w1 }9 t) [, \. p( s
另:(command "TEXT" p12 "" "" p2)
' y- l  h/ ?% \5 D  |你这 P12 是什么意思??重新定的一个点?
发表于 2009-10-12 10:45 | 显示全部楼层
p12是p1后面涉及 价格:1000元 相对位置的点,是你自己算好的点7 b$ o6 |% }: K$ s  O
如果设定相距为10,则:% g3 S% e+ K1 K2 ?5 S
! r( U8 w  `  x4 n
(setq p12 (list (+ 10 (car p1)) (cadr p1)))$ {$ E3 }- W7 C9 p. K* E4 n

. \# j: f/ Z* W- u( P[ 本帖最后由 xhq1954425 于 2009-10-12 10:58 编辑 ]
 楼主| 发表于 2009-10-12 11:05 | 显示全部楼层
哦,貌似这样有点麻烦,如果能直接像VB一样,字符串跟实数结合输出就好了。
 楼主| 发表于 2009-10-12 11:19 | 显示全部楼层
原帖由 xhq1954425 于 2009-10-12 10:45 发表
$ H2 z: e0 L6 y+ B# dp12是p1后面涉及 价格:1000元 相对位置的点,是你自己算好的点1 {, k  e& i; a! A+ o
如果设定相距为10,则:! I) @0 c% N7 A
6 y- E3 @! u3 j) R6 d
(setq p12 (list (+ 10 (car p1)) (cadr p1)))
' H( }9 Z. X1 r9 {% t. p# I

$ k# r' N6 O( v谢谢,用起来还不错。
0 [) W' t. Y; L0 e8 i3 k还让我学了 car cadr 的用法。
8 ~9 a6 M! w, ^5 q: d% ]9 [4 C( _非常感谢。
 楼主| 发表于 2009-10-15 14:07 | 显示全部楼层
嘿嘿,终于找到能解决的函数了。。
发表于 2009-10-15 14:15 | 显示全部楼层
原帖由 bori 于 2009-10-15 14:07 发表
" L0 B, M& G& ?/ B9 r1 G嘿嘿,终于找到能解决的函数了。。
4 o/ o: ^5 z! _5 P/ [* p* @
发上来学习一下!
 楼主| 发表于 2009-10-15 15:49 | 显示全部楼层
原帖由 xhq1954425 于 2009-10-15 14:15 发表
% K' R6 X* E7 X+ u" a( I. M: Z1 x7 ~
发上来学习一下!

8 F% z1 O( P. J# l- f# x% R
3 v( H6 L# H6 k' \5 ?' U  c
" b; p0 O& r% V$ k% N& M+ D, m大哥,先谢谢你之前的教导。3 e+ P9 f6 l: o# U4 X! z
让我学到了car cadr 的用法。
# U8 T6 ?( v3 z, c. O. u. t& k
: A5 l' ?& w- O% \( N& m5 ]0 F函数,帖子里已经更新了,至于别的部分,是针对我单位线切割等加工核价用的。
$ @5 Y8 C9 |6 Z( a. e貌似柔性很低。所以就不放上来啦。
发表于 2009-10-15 16:15 | 显示全部楼层
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2026-2-1 17:09

CAD设计论坛,为工程师增加动力。

© 2005-2026 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表