List coordinate by select point group

February 16, 2009

I must agree with eldon here - with a selection set pick one cannot guarantee the order of the entities within the set and so when the numbers are assigned to the points, they may appear "random" - but even so the number assigned to the point on the drawing will be the same as the number on the txt file.

February 16, 2009

Try this (untested and written quickly between lectures!)

(defun c:ptwriter  (/ file ss num eLst)
 (vl-load-com)
 (if (and (setq file (getfiled "Create a Text File" "[b][color=Red]C:\\[/color][/b]" "txt" 9)
        ss   (ssget '((0 . "POINT"))))
      (not (initget 5))
      (setq num (getint "\nSpecify Starting Point Number: ")))
   (progn
     (setq file (open file "w")
       eLst (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))))
     (foreach e  eLst
   (write-line
     (strcat (rtos num) ","
         (rtos (cadr (assoc 10 e))) ","
         (rtos (caddr (assoc 10 e))) ","
         (rtos (cadddr (assoc 10 e)))) file)
   (Make_Text (cdr (assoc 10 e)) (rtos num))
   (setq num (1+ num))))
   (princ "\n<!> No File Selected or No Points found <!>"))
 (princ "\n<< Points Written to File >>")
 (close file)
 (princ))

(defun Make_Text  (txt_pt txt_val)
 (entmake (list '(0 . "TEXT")
        '(8 . "0")
        (cons 10 txt_pt)
        (cons 40 (max 2.5 (getvar "TEXTSIZE")))
        (cons 1 txt_val)
        '(50 . 0.0)
        '(7 . "STANDARD")
        '(71 . 0)
        '(72 . 1)
        '(73 . 2)
        (cons 11 txt_pt))))

The highlighted section can be changed to change the default search path for the text file.

At the moment, the text file will be prompted to be saved just in the C-drive - to change this specify a valid filepath, and format as follows:

"C:\\Users\\Lee Mac\\Documents\\"

Using double backslashes and ending at folder level (i.e. with a double backslash).

Hope this helps!

Lee

March 5, 2009

Hi Lee Mac,

Thanks for your posting. Your lsp works well, and is ideal for selecting a rectangular section of data - much better than the whole drawing.

I'm sorry if I didn't explain it well to start with, but what I was really hoping for was to pick EACH point manually using a snap selection tool.

1. Select text file name

2. Preferably select starting point number to count from

3. Select points from drawing - By selecting each point in turn using a snap selection tool

4. Lsp will then automatically plot a point number (next to each point) on the drawing ( E,N,Z is not required to be plotted) at each point

5. These points will be written to a text file as per your routine in format number,E,N,Z

6. Purpose is I can then take a drawing onto site, select the point number I wish to set out (from the plotted numbers on the drawing) and then select this point (which will contain the coords) from my data logger for setting out.

Are you able to help me out?

Many thanks

Surveyman

March 5, 2009

Perhaps:

(defun c:ptwriter  (/ file num ptent elst)
 (vl-load-com)
 (if (and (setq file (getfiled "Create a Text File" "" "txt" 9))
      (not (initget 5))
      (setq num (getint "\nSpecify Starting Point Number: ")))
   (progn
     (setq file (open file "w"))
     (while (and (setq ptent (car (entsel "\nSelect a Point... ")))
         (eq "POINT" (cdadr (setq elst (entget ptent)))))
   (write-line
     (strcat (rtos num) ","
         (rtos (cadr (assoc 10 elst))) ","
         (rtos (caddr (assoc 10 elst))) ","
         (rtos (cadddr (assoc 10 elst)))) file)
   (make_text (cdr (assoc 10 elst)) (rtos num))
   (setq num (1+ num)))
     (close file)
     (princ "\n<< Points Written to File >>"))
   (princ "\n<!> No File Selected <!>"))  
 (princ))

(defun make_text  (txt_pt txt_val)
 (entmake (list '(0 . "TEXT")
        '(8 . "0")
        (cons 10 txt_pt)
        (cons 40 (max 2.5 (getvar "TEXTSIZE")))
        (cons 1 txt_val)
        '(50 . 0.0)
        '(7 . "STANDARD")
        '(71 . 0)
        '(72 . 1)
        '(73 . 2)
        (cons 11 txt_pt))))

March 5, 2009

Or how about this:

(defun c:ptwriter  (/ *error* oldcmd file num pt elst)
 (vl-load-com)
 (defun *error* (msg) (setvar "CMDECHO" oldcmd) (princ))
 (setq oldcmd (getvar "CMDECHO")) (setvar "CMDECHO" 0)
 (if (and (setq file (getfiled "Create a Text File" "" "txt" 9))
      (not (initget 5))
      (setq num (getint "\nSpecify Starting Point Number: ")))
   (progn
     (setq file (open file "w"))
     (while (setq pt (getpoint (strcat "\nPosition Point Number " (rtos num) ": ")))
   (command "_point" pt)
   (setq elst (entget (entlast)))
   (write-line
     (strcat (rtos num) ","
         (rtos (cadr (assoc 10 elst))) ","
         (rtos (caddr (assoc 10 elst))) ","
         (rtos (cadddr (assoc 10 elst)))) file)
   (make_text (cdr (assoc 10 elst)) (rtos num))
   (setq num (1+ num)))
   (close file)
   (princ "\n<< Points Written to File >>"))
   (princ "\n<!> No File Selected <!>"))  
 (setvar "CMDECHO" oldcmd)
 (princ))

(defun make_text  (txt_pt txt_val)
 (entmake (list '(0 . "TEXT")
        '(8 . "0")
        (cons 10 txt_pt)
        (cons 40 (max 2.5 (getvar "TEXTSIZE")))
        (cons 1 txt_val)
        '(50 . 0.0)
        '(7 . "STANDARD")
        '(71 . 0)
        '(72 . 1)
        '(73 . 2)
        (cons 11 txt_pt))))

April 21, 2009

Hi Lee Mac,

It's been a while, but I thought i would revisit this again. Is there any way you could have a look at your 2 most recent postings? They start off OK, asking for a file name and starting point number. But after selecting the 1st (possibly of several (dozen?) points I may wish to MANUALLY select, the lsp appears to stop. Do you know why?

Here is a reminder of the ideal workflow

1. Select text file name

2. Preferably select starting point number to count from

3. Select points from drawing - By selecting each point in turn using a snap selection tool

4. Lsp will then automatically plot a point number (next to each point) on the drawing ( E,N,Z is not required to be plotted) at each point

5. These points will be written to a text file as per your routine in format

number,E,N,Z

number,E,N,Z

6. Purpose is I can then load the .txt file into my electronic data logger, select the point number I need and then set it out.

Many thanks for your help.

Surveyman

April 21, 2009

I haven't looked at this in a while - I shall take a look

EDIT: I can't seem to replicate your problem, I can keep clicking points for as long as I want, then when I hit enter, the points are written to the file.

April 21, 2009

I have done nothing different, and now mine is working - still puzzled as to why - looks ideal.

Which line would I change in the lsp to alter the text size or is it better to change in CAD afterwards?

Regards

April 21, 2009

See the highlighted below:

(defun c:ptwriter  (/ *error* oldcmd file num pt elst)
 (vl-load-com)
 (defun *error* (msg) (setvar "CMDECHO" oldcmd) (princ))
 (setq oldcmd (getvar "CMDECHO")) (setvar "CMDECHO" 0)
 (if (and (setq file (getfiled "Create a Text File" "" "txt" 9))
      (not (initget 5))
      (setq num (getint "\nSpecify Starting Point Number: ")))
   (progn
     (setq file (open file "w"))
     (while (setq pt (getpoint (strcat "\nPosition Point Number " (rtos num) ": ")))
   (command "_point" pt)
   (setq elst (entget (entlast)))
   (write-line
     (strcat (rtos num) ","
         (rtos (cadr (assoc 10 elst))) ","
         (rtos (caddr (assoc 10 elst))) ","
         (rtos (cadddr (assoc 10 elst)))) file)
   (make_text (cdr (assoc 10 elst)) (rtos num))
   (setq num (1+ num)))
   (close file)
   (princ "\n<< Points Written to File >>"))
   (princ "\n<!> No File Selected <!>"))  
 (setvar "CMDECHO" oldcmd)
 (princ))

(defun make_text  (txt_pt txt_val)
 (entmake (list '(0 . "TEXT")
        '(8 . "0")
        (cons 10 txt_pt)
        (cons 40 [b][color=Red](max 2.5 (getvar "TEXTSIZE"))[/color][/b])
        (cons 1 txt_val)
        '(50 . 0.0)
        '(7 . [color=Blue][b]"STANDARD"[/b][/color])
        '(71 . 0)
        '(72 . 1)
        '(73 . 2)
        (cons 11 txt_pt))))

