@m:menu-calc-matrix

说明:计算

用法:

 (@m:menu-calc-matrix)

参数:

返回值:

示例:

(defun @m:menu-calc-matrix (/ *error* result dcl-tmp dcl-fp dcl_id matrix-num num-format column-id)
  "多列计算,自定公式进行计算。"
  (defun *error* (msg)
    (if (= 'file (type dcl-fp)) (close dcl-fp))
    (vl-file-delete dcl-tmp)
    (prin1 msg))
  (defun calc-matrix ()
    (setq result
	  (mapcar '(lambda(xx)
		     (mapcar '(lambda(mm nn)(set mm nn))
			     '(A B C D F G H I J K L M N O P Q R S U V W X Y Z)
			     xx)
		     (eval (formula->lisp (get_tile "formula"))))
		  matrix-num
		  )))
  (setq column-id '(A B C D F G H I J K L M N O P Q R S U V W X Y Z))
  (setq result nil)
  (setq matrix-num (@M:form-matrix(@m:get-entmatrix)))
  (setq num-format (@m:align-number matrix-num))
  (setq dcl-tmp (strcat @:*prefix* "tmp-calc.dcl" ))
  ;;(print "aaa")  (setq dcl-fp (open dcl-tmp "w"))
  (write-line "calc :dialog{label=\"Calc\";:spacer{}:column{" dcl-fp)
  (foreach str% (list
		 ":edit_box{label=\"公式:\";key=\"formula\";}"
		 ":text{label=\"支持运算符: + - * / ^ %(求余) ( ) [ ] { } \";}"
		 ":text{label=\"支持三角函数: sin cos tan ctan asin acos atan \";}"
		 ":text{label=\"支持高阶函数: ln lg sqr e(自然指数、欧拉数)  \";}"
		 ":text{label=\"示例: sin(A)+B-2*C , A*B-C+2*D \";}"
		 ":text{label=\"    A B C D F 代表列，列号没有 E T ，因为 E 代表欧拉数, T 代表真。  \";}"
		 ":image{ height=0.1; color=1; fixed_height=true;}"
		 ":text{key=\"title\";}"
		 
		 ;; ":row{:button{label=\"sin\";}:button{label=\"cos\";}:button{label=\"log\";}:button{label=\"ln\";}}"		 ;; ":row{:button{label=\"Calc\";}:button{label=\"Insert to dwg\";}}"		 ":list_box{key=\"matrix\";width=" (itoa (+ 4 (* 5(length num-format))(apply '+ (mapcar '(lambda(x)(apply '+ x)) num-format))))  ";}"
		 )
	   (write-line str% dcl-fp)
	   )
  (write-line "} :spacer{} ok_cancel;}" dcl-fp)
  (close dcl-fp)
  (setq dcl_id (load_dialog dcl-tmp))
  (if (not (new_dialog "calc" dcl_id "" ));; '(1  1)))      (exit))
  (action_tile "accept" "(calc-matrix)(done_dialog 1)")
  (set_tile "formula"
	    (string:from-list (mapcar '(lambda(x y) (vl-symbol-name y))
				      num-format
				      column-id)
			      "+"))
  ;;(setq sepa "")  (set_tile "title"
	    (apply 'strcat (mapcar '(lambda(x y)(string:number-format (vl-symbol-name y) (+ 2 (car x))(+ 2(cadr x)) " "))
				   num-format
				   column-id)))
  (start_list "matrix")
  ;; (add_list  (apply 'strcat (mapcar '(lambda(x y)(string:number-format y (+ 2 (car x))(+ 2(cadr x))))  ;; 					    num-format  ;; 					    '("A""B""C""D""F""G""H""I""J""K""L""M""N""O""P""Q""R""S""T""U""V""W""X""Y""Z"))))  ;; (add_list (repeat (+(* 6(length num-format))(apply '+ (mapcar '(lambda(x)(apply '+ x)) num-format)))  ;; 		    (setq Sepa (strcat "-" Sepa))))  (foreach row% matrix-num
	   (add_list (apply 'strcat (mapcar '(lambda(x y)(string:number-format (rtos y 2 5) (+ 2 (car x))(+ 2(cadr x)) " "))
					    num-format
					    row%))))
  (end_list)
  (start_dialog)
  (unload_dialog dcl_id)
  (vl-file-delete dcl-tmp)
  (setq @m:*result* result)
  (@m:draw)
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@m:menu-calc-matrix

上传记录