This page describes functions for LISP. If you're interested in obtaining, please contact us. Functions are written in a not bloated way , with speed in mind.
These functions are developed in BricsCAD and work with AutoCAD too - unless stated otherwise.
Examples expect LISP files are in the "File Support Search Path" and, only in case of AutoCAD, are part of trusted locations.
Inhoud
move-pr-00-ask
Moves the previous selection set from 0,0 and pauses for input.
(move-pr-00-ask)
Accepts a destination point.
muttoff, mutton
Turn muttering off and on.
(muttoff)
Turns muttering off.
(mutton)
Turns muttering on.
save-first
Check if a drawing is saved.
(save-first
action
)Arguments
- "auto" for alert and save in appdata-local-temp.
- "exit" for alert and exit.
sel-intersect, sel-subtract, sel-union
Create a Boolean selection set from two selection sets.
(sel-intersect
ss-1
ss-2
)Return the intersecting selection of ss-1 and ss-2.
(sel-subtract
ss-base
ss-min
)Return the subtraction selection set: Subtract ss-min from ss-base.
(sel-union)
ss-base
ss-add
)Return the unionised selection set: Add ss-add to ss-base.
Return Values
A new selection set.
osoff, oson, osrec, osres, ostog
Sets and stores Object Snap.
(osoff)
Switches Object Snap off.
(oson)
Turns Object Snap on.
(osrec)
Stores the Object Snap bit sum value to local variable "osmod".
(osres)
Restores Object Snap to the bit sum value of "osmod", only if not nil.
(ostog)
Toggles Object Snap on and off.
Return Values
All functions return the resulting bit sum value.
Examples
Command: (osrec) Command: (osoff) Command: (command "line" "0.1,0.1" "1,1" "") Command: (osres) Command: (command "move" "last" "" "non" "0,0")
date-gen
Returns localized date string or sets local.
(date-gen
language
format_or_local
)or
(date-gen <eng|ned|fry|...> <DD_MMMM_YYYY|...|set-local>)
Arguments
- First argument is a supported language.
- Second argument is a date format or "set-local".
- "DD_MMMM_YYYY" returns for example "12 maart 2018"
- "set-local" creates an environment variable "iso639" with a value as specified by the user.
Return Values
A date string based on CAD variable "CDATE" or nil if no language is set.
Examples The following example uses a line command to draw a line from coordinate 0,0 to 1,1 and ends with an empty return.
Command: (load "date-gen") Command: (setq today-is (date-gen ned DD_MMMM_YYYY)) Command: _text 0,0 2.5 0 In Dutch, today is: Text: !today-is
In depth
- "date-gen.dat" contain localized data
ssv2command-list, ssv2list, char-sep-val2list
Reads a semicolon or other character separated string and returns a list.
(ssv2list
semicolon-sep-val
)Basic converter of semicolon separated string to a list. Corrects missing ending semicolons.
(char-sep-val2list
char-sep-val
character
)Converter of character separated string to a list.
(ssv2command-list
command-string
)Strict converter of semicolon separated commands string to a list.
Arguments
Syntax of 'semicolon-sep-val',and 'ssv-string' with semicolons is similar to script and menu syntax. Argument char-sep-val can be anything specified by character.
Return Values
A list with string members.
Examples The following example uses a line command to draw a line from coordinate 0,0 to 1,1 and ends with an empty return.
Command: (setq command-string "_line;0,0;1,1;;")
Command: (load "ssv2command-list")
SSV2COMMAND-LIST
Command: (setq command-list (ssv2command-list command-string))
("_line" "0,0" "1,1" "")
Command: (command command-list)(princ)
Command: _line
Start of line: 0,0
Set end point or [Angle/Length/Undo]:1,1
Set end point or [Angle/Length/Follow/Undo]:In depth
- Since spaces equal returns, texts can be challenging. Consider the following four statements:
(setq command-string "_dtext;0,0;2.5;0;A_text;;") (setq command-string "_dtext;0,0;2.5;0;With space;;") (setq command-string "_text;0,0;2.5;0;With space;;") (setq command-string "_text;0,0;2.5;0;With space;")
It is only the last statement that works well, despite the fact that it misses an empty return. Note that the current text style does not have a fixed height.