SchemeExt:Acis journal:set

From DocR23

Contents 1 Action 2 Filename 3 APIs 4 Syntax 5 Argument Types 6 Returns 7 Description 8 Arguments 9 Example

Action

Sets the parameters for journaling functions.

Filename

scm/scmext/kern/journal_scm.cpp

APIs

api_set_journal_name

Syntax

(acis_journal:set [journal | acis-opts]  ["file" "filename"])

Argument Types

Argument	Scheme Data Type
journal	acis-journal
acis-opts	acis-options
"file"	string
"filename"	string

Returns

acis-journal

Description

Makes or edits an acis-journal object, sets the file name, and returns a new journal object if no parameters are specified. If an acis-journal or acis-options object is passed, it is modified and returns that object.

Arguments

• journal specifies the acis-journal object that has to be modified.
• acis-opts specifies the acis-options object that has to be modified.
• "file" is a string indicating the field in the acis-options or acis-journal object. The path of the file is relative acis3dt's working directory, unless an absolute path is given.
• "filename" is a string containing the name of the file for the journaling operation.

Example

; acis_journal:set 
; set a journal file 
(define j (acis_journal:set "file" "sweep_journal_example")) 
;; j 
(define v (versiontag 7 0 0)) 
;; v 
(define ao (acisoptions:set "journal" j "version" v)) 
;; ao 
(define b1 (solid:block (position 0 0 0) (position 3 1 1))) 
;; b1 
(define b2 (solid:block (position 2 0 0) (position 3 6 1))) 
;; b2 
(define b3 (solid:block (position 0 5 0) (position 3 6 1))) 
;; b3 
(define b4 (solid:block (position 0 0 0) (position 1 6 1))) 
;; b4 
(zoom-all) 
;; #view [1049866] 
(acis_journal:start ao) 
;; #t
(define u (bool:unite b1 b2 ao)) 
;; u 
(acis_journal:pause ao) 
;; #t
(define u1 (bool:unite b1 b3 ao)) 
;; u1 
(acis_journal:resume ao) 
;; #t
(define u2 (bool:unite b1 b4 ao)) 
;; u2 
(acis_journal:end ao) 
;; #t

; acis_journal:set 
; set a journal file 
(define j (acis_journal:set "file" "c:/block_example_journal.scm")) 
;; j 
(define v (versiontag 20 0 0)) 
;; v 
(define ao (acisoptions:set "journal" j "version" v)) 
;;ao
(acis_journal:start ao) 
;;t
(define b (solid:block 0 0 0 9 9 9))
;;b
(acis_journal:end ao) 
;;t