@pm:insert-mulu-to-dwg

说明:插入

用法:

 (@pm:insert-mulu-to-dwg)

参数:

返回值:

示例:

(defun @pm:insert-mulu-to-dwg (/ *error* mulu-path fp% mulu% i% insert-point% page-number% zhuanye ml-ruler ml-order prj-info)
  (defun *error* (msg)
    (pop-var)
    (princ msg)
    (princ)
    )
  (@:help (strcat "选择一个图框，根据图框的工程信息在DWG中插入图纸目录。\n"
		  "      目录内容为各专业在工程输出目录下生成的各自的专业目录。\n"
		  "操作步骤：\n"
		  "      1. 选择一个图框。\n"
		  "      2.点击一个插入点。\n然后系统会读取工程输出目录下的目录文件"
		  "插入目录到当前图形中。"))
  (setq prj-info  (@pm:get-prj-info-from-tukuang))
  (if prj-info
      (progn
	(setq mulu-path(@pm:mulu-path prj-info))
	(@:prompt mulu-path)
	)
      (setq mulu-path nil))
  (setq liebiao nil)
  (cond
   ((member (@pm:get-tubie prj-info) (string:to-list (@:get-config '@pm:ml-order) ";"))
    (setq liebiao (string:to-list (@:get-config '@pm:ml-order) ";")))
   ((member (@pm:get-tubie prj-info) (string:to-list (@:get-config '@pm:ml-order-rf) ";"))
    (setq liebiao (string:to-list (@:get-config '@pm:ml-order-rf) ";")))
   ((member (@pm:get-tubie prj-info) (string:to-list (@:get-config '@pm:ml-order-preliminary) ";"))
    (setq liebiao (string:to-list (@:get-config '@pm:ml-order-preliminary) ";")))
   ((null liebiao)
    (alert (strcat
	    (if (/= "" (@pm:get-tubie prj-info))
		(@pm:get-tubie prj-info)
	      (progn (car (string:to-list (cdr (assoc "图号" prj-info)) "-"))))
	    " 不符合目录汇总的专业要求。请设置配置项 @pm:ml-order 的值。"))
    (@pm:setup))
   )
  (if mulu-path
      (progn
	(setq ml-ruler (mapcar 'atoi (string:to-list (@:get-config '@pm:ml-ruler) ";")))
	(setq insert-point% (getpoint "请输入目录插入起始点："))
	(setq i% 0)(setq page-number% 1)
	(push-var nil)
	(setvar "osmode" 16384)
	(foreach zhuanye liebiao
		 (if (findfile (strcat mulu-path "\\" zhuanye ".csv"))
		     (progn
		       (setq fp% (open (strcat mulu-path "\\" zhuanye ".csv") "r"))
		       (while (setq mulu-s%  (read-line fp%))
			 (print mulu-path)(print zhuanye)(print mulu-s%)
			 (setq mulu% (string:to-list mulu-s% ","))
			 (if (= 3 (length mulu%))
			     (progn
			       (entity:make-text (itoa page-number%)
						 (list (+ (nth 0 insert-point%)(nth 1 ml-ruler) )
						       (- (nth 1 insert-point%)
							  (* i% (nth 0 ml-ruler)) -120)
						       0) 350 0 0.72 0 11)
			       (entity:make-text (nth 0 mulu%)
						 (list (+ (nth 0 insert-point%) (nth 2 ml-ruler))
						       (- (nth 1 insert-point%)
							  (* i% (nth 0 ml-ruler)) -120)
						       0) 350 0 0.72 0 11)
			       (entity:make-text (nth 1 mulu%)
						 (list (+ (nth 0 insert-point%) (nth 3 ml-ruler))
						       (- (nth 1 insert-point%)
							  (* i% (nth 0 ml-ruler)) -120)
						       0) 350 0 0.72 0 11)
			       (entity:make-text (nth 2 mulu%)
						 (list (+ (nth 0 insert-point%) (nth 4 ml-ruler))
						       (- (nth 1 insert-point%)
							  (* i% (nth 0 ml-ruler)) -120)
						       0) 350 0 0.72 0 11)
			       (setq page-number% (1+ page-number%))))
			 (setq i% (1+ i%)))
		       (close fp%)
		       (setq i% (1+ i%))
		       )))
	(pop-var)
	)
    (@:alert "未选中工程图框。"))
  (princ))

@lisp 函数库

介绍

调用函数

安装教程

快速上手：

@pm:insert-mulu-to-dwg

上传记录