System Integrator / AutoLISP Extensions

Text Query Example

The following function performs two text queries:

the first places the room ID in all rooms regardless of whether they have an employee.
the second shows employee information within those rooms that contain one or more employees. This second query is offset in the Y direction so that it does not overwrite the results of the first query.

(defun c:afm_occup ()
(AfmQueryTextInit)
(AfmQueryTextSetAssigned "rm")
(AfmQueryTextAddField "rm.rm_id")
(AfmQueryText 2 "HL-TMP" 5.0 t 0.0 0.0 t "/" nil nil)
(AfmQueryTextInit)
(AfmQueryTextSetOwner "rm")
(AfmQueryTextSetAssigned "em")
(AfmQueryTextAddField "em.em_id")
(AfmQueryText 2 "HL-TMP2" 5.0 t 0.0 -7.5 nil ", " nil nil)
(princ)
)