home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
games
/
misc_lsp.zip
/
CONVERT.LSP
< prev
next >
Wrap
Text File
|
1987-06-11
|
935b
|
32 lines
; Converts 2Dlines to 3Dlines with Z coord. set to current elevation
; Ian Kitching June 8, 1987
(DEFUN DRAW ()
(setq a (cdr (assoc 10 get)))
(setq b (cdr (assoc 11 get)))
(setq a (append a ele))
(setq b (append b ele))
(COMMAND "3DLINE" A B)
(COMMAND "")
)
(defun C:CONVERT ()
(setvar "cmdecho" 0)
(prompt "\nCopies line entities from one layer to 3Dlines on another")
(setq l (strcase (getstring "\nEnter layer name: ")))
(setq new (strcase (getstring "\nEnter new layer name: ")))
(setq ele (getvar "elevation")) (setq ele (list ele))
(command "layer" "m" new)
(command "")
(setq e (entnext))
(while e
(setq get (entget e))
(if (= l (cdr (assoc 8 get))) (progn
(setq line (cdr (assoc 0 get)))
(if (equal line "LINE") (DRAW))
)
)
(setq e (entnext e))
)
(setvar "cmdecho" 1)
)