|
Time Estimates for Completion
|
||
|---|---|---|
|
Implement a Job Data Exporter.
|
Description:
|
5 minutes
|
|
Lab exercise:
|
15 minutes
|
|
(in-package :frame2)
;;-------------------------
;; utilities
;;-------------------------
(load "JobUtilities.lsp")
;;------------------------------------------------------------------------------
;; This is the routine that is called by the automation framework in Modeling.
;; When this routine is called, the current directory of Modeling is the one
;; where the input data can be found.
;;
;; parameter : <output-directory> directory for output data
;; return : <error-message> return value 'nil' ==> success
(defun run-job (output-directory)
(let* (
;; parameters provided by the job
(ann-model-file-name "%AnnotatedModelFileName%")
(check-type :minimal_check)
;; the item to check
(part-to-check nil)
;; variables for XML serialization
(results-element (xml:xml-list-create-element "results"))
(xml-file (create-path output-directory "index.xml"))
;; variables for writing the output file
(file-zipname "model.pkg") ;; the real name of the result file in the ZIP archive
(file-path (create-path output-directory file-zipname)) ;; the path of the result file
(file-name (format nil "~A.pkg" (if (oli:sd-string= ann-model-file-name "") "AnnotatedModel" ann-model-file-name))) ;; the symbolic name of the result file
)
;;---------------------------------------------
;; load input & call the part checker
;;---------------------------------------------
(load-job-data "%ModelFile%")
(setf part-to-check (oli:sd-inq-obj-children (get-all-at-top)))
(k2-ui::check_part :objects part-to-check check-type :labels :on :keep_labels :on)
(collect-check-results (frame2:getres) results-element)
;; -------------------
;; write result data
;; -------------------
;; write the annotated model
(frame2::save-all-in-package file-path)
;; and make a corresponding entry in the index.xml
(xml:xml-list-add-child results-element (make-result-file-element "PKG" :file file-zipname :name file-name))
;;------------------------------------------------------------------------
;; write the index.xml
;; write-xml-to-list serializes the list into XML (see JobUtilities.lsp)
;;------------------------------------------------------------------------
(write-xml-list-to-file results-element xml-file)
;;------------------------------
;; return = nil means 'no error'
;;------------------------------
(get-automation-error)
) ; let
)
(defun collect-check-results (part-check-result results-element)
(let* (
(error-entries (cdr (assoc k2-ui::*body-check-error-string* part-check-result)))
(model-state (if (> (length error-entries) 0) "model_corrupt" "model_ok"))
)
(xml:xml-list-add-attribute results-element "modelcheck" model-state)
)
)
package com.acme;
import java.io.IOException;
import java.text.MessageFormat;
import java.util.Properties;
import com.osm.automation.ModelingJobExporter;
import com.osm.biz.WMSession;
import com.osm.datamgmt.biz.Model;
import com.osm.datamgmt.biz.VersionableDoc;
import com.osm.exception.WMException;
public class SimpleModelGeometryCheckJobExporter extends ModelingJobExporter {
public static final String ANNOTATED_MODEL_FILE_NAME_KEY = "AnnotatedModelFileName";
public SimpleModelGeometryCheckJobExporter() {
super("SimpleModelGeometryCheckTemplate.lsp", VersionableDoc.HIGHEST_REVISIONS);
}
@Override
protected void writeDataFiles(String modelElid, String modelLoadRule, Properties jobParameters)
throws IOException, WMException {
String annotatedModelFileName = null;
Model model = null;
try {
model = (Model) WMSession.getWMSession().openElement(modelElid, false);
annotatedModelFileName = MessageFormat.format("{0}_{1}", model.getName(), model.getState());
} finally {
WMSession.getWMSession().close(model);
}
jobParameters.put(ANNOTATED_MODEL_FILE_NAME_KEY, annotatedModelFileName);
super.writeDataFiles(modelElid, modelLoadRule, jobParameters);
}
}
|
|
Many model attributes are also accessible from LISP. Don't write custom Java classes if it is not really necessary.
|
<?xml version="1.0" encoding="UTF-8"?>
<Job type="modeling.simplegeometrycheck" has_result_data="true">
<DisplayName>Simple Model Geometry Check</DisplayName>
<UI>
<ActionMenu wm_java_class="com.osm.datamgmt.biz.Model" include_derived="true">
<Name>Simple Model Geometry Check</Name>
<JobGroup>Model Checks</JobGroup>
<Action java_class="com.osm.automation.action.MultiSelectCreateJobScheduleAction">
<Description>Checks a model's geometry</Description>
</Action>
</ActionMenu>
</UI>
<Exporter java_class="com.acme.SimpleModelGeometryCheckJobExporter">
<StartScriptTemplate>SimpleModelGeometryCheckTemplate.lsp</StartScriptTemplate>
<ModelLoadRule catalog="model" msg_num="728">Highest Revisions</ModelLoadRule>
</Exporter>
<ResultHandler java_class="com.osm.automation.SaveToFileSystemJobResultHandler">
<TargetDirectory>C:\taskagent</TargetDirectory>
</ResultHandler>
</Job>
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<job type="modeling.simplegeometrycheck" version="20.8">
<element id="BY6ID3742VLI3N" timestamp="1192720161000"/>
<datadirectory/>
<scriptdirectory/>
<startscript>SimpleModelGeometryCheckTemplate.lsp</startscript>
<parameters>
<parameter key="parameter-name">parameter-value</parameter>
...
</parameters>
</job>
<?xml version="1.0" encoding="UTF-8" standalone="no"?>
<job type="modeling.simplegeometrycheck" version="20.8">
<element id="BY6ID3742VLI3N" timestamp="1192720161000"/>
<datadirectory/>
<scriptdirectory/>
<startscript>SimpleModelGeometryCheckTemplate.lsp</startscript>
<parameters>
<parameter key="AnnotatedModelFileName">Cylinder_work</parameter>
<parameter key="ModelFile">model.sdexp</parameter>
<parameter key="ModelLoadRule">AS_STORED</parameter>
<parameter key="ModelName">Cylinder</parameter>
<parameter key="StartScriptTemplate">SimpleModelGeometryCheckTemplate.lsp</parameter>
<parameter key="TargetDirectory">E:\taskagent</parameter>
</parameters>
</job>