Jump to content

Exporting x y coordinates out of autocad map 2007 for surveying

Bert_D

By Bert_D
in AutoLISP, Visual LISP & DCL

 Share

Recommended Posts

Bert_D Newbie

Bert_D

Posted
Posted

I am in search of a lisp which puts a point with figure in a drawing when you snap a point .

It also needs to export the coordinates with the point number to a text file are a trimble m5 rec file.

It also needs to number automatic up, i need it for land surveying.

Can someone help me? meester.bert@live.nl

GEO-HAZ-MPL-1-1.jpg

Link to comment
Share on other sites
Freerefill Rising Star

Freerefill

Posted
Posted

It's incredible you should ask that, I came upon a similar problem just a few days ago.

 

Not sure if this is exactly what you're looking for, but give it a shot:

 

(defun c:pclick( / filNam start point file)
 (setq filNam "C:\\ptnumlist.txt")
 (if (not (findfile filNam)) (close (open filNam "A")))
 (setq start (getreal "\nEnter starting number: "))
 (while (setq point (getpoint "\nClick on target point: "))
   (setq file (open filnam "A"))
   (write-line (strcat (rtos start 2 0) " " (rtos (car point) 2 5) "," (rtos (cadr point) 2 5)) file)
   (setq start (1+ start))
   (close file)
   )
 )

Link to comment
Share on other sites
Bert_D Newbie

Bert_D

Posted
  • Author
Posted
It's incredible you should ask that, I came upon a similar problem just a few days ago.

 

Not sure if this is exactly what you're looking for, but give it a shot:

 

(defun c:pclick( / filNam start point file)
 (setq filNam "C:\\ptnumlist.txt")
 (if (not (findfile filNam)) (close (open filNam "A")))
 (setq start (getreal "\nEnter starting number: "))
 (while (setq point (getpoint "\nClick on target point: "))
   (setq file (open filnam "A"))
   (write-line (strcat (rtos start 2 0) " " (rtos (car point) 2 5) "," (rtos (cadr point) 2 5)) file)
   (setq start (1+ start))
   (close file)
   )
 )

 

It dindt do any thing in autocad map :cry:

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
Posted

I'm sorry, when you say snap - do you just mean that you are clicking the points where you need them, and you want these numbered and recorded?

Link to comment
Share on other sites
Bert_D Newbie

Bert_D

Posted
  • Author
Posted
I'm sorry, when you say snap - do you just mean that you are clicking the points where you need them, and you want these numbered and recorded?

 

I click on the opbject or symbol, yes the numbers need to come in a record with the pointnumber, northing and easting and the height.(pointnumber,x,y,z)

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
Posted

