Just for educational purposes I wrote a few SDS routines that might be useful for Intellicad lisp users the dll is called istrtools and contains the following functions
(iStrTrim " hello ") "hello"
(iStrTrimRight " hello ") " Hello"
(iStrTrimLeft " hello ") "Hello "
(iStrUpper " hello ") " HELLO "
(iStrLower " HeLlo ") " hello "
(iStrTrun " hello " 4) " hel"
(iStrRight "hello" 2) "lo"
(iStrLeft "hello" 2) "he"
(iStrMid "hello How are you" 6) "How are you"
(iStrRev " hello ") " olleh "
(istrParse "a,b,c,d,e" ",") "a b c d e"
(istrRemove "a,b,c,d,e" ",") "abcde"
If anyone is interested in either the source or the compiled email me at
Dmarcotte4 at excite dot com
Daniel
#2
you can find this athttp://www.theswamp.org/index.php?topic=13777.0
[This message has been edited by Danielm103 (edited 12-03-2006).]
[This message has been edited by Danielm103 (edited 12-03-2006).]
#3
here is the new list of functions
ICStrTrim " hello ")
(ICStrTrimRight " hello ")
(ICStrTrimLeft " hello ")
(ICStrUpper " hello ")
(ICStrLower " HeLlo ")
(ICStrTrun " hello " 4)
(ICStrRight "hello" 2)
(ICStrLeft "hello" 2)
(ICStrMid "hello How are you" 6)
(ICStrRev " hello ")
(ICstrParse "a,b,c,d,e" ",")
(ICstrRemove "a,b,c,d,e" ",")
(ICDriveSerialNo "c")
(ICVolumeLable "c")
(ICFileSystem "c")
(ICDriveType "c")
(ICDrives)
(IClayoutlist)//bug in intellicad
gui
(ICMessageBox "What the heck are you doing? " "Error" 5 4 )
(ICTextBox "Title" "Label" "Default Text")
or
(ICTextBox "Title" "Label")
ICStrTrim " hello ")
(ICStrTrimRight " hello ")
(ICStrTrimLeft " hello ")
(ICStrUpper " hello ")
(ICStrLower " HeLlo ")
(ICStrTrun " hello " 4)
(ICStrRight "hello" 2)
(ICStrLeft "hello" 2)
(ICStrMid "hello How are you" 6)
(ICStrRev " hello ")
(ICstrParse "a,b,c,d,e" ",")
(ICstrRemove "a,b,c,d,e" ",")
(ICDriveSerialNo "c")
(ICVolumeLable "c")
(ICFileSystem "c")
(ICDriveType "c")
(ICDrives)
(IClayoutlist)//bug in intellicad
gui
(ICMessageBox "What the heck are you doing? " "Error" 5 4 )
(ICTextBox "Title" "Label" "Default Text")
or
(ICTextBox "Title" "Label")
#4
New list, added file stuff
(ICStrTrim " hello ")
(ICStrTrimRight " hello ")
(ICStrTrimLeft " hello ")
(ICStrUpper " hello ")
(ICStrLower " HeLlo ")
(ICStrTrun " hello " 4)
(ICStrRight "hello" 2)
(ICStrLeft "hello" 2)
(ICStrMid "hello How are you" 6)
(ICStrRev " hello ")
(ICstrParse "a,b,c,d,e" ",")
(ICstrRemove "a,b,c,d,e" ",")
//
(ICDriveSerialNo "c")
(ICVolumeLable "c")
(ICFileSystem "c")
(ICDriveType "c")
(ICDrives)
//
(ICFileDelete "C:\\temp\\temp.txt")
(ICFileCopy "C:\\temp\\temp.txt" "C:\\temp\\temp2.txt")
(ICFileMove "C:\\temp\\temp2.txt" "C:\\temp\\temp.txt")
(ICFileRename "C:\\temp\\temp2.txt" "C:\\temp\\temp.txt")
//
(IClayoutlist)
//
(ICMessageBox "What the heck are you doing? " "Error" 5 4 )
(ICTextBox "Title" "Label" "Default Text")or(ICTextBox "Title" "Label")
(ICStrTrim " hello ")
(ICStrTrimRight " hello ")
(ICStrTrimLeft " hello ")
(ICStrUpper " hello ")
(ICStrLower " HeLlo ")
(ICStrTrun " hello " 4)
(ICStrRight "hello" 2)
(ICStrLeft "hello" 2)
(ICStrMid "hello How are you" 6)
(ICStrRev " hello ")
(ICstrParse "a,b,c,d,e" ",")
(ICstrRemove "a,b,c,d,e" ",")
//
(ICDriveSerialNo "c")
(ICVolumeLable "c")
(ICFileSystem "c")
(ICDriveType "c")
(ICDrives)
//
(ICFileDelete "C:\\temp\\temp.txt")
(ICFileCopy "C:\\temp\\temp.txt" "C:\\temp\\temp2.txt")
(ICFileMove "C:\\temp\\temp2.txt" "C:\\temp\\temp.txt")
(ICFileRename "C:\\temp\\temp2.txt" "C:\\temp\\temp.txt")
//
(IClayoutlist)
//
(ICMessageBox "What the heck are you doing? " "Error" 5 4 )
(ICTextBox "Title" "Label" "Default Text")or(ICTextBox "Title" "Label")
#6
I have a few things cooking, for Intellicad. I posted them here http://www.icadsales.com/index.pl?id=4005. I also created an sds that allows lisp to read write ini files but I have not posted this yet
