home *** CD-ROM | disk | FTP | other *** search
/ ProfitPress Mega CDROM2 …eeware (MSDOS)(1992)(Eng) / ProfitPress-MegaCDROM2.B6I / APPS / CAD / PKEY11_1.ZIP / DSL.LSP < prev    next >
Encoding:
Text File  |  1992-03-14  |  398 b   |  10 lines
  1. ;Transparent extension line toggle, must pick from menu
  2. ;
  3. ;                     ********Patrick J. McKee, author********
  4. ;                       ****Copyright 1992, Power Key tm****
  5. ;
  6. (defun dimsetl()
  7. (setq dv1(getvar "dimse1"))
  8. (if(=(getvar"dimse1")0)(setvar"dimse1"1)(setvar"dimse1"0))
  9. (if(= dv1 1)(princ "Left Ext. lines are on"))(if(= dv1 0)
  10. (princ "Left Ext. lines are off"))(princ))