TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: 77077 on September 29, 2014, 03:41:48 AM

Title: auto change the linetype sacle [ Not dynamic ]
Post by: 77077 on September 29, 2014, 03:41:48 AM
The ugly code , maybe have a better way !

Code - Auto/Visual Lisp: [Select]
  1. (defun Command_B()
  2.   (defun tmperr(msg)
  3.      (setq *error* nil)
  4.      (princ msg)
  5.      (command"_.undo""end")
  6.      (setvar"cmdecho"_sm_old_cmd)
  7.      (setvar"osmode"_sm_old_os)
  8.      (setvar"blipmode"_sm_old_bmd)
  9.      (setvar"highlight"1)
  10.      (setvar"elevation"_sm_old_elev)
  11.      (setvar"plinewid"_sm_old_plwid)
  12.      (setvar"pickstyle"_sm_old_picksty)
  13.      (setvar"cecolor" _sm_old_cecolor)
  14.      (setvar"expert"0)
  15.      (princ)
  16.   )
  17.    (setq *error* nil
  18.         _sm_old_cmd(getvar"cmdecho")
  19.         _sm_old_picksty(getvar"pickstyle")
  20.         _sm_old_os (getvar"osmode")
  21.         _sm_old_bmd(getvar"blipmode")
  22.         _sm_old_hlt(getvar"highlight")
  23.         _sm_old_elev(getvar"elevation")
  24.         _sm_old_plwid(getvar"plinewid")
  25.         _sm_old_ucsicon(getvar"ucsicon")
  26.         _sm_old_cecolor(getvar"cecolor")
  27.    )
  28.    (setvar"cmdecho"0)
  29.    (setvar"osmode"0)
  30.    (setvar"blipmode"0)
  31.    (setvar"thickness"0)
  32.    (setvar"elevation"0)
  33.    (setvar"plinewid"0)
  34.    (setvar"pickstyle"0)
  35.    (setvar"cecolor" "bylayer")
  36.    (command"_.undo""group")
  37.    (setq *error* tmperr)
  38.  
  39. )
  40. ;;=====================================
  41. (defun Command_E()
  42.    (command"_.undo""end")
  43.    (setvar"cmdecho"_sm_old_cmd)
  44.    (setvar"osmode"_sm_old_os)
  45.    (setvar"blipmode"_sm_old_bmd)
  46.    (setvar"highlight"1)
  47.    (setvar"ucsicon"_sm_old_ucsicon)
  48.    (setvar"elevation"_sm_old_elev)
  49.    (setvar"plinewid"_sm_old_plwid)
  50.    (setvar"pickstyle"_sm_old_picksty)
  51.    (setvar"cecolor" _sm_old_cecolor)
  52.    (setvar"menuctl"0)
  53.    (setvar"expert"0)
  54.    (setvar"pickbox"4)
  55.    (setq *error* nil)
  56.    (princ)
  57. )
  59.  

edit kdub :-> code=cadlisp-7
Title: Re: auto change the linetype sacle [ Not dynamic ]
Post by: 77077 on October 04, 2014, 10:29:45 AM
someone have a look ?
Title: Re: auto change the linetype sacle [ Not dynamic ]
Post by: RAIN CODE on October 20, 2014, 12:21:08 PM
Quote from: 77077 on October 04, 2014, 10:29:45 AM
someone have a look ?

you need to write the lisp yourself and if there are bugs  and you cannot solve it then post your program here they are happy to help you.

learn autolisp today it is not hard. start with the basic. I will help you if you are interested.

just like Autocad. when we first learn autocad we find it tough too but after learning it you find it easy to use. same thing to learning autolisp