求cad lisp.cad有很多数字,想同时做乘法,并且在原位置替换,第三点要求是能控制小数点后的位数.

来源：学生作业帮编辑：搜搜考试网作业帮分类：综合作业时间：2024/06/03 20:53:25

求cad lisp.cad有很多数字,想同时做乘法,并且在原位置替换,第三点要求是能控制小数点后的位数.
谁能帮忙写个程序,cad有很多数字,想同时做乘法,并且在原位置替换,第三点要求是能控制小数点后的位数.

(defun C:ZX48 ( / #k1 #l1 #l2 &k1 &kw1 n wznr1 wznr2)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(setq #L1 (getdist (strcat "\n请输入要相乘的数值:<" "1" ">")))
(if (= #L1 nil) (setq #L1 1) );默认相乘数值为1
(setq #L2 (getint (strcat "\n请输入要控制小数点后的位数:<" "5" ">")));默认小数点后5位
(while (and (/= #L2 nil) (< #L2 0)) (setq #L2 (getint (strcat "\n请输入要控制小数点后的位数:<" "5" ">"))));数值输入不得小于0
(if (= #L2 nil) (setq #L2 5) )
(princ "\n请选择数字文字")
(setq &kw1 (ssget '((0 . "text,mtext") (1 . "~*[~-.0-9]*" ))));只选择数字文字
(if (/= &kw1 nil);如果有选择了
  (progn
   (setq n (sslength &kw1))
   (setq &k1 (ssname &kw1 0));提取文字
   (while &k1
    (setq &kw1 (ssdel &k1 &kw1))
    (setq #k1 (entget &k1));取得文字属性列表
    (setq WZNR1 (assoc 1 #k1));取得文字
    (setq WZNR2 (cons 1 (rtos (* (atof (cdr WZNR1)) #L1) 2 #L2)));得到要替换的内容
    (setq #k1 (subst WZNR2 WZNR1 #k1));替换内容
    (entmod #k1);刷新文字
    (setq &k1 (ssname &kw1 0));下一个文字
   )
  )
)
(princ "\n共选择了") (princ n) (princ "个文字相乘");在命令行显示
(prin1)
);复制到记事本以【.lsp】为后缀命名,加载到AutoCAD就可以使用,使用命令为【ZX48】

cad标注小数点后保留位数的问题有一个4位数在它的某位数字后加上小数点在与原数相加得1357.4求这个4位数有一个四位数,在它的某位数字后加上小数点再与原数相加得1357、47,求这个四位数有一个四位数,在它的某位数字后加上一个小数点,再与原数相加得1357.4,这个四位数是多少?求算式, 有一个四位数,在他的某位数字后加上一个小数点,再与原数相加是1357.4,这个四位数是多少? 有一个四位数,在它的某位数字后面加上一个小数点后再与原来的数相加,得到是3187.56.求这个四位数 cad特性中,里面的数值怎么设置小数点后保留位数有一个四位数,在它的某位数字后加上一个小数点,再与原数相加得1357.4,这个四位数是多少? 有一个四位数字,在他的某位数字后加上一个小数点,在与原数相加得1357.4,这个四位数是多少? 有一个四位数,在它的某位数字后加上一个小数点,在与原数相加得4004,这个数是多少?要有有一个四位数,在它的某位数字后加上一个小数点,再与原数相加得4004,这个数是多要求：是一个能正常运行的程序 c语言有一个不多于5的正整数,求它的位数,同时求出它的每位数字?