两个数字求乘积

zhuzaihb · 发表于 2010-1-14 22:13:27

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 zhuzaihb 于 2010-1-14 22:17 编辑

刚开始学编程，先编了个两个数字求乘积的lsp程序，因为大家在做明细表时经常要算重量是就是要用得很多的是将两个数字求乘积，下面就是我经成果，并有说明，还请大家多指教！！

(defun c:CJ () ;程序的名字定为CJ
(princ "请选择需要相乘的第一个数字\n")
(setq a (entsel))    ;选取第一个数字
(setq a1 (entget (car a))) ;取得第一个数字的机器编码（教程里面说是群码），之后再用entget函数取出其字串信息
(setq h (cdr (assoc 40 a1)))  ;先按关键群码40取得要相乘的数字的字高
(setq x1 (atof (cdr (assoc 1 a1))))  ;先按关键群码1取出要的字串段，之后再用cdr函数取得要的字串，最后用atof函数将字串转变成实数
(princ "\n请选择需要相乘的第二个数字\n") ;以下几条语句和第一次选取数字一样，我就不多说明了
(setq b (entsel))
(setq b1 (entget (car b)))
(setq x2 (atof (cdr (assoc 1 b1))))
(setq cj (* x1 x2))  ;两数字相乘
(setq w 2) ;设置输出数字的精度
(setq m (rtos cj 2 w)) ;将输出的数字转换为字串，其精度为小数点后两位
(setq pt1 (getpoint "\n请选择所放点(中点)\n"))
(command "text" "m" pt1 h "0" m)    ;在屏幕输出结果
)
(prompt "**********<<c:CJ>>>**********")

wzfa7 · 发表于 2010-1-15 14:41:40

两个多行文字的数字相乘时，如果其中一个数字使用多行文字编辑器改变了文字宽度，则乘积为0。是不是改变了文字宽度就不认了？请教楼主如何解决？

zhuzaihb · 发表于 2010-1-15 15:24:43

本帖最后由 zhuzaihb 于 2010-1-15 18:21 编辑

