;
;
;	Author:
;		Henry C. Francis
;		425 N. Ashe Street
;		Southern Pines, NC 28387
;
;	http://www.pinehurst.net/~pfrancis
;	e-mail hfrancis@pinehurst.net
;	All rights reserved.
;
(DEFUN C:TMP1 ()
(WHILE
  (SETQ TWENT (ENTSEL "Select Top of Wall string: "))
  (SETQ TWSTR (CDR(ASSOC 1(ENTGET(CAR TWENT)))))
  (SETQ HTENT (ENTSEL "Select Height string: "))
  (SETQ HTSTR (CDR(ASSOC 1(ENTGET(CAR HTENT)))))
  (SETQ WALLPT (GETPOINT "Snap to Wall point: "))
  (SETQ TWCNT (STRLEN TWSTR)
        HTCNT (STRLEN HTSTR)
  )
  (WHILE (WCMATCH TWSTR "*T*")
    (SETQ TWCNT (1- TWCNT))
    (SETQ TWSTR (SUBSTR TWSTR 1 TWCNT))
  )
  (SETQ TWSTR (SUBSTR TWSTR 1 TWCNT))
  (WHILE (WCMATCH HTSTR "*'*")
    (SETQ HTCNT (1- HTCNT))
    (SETQ HTSTR (SUBSTR HTSTR 1 HTCNT))
  )
  (SETQ HTSTR (SUBSTR HTSTR 1 HTCNT))
  (PRINC "\n")
  (PRINC TWSTR)
  (PRINC HTSTR)
  (SETQ ZPNT (-(READ TWSTR)(READ HTSTR)))
  (PRINC ZPNT)
  (SETQ 3DACC (LIST(CAR WALLPT)(CADR WALLPT)ZPNT))
  (COMMAND ".INSERT" "3DCROSS" 3DACC 1 1 0)
)
)