How do I add a text or symbol to a Flat???

[jkramer]

Hi,

I'm trying to make a lisp routine that automatically puts symbols in round holes of the Annotation flat of a sheet metal part.
I have no problems in doing a similar action in a normal 2d view, but a flat seems to refuse texts and symbols.
Here's an example of what I mean:

(in-package :OLI)
(use-package :OLI)

(sd-defdialog 'Place_text
  :dialog-title "Place Text"

  :variables 
  	'(
   		(owner :value-type :docupart :Title "owner")
	    (place :value-type :docupntcnp :Title "place")
	) 
	
  :local-functions 
  	'(
   		(doit ()
		(sd-am-create-text :text "*" :position place :owner_type :2dview :owner owner)
        )
	)


  :ok-action
	'(doit)
)

It works fine if I use this with "normal" views, but not in Flat views
Doe s anybody have a clue???
Thanks,
Regards,
Jaap Kramer

[GiorgioL]

Hi, jaap
change the row:

(sd-am-create-text :text "*" :position place :owner_type :2dview :owner owner)

with two rows:

(am_geo_set_domain :prompt-var "VIEW" owner)
(am_create_text :go :ok :build_in :docu-text "*" :place place)

Now you are able to put any text in any position.

Regards. GiorgioL.

[jkramer]

YES!
This is what I needed!
Thanks,
Jaap

[ChrisE]

Hi Jaap,

some recommendations regarding your example:

You shouldn't export your user-defined Lisp-functions into the IKIT package OLI. You better use your own package, so the code would e.g. read like this:

(in-package :JAAP)
(use-package :OLI)

And you should wrap all your calls to OSD functions with sd-call-cmds, e.g.
(sd-call-cmds (progn
(sd-am-.....)
(sd-am-.....)
))

This allows for better cleanup-handling, and prevents the OSD functions from terminating your dialog.

Chris