两个多行文字的数字相乘时，如果其中一个数字使用多行文字编辑器改变了文字宽度，则乘积为0。是不是改变了文字宽度就不认了？请教楼主如何解决？1 `! e6 y8 {$ r4 j
wzfa7 发表于 2010-1-15 14:41 http://www.3dportal.cn/discuz/images/common/back.gif

改变文字宽度是不影响程序的，你是不是文字里含有堆叠（公差）？或数字前面有不是数字之外的字母和符号。

本人也是刚学编程，对这方面还不是很熟悉，还请多包函。

刚也试了选择还有堆叠的数字，它的字串里有些非数字内容：

"\\A1;230{\\H0.7x;\\S+4^ 0;}"（前面的230是尺寸，后面的+4^0是堆叠内容）

我还不知道如何过滤。

wzfa7 · 发表于 2010-1-15 15:38:26

没有堆砌，看使用多行文字编辑器改变文字宽度数字的（属性-文字-内容）里的确实和没有使用多行文字编辑器改变文字宽度的数字不太一样。

wzfa7 · 发表于 2010-1-15 16:01:42

这是用多行文字编辑器修改了宽度的数字

这是正常的数字

这是用多行文字编辑器修改了宽度的数字的属性

这是正常的数字的属性

zhuzaihb · 发表于 2010-1-15 16:01:50

你用我的程序运行了后，分别用键盘输入！a1 和 !b1 （每次输入完后按回车），把命令行里显示的信息都发上来让我看看

wzfa7 · 发表于 2010-1-15 16:09:29

本帖最后由 wzfa7 于 2010-1-15 16:12 编辑

命令: COMMANDLINE
命令:
命令:
命令: _mtext 当前文字样式:"Standard"  当前文字高度:2.5
指定第一角点:
指定对角点或 [高度(H)/对正(J)/行距(L)/旋转(R)/样式(S)/宽度(W)]:
命令:
命令:
命令: _mtext 当前文字样式:"Standard"  当前文字高度:2.5
指定第一角点:
指定对角点或 [高度(H)/对正(J)/行距(L)/旋转(R)/样式(S)/宽度(W)]:
命令:
命令:
命令: _appload 已成功加载 CJ两个数字求乘积.LSP。

命令: **********<<c:CJ>>>**********
命令:
命令: cj
请选择需要相乘的第一个数字
选择对象:
请选择需要相乘的第二个数字
选择对象:
请选择所放点(中点)
text
当前文字样式:  Standard  当前文字高度:  2.5000
指定文字的起点或 [对正(J)/样式(S)]: m
指定文字的中间点:
指定高度 <2.5000>: 2.500000000000000
指定文字的旋转角度 <0>: 0
输入文字: 0
命令: nil
命令: !a1
((-1 . <图元名: 7ef84f88>) (0 . "MTEXT") (330 . <图元名: 7ef84cf8>) (5 . "F1")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbMText") (10
727.92 981.737 0.0) (40 . 2.5) (41 . 201.394) (71 . 1) (72 . 5) (1 .
"{\\W0.8;123}") (7 . "Standard") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 .
4.66667) (43 . 2.5) (50 . 0.0) (73 . 1) (44 . 1.0))
命令: !b1
((-1 . <图元名: 7ef84f90>) (0 . "MTEXT") (330 . <图元名: 7ef84cf8>) (5 . "F2")
(100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 . "AcDbMText") (10
724.327 970.224 0.0) (40 . 2.5) (41 . 12.1753) (71 . 1) (72 . 5) (1 . "123") (7
. "Standard") (210 0.0 0.0 1.0) (11 1.0 0.0 0.0) (42 . 5.83333) (43 . 2.5) (50
. 0.0) (73 . 1) (44 . 1.0))

wzfa7 · 发表于 2010-1-15 16:15:46

对于单行文字的数字没有这个问题

zhuzaihb · 发表于 2010-1-15 21:22:53

我没办法了，你要算这种数字另请高人定程序吧

woaishuijia · 发表于 2010-1-16 18:35:50

本帖最后由 woaishuijia 于 2010-1-18 10:33 编辑

多行文字如果用编辑器编辑格式,字符串中将含有格式符.关于格式符具体可参见《用户手册》中"在替换文字编辑器中设置多行文字的格式"一节.
如果想让这个程序适用于带有格式符的多行文字,就需要用程序清除字符串中的格式符
把楼主的代码修改了一下,供参考

8 j3 c1 U3 q% C
(defun c:CJ (/ a a1 h x1 b b1 x2 w m pt1) ;程序的名字定为CJ
8 y, w% Z! J9 f
(princ "请选择需要相乘的第一个数字\n" )
: W7 h. t! |) R" a
(setq a (entsel)) ;选取第一个数字
! ~3 i9 w) O* K
(setq a1 (entget (car a))) ;取得第一个数字的机器编码（教程里面说是群码），之后再用entget函数取出其字串信息2 {* q/ f7 ]8 T
(setq h (cdr (assoc 40 a1))) ;先按关键群码40取得要相乘的数字的字高
" N9 L* s) y' ]
(setq x1 (textnum a1));调用子程序处理第一个数字的属性列表并返回数值( n% H2 }; z) I. z% _
(princ "\n请选择需要相乘的第二个数字\n" ) ;以下几条语句和第一次选取数字一样，我就不多说明了
6 }4 s5 d; Z! S) [ \
(setq b (entsel))0 I5 N! |8 m, c7 E( l
(setq b1 (entget (car b)))+ ^+ a% O2 d0 r, O. G6 j
(setq x2 (textnum b1));调用子程序处理第二个数字的属性列表并返回数值* A1 ~7 `& B: ~. [
(setq cj (* x1 x2)) ;两数字相乘0 {. T4 T. q6 L7 l4 n; b0 y
(setq w 2) ;设置输出数字的精度7 `* Y* S9 k# Z) P2 W5 _
(setq m (rtos cj 2 w)) ;将输出的数字转换为字串，其精度为小数点后两位
. U5 a1 V% l" p, {: g! b- X
(setq pt1 (getpoint "\n请选择所放点(中点)\n" ))+ B- i8 i) l9 {' y0 q2 t
(command "text" "m" pt1 h "0" m) ;在屏幕输出结果) k: L! E) h6 A8 k6 L
(princ) Z! ]7 w$ J, Q% a3 e
)
. _& f! B: c( r; l! q5 m
(prompt "**********<<c:CJ>>>**********" )
;;---------子程序----------$ U- G3 v) _" f, c% Y+ G
;;按传递过来的属性列表,识别是否是多行文字,在有针对性地处理后返回数值# P: l& p- { V% C" }5 m4 q
(defun textnum (textgro / str1 str2 i j)
9 q) E/ c2 j$ ~ @ j9 X3 k) a9 h
;获取单行文字或多行文字的字符串
q" y B" n: k# [" G3 X
(setq str1 (cdr (assoc 1 textgro)))8 U7 I- ~# N: P- L8 M! T
;定义中间变量为空字符串,用于存放生成的"纯净"字符串
3 m% M3 M8 Z- |5 Y( N
(setq str2 "" )5 E+ T8 m. u7 H( x( b; O2 `
;判断是否是多行文字.如果是多行文字则去除字符串中的格式代码
: m" m- o& c0 S- C; Q
(if (wcmatch (cdr (assoc 0 textgro)) "MTEXT" )' i1 H( b2 q% c5 L9 s9 K5 q4 y
;多行文字
/ T' h" P: Q7 w9 g4 d
;用循环方法从头到尾逐个字符检查多行文字字符串中是否含有格式代码并处理之
1 N" X: W! |9 w+ p
;基本规则是:把原字符串中检查到的纯净的部分存入str2,然后在原字符串中删除格式代码及以保存的纯净部分,继续检查剩下的部分,直到剩下的是空串.- s+ Z- h) A9 O6 {6 Y* p: t0 d
(while (> (strlen str1) 0) / w9 H4 e# q/ D: V2 i
(if (or (wcmatch str1 "\\{*" ) (wcmatch str1 "\\}*" ) (wcmatch str1 "\\\\*" ))
! F! h; p8 N- |
;在原多行文字字符串中检查到"\{","\}"或"\",说明其中含有正常的大括号或反斜杠,必须保留
: a: t1 f! [: z( V" q, O7 y
;取"\{","\}"或"\"的第二个字符(正常的大括号或反斜杠),存入str2.另原字符串str1从左边去掉检查过的两个字符( X2 ?. b, P/ W+ T8 H" k
(setq str2(strcat str2 (substr str1 2 1))
7 j. j* [ J; P
str1 (substr str1 3)5 e! ]( A: Y* c0 |
)
* M& I G3 {$ b# C( f
(if (or (wcmatch str1 "{*" ) (wcmatch str1 "}*" ))5 ^- z! g) A7 [, Q9 {
;检查到独立的大括号,这是格式代码,去掉它# }( e* Z3 b' u2 U- V' Y/ s7 |, T
;字符串str1从左边去掉检查过的一个字符
2 y. h l9 V, c! X
(setq str1 (substr str1 2))
# B1 _3 D' D* j* P; A+ |
(if (or (wcmatch str1 "\\O*" ) (wcmatch str1 "\\o*" ) (wcmatch str1 "\\L*" ) (wcmatch str1 "\\l*" ) (wcmatch str1 "\\P*" ) (wcmatch str1 "\\~*" ))
: L9 u% O& r: `- Q3 l6 B
;检查到"\O","\o",:\L","\l","\P"或"\~",这些是上划线,下划线,换行或不间断空格的格式代码,直接删掉9 M+ ]/ J$ T! h
;原字符串str1从左边去掉检查过的两个字符, @8 p' L, j4 _
(setq str1 (substr str1 3))
3 W1 Q( `2 p% [, y
(if (wcmatch str1 "\\*" )
5 D, Y* U& @2 t7 N
;检查到独立的反斜杠,这后面是堆叠,字体,宽度等代码.0 Y$ f! ]) i+ _
;这其中,堆叠代码是由三部分组成:"\S"代码堆叠,结尾是";",中间夹着被堆叠的字符,其中有一个堆叠符"/","#"或"^"
; P8 M/ c" c4 G- F1 e7 @
;其它代码都是在""和";"之间记录格式信息,直接删掉即可0 ], q9 k; v5 D2 x8 y r
(progn
s/ q* S) r. W" A" u1 @
;已知第一个字符中反斜杠,所以用循环方法从第二个查起,寻找与反斜杠配对的分号: E7 d; m* A6 z8 @6 p% \
(setq i 2)4 m0 J8 O! D2 M- t& N& e
(while (not(wcmatch (substr str1 i) ";*" ))3 J/ U0 F# w% \+ ?9 c
(setq i(1+ i))+ h$ c9 f/ v+ ?) g! n
)5 B) J b1 F8 w" n- @" ~( A: q+ L
;找到分号的位置后,还要检查属于堆叠还是其它格式代码; ]) ` ]8 J* r: N8 J( e
(if (wcmatch str1 "\\S*" )
$ k: `0 V8 m" j y, ?) F
;如果属于堆叠9 P% R- U; o) l4 [
(progn
+ h% r3 Z7 W! E+ Q3 j) Z+ A
;循环方法从第三个字符查起,寻找堆叠符的位置' p7 G) s) j6 p! V
(setq j 3)4 |) C& L7 r- b: H
(while (not(or (wcmatch (substr str1 j) "/*" ) (wcmatch (substr str1 j) "'#*" ) (wcmatch (substr str1 j) "^*" )))
v! N/ K5 F/ |+ v0 m+ [
(setq j(1+ j))% U$ l. l9 e6 _/ d
)
3 Y `$ u$ U2 ]3 m" F! f
;找到堆叠符位置后,把被堆叠的纯净字符与已保存的纯净部分合并,并从原字符串中去掉堆叠的格式代码及字符3 p2 i3 q$ d6 k! v. R
(setq str2 (strcat str2 (substr str1 3 (- j 3)) (substr str1 (1+ j) (1- (- i j)))): v2 Q6 E2 Y8 Q _5 M
str1 (substr str1 (1+ i))
. E9 ^' _9 ]) c: b# A' q
)
$ G9 k) p8 p, h. W) x! g1 k3 L
)# E7 S/ P( Y& e6 |
;如果是其它格式代码,则从原字符串中去掉它4 j2 f7 ~% q7 _, b* t
(setq str1 (substr str1 (1+ i)))
: m: F ]% F5 }7 [. q5 \
)# e+ ]( s9 j% G' F
)
6 Y2 }3 a5 n: v9 E6 T
;没有检查到反斜杠或独立的大括号,说明被检查的首个字符是纯净的,移到str2中保存,并从原字符串中去掉
( D4 J. P0 |& g: \- F9 M, E" t# n- V
(setq str2 (strcat str2 (substr str1 1 1))5 w- F- f: S- E4 p* }* ~
str1 (substr str1 2)$ Q! |& s' ^) w: d% h
)7 \: `- t: y# Y: B4 R1 m
)/ n2 k( v' }5 ?% y" t3 r
)9 z5 A4 z1 v6 K/ p( c8 C
)- e( U e: A" {7 |& {. X% O
)
. W5 p; q1 p! [& l0 i
)
) C5 K. P+ m9 { N
;单行文字,原字符串是纯净的,照单全收1 k3 W( I c$ \
(setq str2 str1). y/ w& S) i8 c; P' u; o8 f. J
)6 Q9 R+ l* S9 u! x4 Q1 w
(atof str2);返回数字
) K" ]) R/ a' c5 S$ D
)
- F3 o, ^: ^: p- |6 s- C, G

复制代码

zhuzaihb · 发表于 2010-1-16 22:17:49

谢谢楼上的指教！学习了！
只是为了两个数字相乘的结果要写上4、5十行的程序也太费脑了，而且明细表中很少有特意编辑的多行文字！

zhuzaihb · 发表于 2010-1-16 22:28:14

我还有个问题想请教高手，就是有时（应该是很少用到的）要计算一些重量很小的东西时，只精确到两们小数是不够的，当然可以在程序中加入要求指定多少位小数的语句，但这样在很多时候是浪费时间的，所以我想在命令行中出没有四舍五入的结果，但我搞了很长时间才搞了下面两句

(setq X3 (list "小数点后没四舍五入的实际结果：" cj ))
(prompt X3) ;在命令行输出"小数点后没四舍五入的实际结果：

这两句应该是加在“text”命令后面的，
请问高手还有什么好办法吗？虽然目的达到了，但很次都会出现; 错误: 参数类型错误: stringp的提示！

woaishuijia · 发表于 2010-1-17 07:36:37

本帖最后由 woaishuijia 于 2010-1-17 07:47 编辑

你的代码中,X3被赋值后是一个列表,而prompt函数的参数要求是字符串,所以会出现参数类型错误.改用princ函数就不会有这个问题,就像这样

% u# W% G" W3 \4 H" {6 [
(setq X3 (list "小数点后没四舍五入的实际结果：" cj ))
. |: K1 O+ j* n4 b
(princ X3) ;在命令行输出"小数点后没四舍五入的实际结果：9 Y- a% F: J/ x- z/ K; X

复制代码

还可以这样

+ [4 x$ l$ J, D0 H& Q. K; |
(princ "小数点后没四舍五入的实际结果：" )
* T" i! k! D6 J' T6 p" |
(princ cj)
* G9 A% e, ?5 l% S- i

复制代码

如果想在单行文字中显示未经四舍五入的结果,可以这样

+ v3 c. j! H* L
(command "text" "m" (getpoint "\n请选择所放点(中点)\n" ) 2.5 0 cj)# n1 \1 _/ W q* z7 m! o) s: V

复制代码

zhuzaihb · 发表于 2010-1-17 11:08:21

你的代码中,X3被赋值后是一个列表,而prompt函数的参数要求是字符串,所以会出现参数类型错误.改用princ函数就不会有这个问题,就像这样. Z; O3 I( m0 M6 S, M8 G

0 J/ X, L% x1 z- |1 _7 }) P! h3 i" ^(setq X3 (list "小数点后没四舍五入的实际结果：" cj ))) [5 d K& x- A6 ^, _2 z& x5 D
(princ X3) ; ...
9 ~. ^7 h5 V! {( qwoaishuijia 发表于 2010-1-17 07:36 http://www.3dportal.cn/discuz/images/common/back.gif

你没明白我的意思，你这样是又在屏幕上写多一个数字，然后还要删除，也是麻烦，我的意思是没有四舍五入的结果在命令行中输出，如果实际上需要用到就再改已经输出的两位小数点的数字，我今天写了3行代码，应该可以了

(setq X3 (strcat "小数点后没四舍五入的实际结果：" (rtos cj))
(prompt X3)
(prin1)

zhuzaihb · 发表于 2010-1-17 15:34:02

现在发现一个更简单的方法，只要一行代码就完成了

(princ "小数点后没四舍五入的实际结果=")(princ cj)

但我不明白的是，为什么如果只是输入(princ cj)，就会输出两次cj呢？

woaishuijia · 发表于 2010-1-17 16:45:19

本帖最后由 woaishuijia 于 2010-1-17 16:49 编辑

这不就是我在13楼说的第二种方法吗.只不过你把两行代码写在一行中了.呵呵.
13楼的第一种代码是针对你以前的方法而言的,也就是说,只要用princ函数代替prompt函数,就可以避免出现参数类型错误.实际上这种方法并不可取因为没有必要把提示字符串和输入结果做成列表再输出,合并字符串也没有必要,只要直接用princ输出就可以了.
至于第三种方法,我以为你是因为用单行文字无法输出未经四舍五入的结果才需要在命令行输出,所以提醒一下用单行文字是可以直接输出的.
cj会输出两次,原因是函数的结尾缺少一行(princ).你注意看我在10楼对你的代码中的修改部分(10楼代码的第16行),比你一楼代码多出了这样一行.按LISP的规矩,函数运行结束时会自动输出函数的值,也就是最后一行的值.如果函数最后一行是(princ cj),结果就会输出两遍,而在(princ cj)后面再加一行(princ).程序就只输出一遍,然后就静默退出了.

zhuzaihb · 发表于 2010-1-17 18:25:56

这不就是我在13楼说的第二种方法吗.只不过你把两行代码写在一行中了.呵呵.5 ]' B) Y/ u c7 y
13楼的第一种代码是针对你以前的方法而言的,也就是说,只要用princ函数代替prompt函数,就可以避免出现参数类型错误.实际上这种方法并不 ...
7 K* M. Z* V$ K7 o! d- s1 U1 Owoaishuijia 发表于 2010-1-17 16:45 http://www.3dportal.cn/discuz/images/common/back.gif

终于明白 lsp 的princ命令了！

wzfa7 · 发表于 2010-1-18 09:52:13

用了新的还是不行

另外用过一个多个数相加的程序就没有类似问题
这就是这个程序，不知有无参考价值。

nbs.rar (1.86 KB, 下载次数: 1)

woaishuijia · 发表于 2010-1-18 10:36:46

18# wzfa7

抱歉!编辑帖子时不小心,丢了第18行的右括号.已改正,请重新复制粘贴使用.

wzfa7 · 发表于 2010-1-18 13:51:09

现在好用了，多谢

		自动登录	找回密码
密码			注册

通知

[分享] 两个数字求乘积

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

浏览过的版块