Help with design, development or repair of your Microsoft Access database.
Some things about me:
– 15 years of experience as an independent consultant for Access development projects
– Many references.
– Masters degree in Biostatistics.
– Have taught business development at the Boulder Small Business Development Center.
I can wrap my mind around just about any project you might throw at me.
Let me know what I can do to help your business!
Currently accepting projects of any size. Will work via virtual office
or on-site (in the Denver/Boulder area). Discounted rate schedule for
non-profit organizations and green businesses.
Expertise in:
– understanding what you really want and providing it!
– developing new databases from beginning to end
– fixing your current MS Access database to run faster, more reliably, and fully featured
– building easy-to-use user interfaces
– creating dashboards to display your current key data points, at a glance
– incorporating intelligence into the flow and logic of your database
– utilization of extreme mathematical calculations
– training you to develop/use your own MS Access databases
– integrating MS Access databases with other databases, such as Quickbooks
Skilled at:
– all versions of MS Access, and conversion between versions
– VBA programming
– mathematics, statistics, business intelligence, data mining
– small business finance
– database design
– staying on target, on budget, on deadline
; If an error (such as CTRL-C) occurs
; while this command is active…
(defun at_err (st)
(if (and (/= st “Function cancelled”) (/= st “quit / exit abort”))
(princ (strcat “\nError: ” st))
);end if
;This function get a text inside a block with attributes.
;Once the ItemTag block has been found look at its sub-entities
;searching for an attrib entity with the data text.
;SHOWS THE BLOCK NAME OF AN ENTITY
(DEFUN C:BB(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 2 bb)))
(SETQ name (strcat “Block Name… ” name))
(ALERT name)
(princ)
)
;SHOWS THE LAYER NAME OF AN ENTITY
(DEFUN C:CC(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 8 bb)))
(SETQ name (strcat “Entity Layer… ” name))
(ALERT name)
(princ)
)
; CHANGE LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:CHGLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ ENAME2 (ENTSEL “\nSelect entity to change to new layer:”))
(SETQ ELIST2 (ENTGET (CAR ENAME2)))
(SETQ NEWLIST2
(SUBST LYRPAIR (ASSOC 8 ELIST2) ELIST2)
)
(ENTMOD NEWLIST2)
)
; SET TO LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:SETLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ CULYR (CDR LYRPAIR))
(COMMAND “LAYER” “SET” CULYR “” “”)
)
; CHANGE THE SIZE OF TEXT TO A PREVIOUS SETQ SZ
(DEFUN C:TXTSZ ()
(COMMAND “CHANGE” “SI” PAUSE “” “” “” SZ “” “”)
)
; TURN LAYER OFF ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:OFFLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in layer to be turned off:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ LYR (CDR LYRPAIR))
(COMMAND “LAYER” “OFF” LYR “” “”)
)
; CULA CHANGES OBJECTS TO THE CURRENT LAYER
(DEFUN C:CULA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA” CULYR “”)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINT ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INT” PAUSE “INT” PAUSE)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINS ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INS” PAUSE “INS” PAUSE)
)
;;; -*- Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;; not-so-tiny two pick door program
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: DOORX.LSP Copyright (C) Benjamin Olasov 1988 All Rights Reserved ;;;
;;; Research/ commercial inquiries: ;;;
;;; Benjamin Olasov 310 Riverside Drive New York, NY 10025 ;;;
;;; PH (212) 678-5473 ;;;
;;; MCI-MAIL: 344-4003 ;;;
;;; CompuServe: 71450,3313 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is provided ‘as is’ without warranty of any kind, either
;; expressed or implied, including, but not limited to the implied
;; warranties of merchantability and fitness for a particular purpose.
;; The entire risk as to the quality and performance of the program is
;; with the user. Should the program prove defective, the user assumes
;; the entire cost of all necessary servicing, repair or correction.
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.
;;; ssx.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED “AS IS” WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;————————————————————————–;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; “(SSX)” – Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type “SSX” at the “Command:” prompt
;;; to create a “previous” selection set or type “(SSX)” in response to
;;; any “Select objects:” prompt. You may use the functions “(A)” to add
;;; entities and “(R)” to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget “x”) are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . “LINE”) (8 . “0”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . “LINE”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget “x”) call.
;;;
;;;————————————————————————–;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named “ent”.
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel “\nSelect object/<None>: “)))
(if ent
(progn
(setq data (entget ent))
(foreach x ‘(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove “element” from “alist”.
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= s “Function cancelled”)
(princ (strcat “\nError: ” s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt “\nFilter: “) (prin1 f1)))
(initget
“Block Color Entity Flag LAyer LType Pick Style Thickness Vector”)
(setq t1 (getkword (strcat
“\n>>Block name/Color/Entity/Flag/”
“LAyer/LType/Pick/Style/Thickness/Vector: “)))
)
(setq t2
(cond
((eq t1 “Block”) 2) ((eq t1 “Color”) 62)
((eq t1 “Entity”) 0) ((eq t1 “LAyer”) 8)
((eq t1 “LType”) 6) ((eq t1 “Style”) 7)
((eq t1 “Thickness”) 39) ((eq t1 “Flag” ) 66)
((eq t1 “Vector”) 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring “\n>>Block name to add/<RETURN to remove>: “))
((= t2 62) (initget 4 “?”)
(cond
((or (eq (setq t3 (getint
“\n>>Color number to add/?/<RETURN to remove>: “)) “?”)
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring “\n>>Entity type to add/<RETURN to remove>: “))
((= t2 8) (getstring “\n>>Layer name to add/<RETURN to remove>: “))
((= t2 6) (getstring “\n>>Linetype name to add/<RETURN to remove>: “))
((= t2 7)
(getstring “\n>>Text style name to add/<RETURN to remove>: “)
)
((= t2 39) (getreal “\n>>Thickness to add/<RETURN to remove>: “))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint “\n>>Extrusion Vector to add/<RETURN to remove>: “)
)
(T nil)
)
)
(cond
((= t2 “Pick”) (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 “”))
;; Replace with a new value…
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list…
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 “”))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget “x” f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat “\n” (itoa (sslength f2)) ” found. “))
f2
)
(progn (princ “\n0 found.”) (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ “\n “)
(princ “\n Color number | Standard meaning “)
(princ “\n ________________|____________________”)
(princ “\n | “)
(princ “\n 0 | <BYBLOCK> “)
(princ “\n 1 | Red “)
(princ “\n 2 | Yellow “)
(princ “\n 3 | Green “)
(princ “\n 4 | Cyan “)
(princ “\n 5 | Blue “)
(princ “\n 6 | Magenta “)
(princ “\n 7 | White “)
(princ “\n 8…255 | -Varies- “)
(princ “\n 256 | <BYLAYER> “)
(princ “\n \n\n\n”)
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ “\n\tType \”ssx\” at a Command: prompt or “)
(princ “\n\t(ssx) at any object selection prompt. “)
(princ)
;SHOWS THE BLOCK NAME OF AN ENTITY
(DEFUN C:BB(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 2 bb)))
(SETQ name (strcat “Block Name… ” name))
(ALERT name)
(princ)
)
;SHOWS THE LAYER NAME OF AN ENTITY
(DEFUN C:CC(/ bb name)
(SETQ bb(entget(car(entsel))))
(SETQ name (cdr(assoc 8 bb)))
(SETQ name (strcat “Entity Layer… ” name))
(ALERT name)
(princ)
)
; CHANGE LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:CHGLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ ENAME2 (ENTSEL “\nSelect entity to change to new layer:”))
(SETQ ELIST2 (ENTGET (CAR ENAME2)))
(SETQ NEWLIST2
(SUBST LYRPAIR (ASSOC 8 ELIST2) ELIST2)
)
(ENTMOD NEWLIST2)
)
; SET TO LAYER ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:SETLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in the desired layer:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ CULYR (CDR LYRPAIR))
(COMMAND “LAYER” “SET” CULYR “” “”)
)
; CHANGE THE SIZE OF TEXT TO A PREVIOUS SETQ SZ
(DEFUN C:TXTSZ ()
(COMMAND “CHANGE” “SI” PAUSE “” “” “” SZ “” “”)
)
; TURN LAYER OFF ROUTINE, FOR SINGLE SELECTION.
(DEFUN C:OFFLA ()
(SETQ ENAME (ENTSEL “\nSelect an entity in layer to be turned off:”))
(SETQ ELIST (ENTGET (CAR ENAME)))
(SETQ LYRPAIR (ASSOC 8 ELIST))
(SETQ LYR (CDR LYRPAIR))
(COMMAND “LAYER” “OFF” LYR “” “”)
)
; CULA CHANGES OBJECTS TO THE CURRENT LAYER
(DEFUN C:CULA ()
(COMMAND “CHANGE” “SI” “AUTO” PAUSE PAUSE “P” “LA” CULYR “”)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINT ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INT” PAUSE “INT” PAUSE)
)
;MOTXT MOVES TEXT FROM INSERTION POINT TO INSERTION POINT FOR REFERENCE
(DEFUN C:MOINS ()
(COMMAND “MOVE” “SI” “AUTO” PAUSE PAUSE “INS” PAUSE “INS” PAUSE)
)
;;; -*- Mode: LISP -*- Syntax: AutoLISP (C) Benjamin Olasov 1988
;;; not-so-tiny two pick door program
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;; File: DOORX.LSP Copyright (C) Benjamin Olasov 1988 All Rights Reserved ;;;
;;; Research/ commercial inquiries: ;;;
;;; Benjamin Olasov 310 Riverside Drive New York, NY 10025 ;;;
;;; PH (212) 678-5473 ;;;
;;; MCI-MAIL: 344-4003 ;;;
;;; CompuServe: 71450,3313 ;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; This program is provided ‘as is’ without warranty of any kind, either
;; expressed or implied, including, but not limited to the implied
;; warranties of merchantability and fitness for a particular purpose.
;; The entire risk as to the quality and performance of the program is
;; with the user. Should the program prove defective, the user assumes
;; the entire cost of all necessary servicing, repair or correction.
;; AutoLisp and AutoCad are registered trademarks of AutoDesk, Inc.
;;; ssx.lsp
;;; Copyright (C) 1990 by Autodesk, Inc.
;;;
;;; Permission to use, copy, modify, and distribute this software and its
;;; documentation for any purpose and without fee is hereby granted.
;;;
;;; THIS SOFTWARE IS PROVIDED “AS IS” WITHOUT EXPRESS OR IMPLIED WARRANTY.
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;;
;;; Larry Knott Version 2.0 7/18/88
;;; Carl Bethea & Jan S. Yoder Version 3.0
;;; Enhancements to (ssx).
;;; 15 March 1990
;;;
;;;————————————————————————–;
;;; DESCRIPTION
;;; SSX.LSP
;;;
;;; “(SSX)” – Easy SSGET filter routine.
;;;
;;; Creates a selection set. Either type “SSX” at the “Command:” prompt
;;; to create a “previous” selection set or type “(SSX)” in response to
;;; any “Select objects:” prompt. You may use the functions “(A)” to add
;;; entities and “(R)” to remove entities from a selection set during
;;; object selection. More than one filter criteria can be used at a
;;; time.
;;;
;;; SSX returns a selection set either exactly like a selected
;;; entity or, by adjusting the filter list, similar to it.
;;;
;;; The initial prompt is this:
;;;
;;; Command: ssx
;;; Select object/<None>: (RETURN)
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; Pressing RETURN at the initial prompt gives you a null selection
;;; mechanism just as (ssx) did in Release 10, but you may select an
;;; entity if you desire. If you do so, then the list of valid types
;;; allowed by (ssget “x”) are presented on the command line.
;;;
;;; Select object/<None>: (a LINE selected)
;;; Filter: ((0 . “LINE”) (8 . “0”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; At this point any of these filters may be removed by selecting the
;;; option keyword, then pressing RETURN.
;;;
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
;;;
;;; Filter: ((0 . “LINE”) (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
;;;
;;; If an item exists in the filter list and you elect to add a new item,
;;; the old value is overwritten by the new value, as you can have only
;;; one of each type in a single (ssget “x”) call.
;;;
;;;————————————————————————–;
;;;
;;; Find the dotted pairs that are valid filters for ssget
;;; in entity named “ent”.
;;;
;;; ssx_fe == SSX_Find_Entity
;;;
(defun ssx_fe (/ x data fltr ent)
(setq ent (car (entsel “\nSelect object/<None>: “)))
(if ent
(progn
(setq data (entget ent))
(foreach x ‘(0 2 6 7 8 39 62 66 210) ; do not include 38
(if (assoc x data)
(setq fltr
(cons (assoc x data) fltr)
)
)
)
(reverse fltr)
)
)
)
;;;
;;; Remove “element” from “alist”.
;;;
;;; ssx_re == SSX_Remove_Element
;;;
(defun ssx_re (element alist)
(append
(reverse (cdr (member element (reverse alist))))
(cdr (member element alist))
)
)
;;;
;;; INTERNAL ERROR HANDLER
;;;
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs
; while this command is active…
(if (/= s “Function cancelled”)
(princ (strcat “\nError: ” s))
)
(if olderr (setq *error* olderr)) ; Restore old *error* handler
(princ)
)
;;;
;;; Get the filtered sel-set.
;;;
;;;
(defun ssx (/ olderr)
(gc) ; close any sel-sets
(setq olderr *error*
*error* ssx_er
)
(setq fltr (ssx_fe))
(ssx_gf fltr)
)
;;;
;;; Build the filter list up by picking, selecting an item to add,
;;; or remove an item from the list by selecting it and pressing RETURN.
;;;
;;; ssx_gf == SSX_Get_Filters
;;;
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
(while
(progn
(cond (f1 (prompt “\nFilter: “) (prin1 f1)))
(initget
“Block Color Entity Flag LAyer LType Pick Style Thickness Vector”)
(setq t1 (getkword (strcat
“\n>>Block name/Color/Entity/Flag/”
“LAyer/LType/Pick/Style/Thickness/Vector: “)))
)
(setq t2
(cond
((eq t1 “Block”) 2) ((eq t1 “Color”) 62)
((eq t1 “Entity”) 0) ((eq t1 “LAyer”) 8)
((eq t1 “LType”) 6) ((eq t1 “Style”) 7)
((eq t1 “Thickness”) 39) ((eq t1 “Flag” ) 66)
((eq t1 “Vector”) 210)
(T t1)
)
)
(setq t3
(cond
((= t2 2) (getstring “\n>>Block name to add/<RETURN to remove>: “))
((= t2 62) (initget 4 “?”)
(cond
((or (eq (setq t3 (getint
“\n>>Color number to add/?/<RETURN to remove>: “)) “?”)
(> t3 256))
(ssx_pc) ; Print color values.
nil
)
(T
t3 ; Return t3.
)
)
)
((= t2 0) (getstring “\n>>Entity type to add/<RETURN to remove>: “))
((= t2 8) (getstring “\n>>Layer name to add/<RETURN to remove>: “))
((= t2 6) (getstring “\n>>Linetype name to add/<RETURN to remove>: “))
((= t2 7)
(getstring “\n>>Text style name to add/<RETURN to remove>: “)
)
((= t2 39) (getreal “\n>>Thickness to add/<RETURN to remove>: “))
((= t2 66) (if (assoc 66 f1) nil 1))
((= t2 210)
(getpoint “\n>>Extrusion Vector to add/<RETURN to remove>: “)
)
(T nil)
)
)
(cond
((= t2 “Pick”) (setq f1 (ssx_fe) t2 nil)) ; get entity
((and f1 (assoc t2 f1)) ; already in the list
(if (and t3 (/= t3 “”))
;; Replace with a new value…
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
;; Remove it from filter list…
(setq f1 (ssx_re (assoc t2 f1) f1))
)
)
((and t3 (/= t3 “”))
(setq f1 (cons (cons t2 t3) f1))
)
(T nil)
)
)
(if f1 (setq f2 (ssget “x” f1)))
(setq *error* olderr)
(if (and f1 f2)
(progn
(princ (strcat “\n” (itoa (sslength f2)) ” found. “))
f2
)
(progn (princ “\n0 found.”) (prin1))
)
)
;;;
;;; Print the standard color assignments.
;;;
;;;
(defun ssx_pc ()
(if textpage (textpage) (textscr))
(princ “\n “)
(princ “\n Color number | Standard meaning “)
(princ “\n ________________|____________________”)
(princ “\n | “)
(princ “\n 0 | <BYBLOCK> “)
(princ “\n 1 | Red “)
(princ “\n 2 | Yellow “)
(princ “\n 3 | Green “)
(princ “\n 4 | Cyan “)
(princ “\n 5 | Blue “)
(princ “\n 6 | Magenta “)
(princ “\n 7 | White “)
(princ “\n 8…255 | -Varies- “)
(princ “\n 256 | <BYLAYER> “)
(princ “\n \n\n\n”)
)
;;;
;;; C: function definition.
;;;
(defun c:ssx () (ssx)(princ))
(princ “\n\tType \”ssx\” at a Command: prompt or “)
(princ “\n\t(ssx) at any object selection prompt. “)
(princ)
AutoCAD/MS Access Frontends with SQL Backend Integration
Problem: Each Sub-Department at the Utilities Department of the University of Colorado at Boulder have specific requirements for spatial and spatial data and often, there is an overlap of information crucial to these sub-departments; operations, maintenance, management,
etc. Equipment data is stored and maintained in an SQL database with a frontend designed in MS Access. All spatial data is stored in vector based (AutoCAD) drawings. Supervisors and management want to use a frontend interface to access and analyzed spatial and spatial data
easily.
Solution: Design, create, implement and maintain a stable application database that can generate queries based on vector and spatial (text, number date) data. All graphical data are linked with attribute (spatial) data which are managed by a RDBMS. A solution needs to be developed using AutoCAD Map as a frontend with an SQL backend.
Result: Increased in cooperation and communication among departments.
Eliminated redundant spatial and aspatial data. Cleaner PID for all different systems of the Co-Generation plant. A substantial reduction of time used to track parts, quipment manufacturer, model, part number.
Enabled access to information across multiple departments apart from bringing in greater efficiency, speedy decision-making and transparency in the functioning.
Problem: Management needs to determine whether to buy electricity
or gas, when gas prices are low. An Xcel Energy contract establishes several parameters under which electricity will be bought from Utilities plant. There is no tool to perform a Cost-Benefit analysis into the
future.
Solution: This computer program evaluates the cost/benefit of selling electricity to public service vs. producing it. It is based on several intrinsic equations (from contract) that consider 12 month rolling calculations projected to the future.
Result: A simulation through June 05, using zero as capacity factor for one out of six months rolling average of 35%, shows another inconsistency in contract to be reviewed by Xcel energy.