Surely this version of my LISP does just that:

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ptwriter  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] *error* oldcmd file num pt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] *error* [b][color=RED]([/color][/b]msg[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] oldcmd
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] oldcmd[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oldcmd [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file [b][color=RED]([/color][/b][b][color=BLUE]getfiled[/color][/b] [b][color=#ff00ff]"Create a Text File"[/color][/b] [b][color=#ff00ff]""[/color][/b] [b][color=#ff00ff]"txt"[/color][/b] [b][color=#009900]9[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]5[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] num [b][color=RED]([/color][/b][b][color=BLUE]getint[/color][/b] [b][color=#ff00ff]"\nSpecify Starting Point Number: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] file [b][color=#ff00ff]"w"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nPosition Point Number "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#ff00ff]": "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b] [b][color=#ff00ff]"_point"[/color][/b] [b][color=#ff00ff]"_non"[/color][/b] pt[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] file[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]Make_Text pt [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] num [b][color=RED]([/color][/b][b][color=BLUE]1+[/color][/b] num[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] file[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<< Points Written to File >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<!> No File Selected <!>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] oldcmd[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSIZE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] rot[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Link to comment
Share on other sites
BIGAL Grand Master

BIGAL

Posted
Posted

Well done Lee as usual quickest lisper in the west (have code for doing this) a couple of points for Bert_D most survey instruments will read a XYZ txt file so you dont need a special format file for a Trimle the file just needs Ptnum, X, Y, Z one per line. Regarding Z how were you proposing to assign the Z values to points or lines etc else the points will always be 0.0.

 

We use CIV3d plus others and they have the ability to write 3d lines and points of designs created. It would be very labour intensive if you have to manually add the Z value.

 

If you are using CIV3d then you can do what you want now by using point groups.

Link to comment
Share on other sites
eldon Grand Master

eldon

Posted
Posted
Surely this version of my LISP does just that:

 

A very nice lisp, Lee Mac. I like this version better than the previous, but could I be bold and point out a couple of areas that could be polished.

 

The point number, although it is meant to be an integer, somehow turns itself into a decimal number.

 

When in a UCS, the latest version writes the correct UCS coordinate to file, but places the point number text at WCS coordinates. The previous version wrote WCS coordinates to file, but placed the point numbers at UCS coordinates.

 

Otherwise I am keeping this one very handy :D

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
Posted
A very nice lisp, Lee Mac. I like this version better than the previous, but could I be bold and point out a couple of areas that could be polished.

 

Thanks :) , I'm always open to suggestions :D

 

The point number, although it is meant to be an integer, somehow turns itself into a decimal number.

 

Sorry, I didn't include the the decimal and 0 dp arguments in the rtos function - my mistake.

 

I wanted to keep num as a real, and display it with no dp, due to the 32767 integer limit.

 

When in a UCS, the latest version writes the correct UCS coordinate to file, but places the point number text at WCS coordinates. The previous version wrote WCS coordinates to file, but placed the point numbers at UCS coordinates.

 

I must admit, I hate the UCS and haven't included anything to cope with this in this version, but I shall incorporate your ideas :)

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
Posted

Give this a shot, it should incorporate the UCS... but I am not too good with UCS conversion, so shout if it doesn't work :P

 

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] c:ptwriter  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] *error* oldcmd file num pt[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]vl-load-com[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] *error* [b][color=RED]([/color][/b]msg[b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] oldcmd
     [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] oldcmd[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 
 [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] oldcmd [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]and[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file [b][color=RED]([/color][/b][b][color=BLUE]getfiled[/color][/b] [b][color=#ff00ff]"Create a Text File"[/color][/b] [b][color=#ff00ff]""[/color][/b] [b][color=#ff00ff]"txt"[/color][/b] [b][color=#009900]9[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]not[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]initget[/color][/b] [b][color=#009900]5[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] num [b][color=RED]([/color][/b][b][color=BLUE]getint[/color][/b] [b][color=#ff00ff]"\nSpecify Starting Point Number: "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] file [b][color=RED]([/color][/b][b][color=BLUE]open[/color][/b] file [b][color=#ff00ff]"w"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] pt [b][color=RED]([/color][/b][b][color=BLUE]getpoint[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=#ff00ff]"\nPosition Point Number "[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#ff00ff]": "[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]command[/color][/b] [b][color=#ff00ff]"_point"[/color][/b] [b][color=#ff00ff]"_non"[/color][/b] pt[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]write-line[/color][/b]
         [b][color=RED]([/color][/b][b][color=BLUE]strcat[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cadr[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]","[/color][/b]
                 [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]caddr[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b] file[b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b]Make_Text [b][color=RED]([/color][/b][b][color=BLUE]trans[/color][/b] pt [b][color=#009900]1[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num [b][color=#009900]2[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b] [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] num [b][color=RED]([/color][/b][b][color=BLUE]+[/color][/b] num [b][color=#009999]1.[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]close[/color][/b] file[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<< Points Written to File >>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b] [b][color=#ff00ff]"\n<!> No File Selected <!>"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"CMDECHO"[/color][/b] oldcmd[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

[b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] Make_Text  [b][color=RED]([/color][/b]pt val rot[b][color=RED])[/color][/b]
 [b][color=RED]([/color][/b][b][color=BLUE]entmake[/color][/b]
   [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]0[/color][/b] [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]8[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"CLAYER"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] pt[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]40[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSIZE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] val[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]50[/color][/b] rot[b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]7[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]getvar[/color][/b] [b][color=#ff00ff]"TEXTSTYLE"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]73[/color][/b] [b][color=#009900]2[/color][/b][b][color=RED])[/color][/b]
     [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]11[/color][/b] pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

Link to comment
Share on other sites
eldon Grand Master

eldon

Posted
Posted

Fantastic Lee Mac :D

 

The ucs works fine. There were two more instances of (rtos num) in the screen prompt and the data file, but I have managed on my own :shock: to cope with those. Also my TEXTSIZE was not being picked up, and I prefer the justification to be LEFT, but again I have coped with those.

 

A big THANK YOU. It is a lisp that I shall be using a great deal. :D

 

I hope this is not taking up too much time during your exams - perhaps your form of relaxation?

Link to comment
Share on other sites
Lee Mac Grand Master

Lee Mac

Posted
Posted
Fantastic Lee Mac :D

 

The ucs works fine. There were two more instances of (rtos num) in the screen prompt and the data file, but I have managed on my own :shock: to cope with those. Also my TEXTSIZE was not being picked up, and I prefer the justification to be LEFT, but again I have coped with those.

 

Ahh yes, maybe I shouldn't've altered it quite so hurriedly.... :P

 

 

A big THANK YOU. It is a lisp that I shall be using a great deal. :D

 

I hope this is not taking up too much time during your exams - perhaps your form of relaxation?

 

No problem Eldon, I love it when you know that a LISP that you wrote is being put to good use - gives you some sense of pride :D

 

As for the exams, I have them in 9 days, and have done some revision, but probably not as much as I should - I just enjoy writing the programs too much...

 

Lee

Link to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.
Note: Your post will require moderator approval before it will be visible.

Guest
Unfortunately, your content contains terms that we do not allow. Please edit your content to remove the highlighted words below.
Reply to this topic...

×   Pasted as rich text.   Restore formatting

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
 Share
Go to topic listing
×
×
  • Create New...