See highlighted:

(max 2.5 (getvar "TEXTSIZE"))

means that it will get the textsize variable and if that is bigger than 2.5, use it, otherwise the text height will be 2.5.

You can alter the text height by just replacing the whole red section with a number of your choice.

You can also change the text style if you wish by changing the whole blue section to a style of your choice, (and use quotation marks), but the style must be a valid text style.

April 24, 2009

Lee Mac

Great job,

But how can we extract points without clickin' one by one ?

Something like this

http://www.cadtutor.net/forum/showpost.php?p=22709&postcount=10

txt file format:

number,E,N,Z

April 24, 2009

Lee Mac
Great job,

But how can we extract points without clickin' one by one

Something like this

http://www.cadtutor.net/forum/showpost.php?p=22709&postcount=10

txt file format:

number,E,N,Z

You have to click one by one to get the points in the proper order, unless you do not mind having the points in apple-pie order.

April 24, 2009

This:

[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 ss elst[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]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]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=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"POINT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/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]foreach[/color][/b] ent  [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]listp[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] elst [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][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]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][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] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][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]cadddr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][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]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[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]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]txt_pt txt_val[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=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]8[/color][/b] . [b][color=#ff00ff]"0"[/color][/b][b][color=RED])[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] txt_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]max[/color][/b] [b][color=#009999]2.5[/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=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] txt_val[b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]50[/color][/b] . [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]7[/color][/b] . [b][color=#ff00ff]"STANDARD"[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/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] txt_pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]

But take note of what Eldon said

April 25, 2009

Thanks Lee Mac.

                 [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]8[/color][/b] . [b][color=#ff00ff]"0"[/color][/b][b][color=RED])[/color][/b]

This string above is the one for the Layer,right?

What about printin' the numbers in the current layer?

April 25, 2009

OK:

[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 ss elst[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]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]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=BLUE]setq[/color][/b] ss [b][color=RED]([/color][/b][b][color=BLUE]ssget[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"POINT"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/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]foreach[/color][/b] ent  [b][color=RED]([/color][/b][b][color=BLUE]vl-remove-if[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]listp[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]mapcar[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=BLUE]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]ssnamex[/color][/b] ss[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
       [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] elst [b][color=RED]([/color][/b][b][color=BLUE]entget[/color][/b] ent[b][color=RED])[/color][/b][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]cadr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][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] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][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]cadddr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][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]cdr[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=#009900]10[/color][/b] elst[b][color=RED])[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]rtos[/color][/b] num[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]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]txt_pt txt_val[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=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"TEXT"[/color][/b][b][color=RED])[/color][/b]
                [b][color=RED]([color=Blue]cons[/color] [/color][/b][b][color=#009900]8[/color][/b] [b][b][color=Red]([/color][/b][color=Blue][b]getvar[/b][/color] [b][color=Magenta]"CLAYER"[/color][color=Red])[/color][/b][/b][b][color=RED])[/color][/b]
                [b][color=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]10[/color][/b] txt_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]max[/color][/b] [b][color=#009999]2.5[/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=RED]([/color][/b][b][color=BLUE]cons[/color][/b] [b][color=#009900]1[/color][/b] txt_val[b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]50[/color][/b] . [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]7[/color][/b] . [b][color=#ff00ff]"STANDARD"[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
                [b][color=DARKRED]'[/color][/b][b][color=RED]([/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] txt_pt[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])

[/color][/b]

April 25, 2009

thanks a lot

April 25, 2009

No Problem - anything else, just ask

April 26, 2009

Just a note to post my thanks for your time and help. Your input is appreciated.

Regards

Surveyman

April 26, 2009

Just a note to post my thanks for your time and help. Your input is appreciated.
Regards

Surveyman

Cheers Surveyman, glad to have contributed

Sign In

List coordinate by select point group

Recommended Posts

Lee Mac

Top Posters In This Topic

Popular Days

Top Posters In This Topic

Popular Days

Lee Mac

surveyman

Lee Mac

Lee Mac

surveyman

Lee Mac

surveyman

Lee Mac

tagkelas

eldon

Lee Mac

tagkelas

Lee Mac

tagkelas

Lee Mac

surveyman

Lee Mac

Join the conversation

Tutorials

Forums

Activity