Topic: auto change the linetype sacle [ Not dynamic ]

[77077]

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. )
58. (princ)
59.  

edit kdub :-> code=cadlisp-7

[77077]

someone have a look ?

[RAIN CODE]

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