@pm:set-tuhao

说明:设置

用法:

 (@pm:set-tuhao ss-list)

参数:ss-list

返回值:

示例:

(defun @pm:set-tuhao (ss-list / num1 start )
  (@:help '("按设定的排列顺序重置框的图纸编号"))
  (if @:*auto-mode*
      (setq start 1)
    (setq start (getint "请输入图纸起始编号<1>:")))
  (if (null start) (setq start 1))
  (setq num1 0)
  (setq sub-num 0)
  ;;(print (length ss-list))  (foreach en0 ss-list
	   ;;写入专业图别	   (cond
	    ((or (p:enamep en0)
		 (and (listp en0)
		      (= 1 (length en0))))
	     (if (listp en0)(setq en0 (car en0)))
	     (if (and (= "" (@pm:get-tubie (@pm:get-frame-info en0)))
		      (/= "" (@::get-config '@pm:profession-name)))
		 (block:set-attributes en0
				       (list (cons (@::get-config '@pm:profession-name) (@::get-config '@pm:my-profession)))))
	     (print  "test1")

(block:set-attributes
	      en0
	      (list (cons (@:get-config '@pm:drawing-number)
			  (strcat
			   (cond
			    ((/= "" (@:get-config '@pm:drawing-number-prefix))
			     (strcat (@:get-config '@pm:drawing-number-prefix) "-"))
			    ((and (@pm:get-tubie (block:get-attributes en0))
				  (/= "" (@pm:get-tubie (block:get-attributes en0)))
				  (null (member (cdr (assoc (@::get-config '@pm:profession-name) (block:get-attributes en0)))
						(append  (string:to-list (@:get-config '@pm:ml-order) ";" )
							 (string:to-list (@:get-config '@pm:ml-order-preliminary) ";" )
							 (string:to-list (@:get-config '@pm:ml-order-rf) ";"))))
				  )
			     (strcat (@pm:get-tubie (block:get-attributes en0)) "-"))
			    ((assoc (@::get-config '@pm:profession-name) (block:get-attributes en0)) "")
			    ((/= "" (@:get-config '@pm:my-profession))
			     (strcat (@:get-config '@pm:my-profession) "-"))
			    (t "")
			    )
			   ;; (if (< (+ num1 start) 10) "0" "")			   (string:number-format (itoa (+ num1 start))
						 (@::get-config '@pm:drawing-number-bits)
						 0
						 "0")
			   ))
		    )))
	    (print  "test2")

((and (listp en0)
		  (< 1 (length en0)))
	     (setq sub-num 0)
	     (foreach
	      en0% en0
	      (if (= ""(@pm:get-tubie (@pm:get-frame-info en0%)))
		  (block:set-attributes en0%
					(list (cons (@::get-config '@pm:profession-name) (@::get-config '@pm:my-profession)))))
	      
	      (block:set-attributes
	       en0%
	       (list (cons (@:get-config '@pm:drawing-number)
			   (strcat
			    (cond
			      ((/= "" (@:get-config '@pm:drawing-number-prefix))
			       (strcat (@:get-config '@pm:drawing-number-prefix) "-"))
			      ((and (@pm:get-tubie (block:get-attributes en0%))
				    (/= "" (@pm:get-tubie (block:get-attributes en0%)))
				    (null (member (cdr (assoc (@::get-config '@pm:profession-name) (block:get-attributes en0%)))
						  (append  (string:to-list (@:get-config '@pm:ml-order) ";" )
							   (string:to-list (@:get-config '@pm:ml-order-preliminary) ";" )
							   (string:to-list (@:get-config '@pm:ml-order-rf) ";"))))
				    )
			       (strcat (@pm:get-tubie (block:get-attributes en0%)) "-"))
			      ((assoc (@::get-config '@pm:profession-name) (block:get-attributes en0%)) "")
			      ((/= "" (@:get-config '@pm:my-profession))
			       (strcat (@:get-config '@pm:my-profession) "-"))
			      (t "")
			      )
			    ;; (if (< (+ num1 start) 10) "0" "")			    (string:number-format (itoa (+ num1 start))
						  (@::get-config '@pm:drawing-number-bits)
						  0
						  "0")
				    "-"
				    (string:number-format (itoa (setq sub-num (1+ sub-num)))
							  (@::get-config '@pm:drawing-number-bits)
							  0
							  "0")
				    ))
		     )))
	     
	     ))
	   (setq num1 (1+ num1)))
  )

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@pm:set-tuhao

上传记录