Placing a block on top of selected points

[John Cutler]

Hi, all --

I'm working with A2K Map, Win2000Pro....

I download GPS Lat/Long waypoints gathered in the field and, with another piece of software, create a script file (.scr) to plot them all on a layer (named something like "waypoints" and set current), as in:

_point
-94.59766,37.32756
_point
-94.59710,37.32750
_point
-94.59473,37.32734
_point
-94.59872,37.32577

I'm looking for a LISP routine that I can attach to a custom toolbar button which will allow the following process:

(a) create a layer (e.g., "waypoint symbols") to hold the symbols (see below) and make it current. I can do this prior to starting the LISP routine.

(b) select all the waypoint points with quickselect or whatever (the points can be selected before starting the LISP routine or as part of the routine)

(c) place a selected symbol (block) on top of each point, snapping the block's insertion point to each drawn point. The routine would open the path to all my blocks ("c:\orlt\related\mapping\" is the folder that opens when I click on Insert Block). The block can be selected on the fly.

(d) when the routine is completed, I can turn off the "waypoints" layer and leave the "waypoints symbols" layer on.

Anybody know of a routine that will do this?

Thanks,

John

)))))))
(o)-(o)
-----oo0---(_)---0oo--------------------------
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |

John Cutler -- Mapping/GIS Director,
Ozark Regional Land Trust
(Ozark Bioregion - MO/AR/KS/OK)
2435 Sweetwater Lane
Mansfield MO 65704
(417) 741-7363

 

[Jim Claypool]

This is untested but it should work.
The only thing you can't do is select the block.
It will have to be decided on before the routine starts.

Use:
(insblks <WAYPOINTS LAYER NAME> <DESIRED BLOCKNAME>)

(defun insblks (layname blkname / ss cnt clayer)
(setq clayer (getvar "clayer"))
;; (a) create a layer (e.g., "waypoint symbols") to hold the symbols (see ;; below) and make it current. I can do this prior to starting the LISP ;; routine (command ".layer" "m" "waypoint symbols" "")

;; (b) select all the waypoint points with quickselect or whatever (the points ;; can be selected before starting the LISP routine or as part of the routine) (setq ss (ssget "x" (list (cons 0 "POINT") (cons 8 layname)))) (setq ss (if ss ss (ssadd)))
(setq cnt 0)

;; (c) place a selected symbol (block) on top of each point, snapping the ;; block's insertion point to each drawn point. The routine would open the path ;; to all my blocks ("c:\orlt\related\mapping\" is the folder that opens when ;; I click on Insert Block). The block can be selected on the fly. ;; THE BLOCK CANNOT BE SELECTED ON THE FLY. ;; IT MUST BE ENTERED WITH THE COMMAND (repeat (sslength ss) (command ".insert" blkname (cdr (assoc 10 (entget (ssname ss cnt)))) "" "" "") (setq cnt (1+ cnt))
);end repeat

;; (d) when the routine is completed, I can turn off the "waypoints" layer and ;; leave the "waypoints symbols" layer on. (if (not (= clayer layname)) (command ".layer" "off" layname ""))

(setvar "clayer" clayer)
(princ)
)

 

[John Cutler]

Jim --

Thanks for the routine -- I'll try it out.

John

)))))))
(o)-(o)
-----oo0---(_)---0oo--------------------------
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | |

John Cutler -- Mapping/GIS Director,
Ozark Regional Land Trust
(Ozark Bioregion - MO/AR/KS/OK)
2435 Sweetwater Lane
Mansfield MO 65704
(417) 741-7363

 

[Scribble]

could you edit the script file to replace
_point
-94.59766,37.32756

with

_insert
<blockname>
-94.59766,37.32756
<x scale>
<y scale>
<rotation>
_point
@

cheers
Steve