home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 15 / CD_ASCQ_15_070894.iso / vrac / may94cad.zip / TIP981.LSP < prev    next >
Lisp/Scheme  |  1994-04-25  |  573b  |  25 lines
  1. ; TIP981.LSP: CLW.LSP    Change Pline Width   (c)1994, Wally Agy
  2.  
  3. ;CLW  Change Pline Width to specified input.
  4. ;;;    Wally Agy 1-27-93 
  5. (defun C:CLW ()
  6. (setvar "cmdecho" 0)
  7.   (setq LW (getdist "\nEnter new line width:  "))
  8. (setq A 1)
  9.   (prompt "\nSelect Poly Lines to chg " )
  10.   (while (/= A nil)
  11.     (progn
  12.       (setq A (entsel))
  13.       (if (/= A nil)
  14.          (progn
  15.            (setq B (entget (car A)))
  16.            (setq C (cdr (assoc 40 B)))
  17.            (princ C)
  18.            (command "pedit" A "W" LW "")
  19.          )
  20.       )
  21.     ) 
  22.   )  
  23. (princ)
  24. )
  25.