LISP for changing color of a line
:: Software Discussion :: AutoCad
Page 1 of 1 • Share •
LISP for changing color of a line
by quicklearner on Tue Oct 04, 2011 9:15 am
Mga Sir,
Baka may LISP kayo dyan na pedeng palitan ng color ang isang line. naencounter ko na to dati sa dati kong office sa pinas.
nagselect ako ng isang line tapos I pressed the key number " 1 " naging red yung line. tapos I pressed key number " 2 " naging yellow yung line. baka po pwede kong mahingi sa inyo ang LISP na to.
salamat po and God Bless CGPinoy...
Baka may LISP kayo dyan na pedeng palitan ng color ang isang line. naencounter ko na to dati sa dati kong office sa pinas.
nagselect ako ng isang line tapos I pressed the key number " 1 " naging red yung line. tapos I pressed key number " 2 " naging yellow yung line. baka po pwede kong mahingi sa inyo ang LISP na to.
salamat po and God Bless CGPinoy...
quicklearner- CGP Newbie
- Number of posts: 66
Age: 27
Location: dubai, uae
Registration date: 07/02/2011 
Re: LISP for changing color of a line
by lord_clef on Tue Oct 04, 2011 9:58 am
may alam ako gumagawa nyan sir..magbabayad nga lng tyo
lord_clef- CGP Newbie
- Number of posts: 191
Age: 27
Location: palo alto ca./makati city
Registration date: 17/08/2009 -
Re: LISP for changing color of a line
by quicklearner on Tue Oct 04, 2011 10:04 am
ganun ba sir? mga magkano naman kaya sir.. just inform me sir..
pero kung may libre mas ok.. hehehe
salamat sir..
pero kung may libre mas ok.. hehehe
salamat sir..
quicklearner- CGP Newbie
- Number of posts: 66
Age: 27
Location: dubai, uae
Registration date: 07/02/2011 -
Re: LISP for changing color of a line
by lord_clef on Tue Oct 04, 2011 10:10 am
update kita sir nasa abroad na rin kc....master ng autolisp un .hehe
lord_clef- CGP Newbie
- Number of posts: 191
Age: 27
Location: palo alto ca./makati city
Registration date: 17/08/2009 -
Re: LISP for changing color of a line
by quicklearner on Tue Oct 04, 2011 10:12 am
ayos. salamat sir.. malaking tulong yan.
salamat ulit...
salamat ulit...
quicklearner- CGP Newbie
- Number of posts: 66
Age: 27
Location: dubai, uae
Registration date: 07/02/2011 -
Re: LISP for changing color of a line
by jean7 on Tue Oct 04, 2011 1:53 pm
;FREE lisp.... AutoCAD,ZWCAD,BricsCAD,ProgeCAD
;transparent command 'auto' does not function on some CAD systems
;i.e. BricsCAD 11
;most commands are keys on left of keyboard for easier input...
;just appload, modify/add as per your personal use ...(jean7-2011)
(DEFUN C:AD()
(PROMPT "<<< ADD LAYERS 1-7,TEXT >>> ")
(COMMAND "LAYER" "M" 1 "C" 1 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" 2 "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" 3 "C" 3 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" 4 "C" 4 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" 5 "C" 5 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" 6 "C" 6 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" 7 "C" 7 "" "LW" "0.30" "" "")
(COMMAND "LAYER" "M" 8 "C" 8 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "TEXT" "C" 3 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "DIMS" "C" 4 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" "OBJ" "C" 2 "" "LW" "0.25" "" "")
)
(DEFUN C:AD2()
(PROMPT "<<< ADD LAYERS Architectural >>> ")
(COMMAND "LAYER" "M" "WALL" "C" 4 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "COLUMN" "C" 7 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "DOOR" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "WINDOW" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "GRID" "C" 7 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" "MOULDING" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "DEFPOINTS" "C" 7 "" "LW" "0.10" "" "")
(COMMAND "LAYER" "M" "FURNITURE" "C" 8 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "FIXTURES" "C" 23 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "BORDER" "C" 6 "" "LW" "0.8" "" "")
(COMMAND "LAYER" "M" "JAMB" "C" 13 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "LABEL" "C" 3 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "ROOF" "C" 1 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "TILES" "C" 1 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "SLAB" "C" 7 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "HATCH" "C" 1 "" "LW" "0.15" "" "")
)
;Layer Manager
(DEFUN C:W1(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "1" "C" "1" ""))
(DEFUN C:W2(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "2" "C" "2" ""))
(DEFUN C:W3(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "3" "C" "3" ""))
(DEFUN C:W4(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "4" "C" "4" ""))
(DEFUN C:W5(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "5" "C" "5" ""))
(DEFUN C:W6(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "6" "C" "6" ""))
(DEFUN C:W7(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "7" "C" "7" ""))
(DEFUN C:W8(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "8" "C" "8" ""))
;set to current layer & color
(DEFUN C:Q1()
(COMMAND "layer" "s" "1" "c" "1" "" ""))
(DEFUN C:Q2()
(COMMAND "layer" "s" "2" "c" "2" "" ""))
(DEFUN C:Q3()
(COMMAND "layer" "s" "3" "c" "3" "" ""))
(DEFUN C:Q4()
(COMMAND "layer" "s" "4" "c" "4" "" ""))
(DEFUN C:Q5()
(COMMAND "layer" "s" "5" "c" "5" "" ""))
(DEFUN C:Q6()
(COMMAND "layer" "s" "6" "c" "6" "" ""))
(DEFUN C:Q7()
(COMMAND "layer" "s" "7" "c" "7" "" ""))
(DEFUN C:Q8()
(COMMAND "layer" "s" "8" "c" "8" "" ""))
(DEFUN C:11(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "1" "LT" "CONTINUOUS" ""))
(DEFUN C:22(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "2" "LT" "CONTINUOUS" ""))
(DEFUN C:33(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "3" "LT" "CONTINUOUS" ""))
(DEFUN C:44(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "4" "LT" "CONTINUOUS" ""))
(DEFUN C:55(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "5" "LT" "CONTINUOUS" ""))
(DEFUN C:66(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "6" "LT" "CONTINUOUS" ""))
(DEFUN C:77(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "7" "LT" "CONTINUOUS" ""))
(DEFUN C:88(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "8" "LT" "CONTINUOUS" ""))
(DEFUN C:111(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "1" "LT" "HIDDEN" ""))
(DEFUN C:222(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "2" "LT" "HIDDEN" ""))
(DEFUN C:333(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "3" "LT" "HIDDEN" ""))
(DEFUN C:444(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "4" "LT" "HIDDEN" ""))
(DEFUN C:555(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "5" "LT" "HIDDEN" ""))
(DEFUN C:6-(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "6" "LT" "HIDDEN" ""))
(DEFUN C:777(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "7" "LT" "HIDDEN" ""))
(DEFUN C:888(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "8" "LT" "HIDDEN" ""))
;Automatic functions
(DEFUN C:AE()
(PROMPT "AUTO-ERASE <> ")
(COMMAND "ERASE" "SINGLE" "AUTO"))
(DEFUN C:AEE(/ a)
(PROMPT "AUTO-ERASE <> ")
(setq a (ssget ""))
(COMMAND "ERASE" a ""))
(DEFUN C:AC()
(PROMPT "AUTO-COPY <> ")
(COMMAND "COPY" "SINGLE" "AUTO")
)
(DEFUN C:ACC(/ a)
(PROMPT "AUTO-COPY <> ")
(setq a (ssget))
(command "copy" a "")
)
(DEFUN C:AA1()
(PROMPT "AUTO-COPY <> ")
(COMMAND "COPY" "L" ""))
(DEFUN C:QE()
(PROMPT "AUTO-MOVE <> ")
(COMMAND "MOVE" "SINGLE" "AUTO"))
(DEFUN C:QE2()
(PROMPT "MOVE-LAST <> ")
(COMMAND "MOVE" "L" ""))
(DEFUN C:QE3()
(PROMPT "MOVE-PREVIOUS <> ")
(COMMAND "MOVE" "P" ""))
(DEFUN C:AS()
(PROMPT "ERASE LAST <> ")
(COMMAND "ERASE" "L" ""))
(DEFUN C:AS1()
(PROMPT "EXPLODE LAST <> ")
(COMMAND "EXPLODE" "L"))
(DEFUN C:ED()
(COMMAND "EDIT" ))
(DEFUN C:EF()
(PROMPT "EDIT-LAST <> ")
(COMMAND "DDEDIT" "L" ""))
(DEFUN C:EF1()
(PROMPT "EDIT-LAST <> ")
(COMMAND "DDEDIT" "L" ""))
(DEFUN C:SF(/ A)
(PROMPT " << MULTIPLE COPY >> ")
(SETQ A (SSGET))
(COMMAND "COPY" A "" "M"))
(DEFUN C:SF1(/ A)
(PROMPT " << MULTIPLE COPY-LAST >> ")
(COMMAND "COPY" "L" "" "M"))
(DEFUN C:XX()
(PROMPT "<< EXPLODE >> ")
(COMMAND "EXPLODE"))
(DEFUN C:SC()
(PROMPT "<< SCALE >> <> ")
(COMMAND "SCALE" ))
(DEFUN C:SC1()
(PROMPT "<< SCALE-LAST >> <> ")
(COMMAND "SCALE" "L" ""))
;transparent command 'auto' does not function on some CAD systems
;i.e. BricsCAD 11
;most commands are keys on left of keyboard for easier input...
;just appload, modify/add as per your personal use ...(jean7-2011)
(DEFUN C:AD()
(PROMPT "<<< ADD LAYERS 1-7,TEXT >>> ")
(COMMAND "LAYER" "M" 1 "C" 1 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" 2 "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" 3 "C" 3 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" 4 "C" 4 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" 5 "C" 5 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" 6 "C" 6 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" 7 "C" 7 "" "LW" "0.30" "" "")
(COMMAND "LAYER" "M" 8 "C" 8 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "TEXT" "C" 3 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "DIMS" "C" 4 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" "OBJ" "C" 2 "" "LW" "0.25" "" "")
)
(DEFUN C:AD2()
(PROMPT "<<< ADD LAYERS Architectural >>> ")
(COMMAND "LAYER" "M" "WALL" "C" 4 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "COLUMN" "C" 7 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "DOOR" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "WINDOW" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "GRID" "C" 7 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" "MOULDING" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "DEFPOINTS" "C" 7 "" "LW" "0.10" "" "")
(COMMAND "LAYER" "M" "FURNITURE" "C" 8 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "FIXTURES" "C" 23 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "BORDER" "C" 6 "" "LW" "0.8" "" "")
(COMMAND "LAYER" "M" "JAMB" "C" 13 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "LABEL" "C" 3 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "ROOF" "C" 1 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "TILES" "C" 1 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "SLAB" "C" 7 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "HATCH" "C" 1 "" "LW" "0.15" "" "")
)
;Layer Manager
(DEFUN C:W1(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "1" "C" "1" ""))
(DEFUN C:W2(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "2" "C" "2" ""))
(DEFUN C:W3(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "3" "C" "3" ""))
(DEFUN C:W4(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "4" "C" "4" ""))
(DEFUN C:W5(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "5" "C" "5" ""))
(DEFUN C:W6(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "6" "C" "6" ""))
(DEFUN C:W7(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "7" "C" "7" ""))
(DEFUN C:W8(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "8" "C" "8" ""))
;set to current layer & color
(DEFUN C:Q1()
(COMMAND "layer" "s" "1" "c" "1" "" ""))
(DEFUN C:Q2()
(COMMAND "layer" "s" "2" "c" "2" "" ""))
(DEFUN C:Q3()
(COMMAND "layer" "s" "3" "c" "3" "" ""))
(DEFUN C:Q4()
(COMMAND "layer" "s" "4" "c" "4" "" ""))
(DEFUN C:Q5()
(COMMAND "layer" "s" "5" "c" "5" "" ""))
(DEFUN C:Q6()
(COMMAND "layer" "s" "6" "c" "6" "" ""))
(DEFUN C:Q7()
(COMMAND "layer" "s" "7" "c" "7" "" ""))
(DEFUN C:Q8()
(COMMAND "layer" "s" "8" "c" "8" "" ""))
(DEFUN C:11(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "1" "LT" "CONTINUOUS" ""))
(DEFUN C:22(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "2" "LT" "CONTINUOUS" ""))
(DEFUN C:33(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "3" "LT" "CONTINUOUS" ""))
(DEFUN C:44(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "4" "LT" "CONTINUOUS" ""))
(DEFUN C:55(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "5" "LT" "CONTINUOUS" ""))
(DEFUN C:66(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "6" "LT" "CONTINUOUS" ""))
(DEFUN C:77(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "7" "LT" "CONTINUOUS" ""))
(DEFUN C:88(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "8" "LT" "CONTINUOUS" ""))
(DEFUN C:111(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "1" "LT" "HIDDEN" ""))
(DEFUN C:222(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "2" "LT" "HIDDEN" ""))
(DEFUN C:333(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "3" "LT" "HIDDEN" ""))
(DEFUN C:444(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "4" "LT" "HIDDEN" ""))
(DEFUN C:555(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "5" "LT" "HIDDEN" ""))
(DEFUN C:6-(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "6" "LT" "HIDDEN" ""))
(DEFUN C:777(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "7" "LT" "HIDDEN" ""))
(DEFUN C:888(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "8" "LT" "HIDDEN" ""))
;Automatic functions
(DEFUN C:AE()
(PROMPT "AUTO-ERASE <
(COMMAND "ERASE" "SINGLE" "AUTO"))
(DEFUN C:AEE(/ a)
(PROMPT "AUTO-ERASE <
(setq a (ssget ""))
(COMMAND "ERASE" a ""))
(DEFUN C:AC()
(PROMPT "AUTO-COPY <
(COMMAND "COPY" "SINGLE" "AUTO")
)
(DEFUN C:ACC(/ a)
(PROMPT "AUTO-COPY <
(setq a (ssget))
(command "copy" a "")
)
(DEFUN C:AA1()
(PROMPT "AUTO-COPY <
(COMMAND "COPY" "L" ""))
(DEFUN C:QE()
(PROMPT "AUTO-MOVE <
(COMMAND "MOVE" "SINGLE" "AUTO"))
(DEFUN C:QE2()
(PROMPT "MOVE-LAST <
(COMMAND "MOVE" "L" ""))
(DEFUN C:QE3()
(PROMPT "MOVE-PREVIOUS <
(COMMAND "MOVE" "P" ""))
(DEFUN C:AS()
(PROMPT "ERASE LAST <
(COMMAND "ERASE" "L" ""))
(DEFUN C:AS1()
(PROMPT "EXPLODE LAST <
(COMMAND "EXPLODE" "L"))
(DEFUN C:ED()
(COMMAND "EDIT" ))
(DEFUN C:EF()
(PROMPT "EDIT-LAST <
(COMMAND "DDEDIT" "L" ""))
(DEFUN C:EF1()
(PROMPT "EDIT-LAST <
(COMMAND "DDEDIT" "L" ""))
(DEFUN C:SF(/ A)
(PROMPT " << MULTIPLE COPY >> ")
(SETQ A (SSGET))
(COMMAND "COPY" A "" "M"))
(DEFUN C:SF1(/ A)
(PROMPT " << MULTIPLE COPY-LAST >> ")
(COMMAND "COPY" "L" "" "M"))
(DEFUN C:XX()
(PROMPT "<< EXPLODE >> ")
(COMMAND "EXPLODE"))
(DEFUN C:SC()
(PROMPT "<< SCALE >> <
(COMMAND "SCALE" ))
(DEFUN C:SC1()
(PROMPT "<< SCALE-LAST >> <
(COMMAND "SCALE" "L" ""))
jean7- CGP Newbie
- Number of posts: 89
Age: 34
Location: 'pinas
Registration date: 14/01/2009 -
Re: LISP for changing color of a line
by quicklearner on Wed Oct 05, 2011 4:28 am
salamat jean7. kaso pano ba gamitin to? open ako ng notepad tapos paste and save. tama ba?
salamat ulit..
salamat ulit..
quicklearner- CGP Newbie
- Number of posts: 66
Age: 27
Location: dubai, uae
Registration date: 07/02/2011 -
Re: LISP for changing color of a line
by aesonck on Wed Oct 05, 2011 4:43 am
1.Open Notepad
2.Copy then paste
3.(SAVING) Put filename and add dot lsp or (.lsp)
4.Type Ap then load
5.And also add it in contents
6.Tick again load
7.That's it!
2.Copy then paste
3.(SAVING) Put filename and add dot lsp or (.lsp)
4.Type Ap then load
5.And also add it in contents
6.Tick again load
7.That's it!
aesonck- CGP Guru
- Number of posts: 1834
Age: 31
Location: Philippines. La Trinidad-Visayas
Registration date: 13/07/2010 -
Re: LISP for changing color of a line
by quicklearner on Wed Oct 05, 2011 4:55 am
salamat sir aesonck.. more power..
salamat ulit jean7.. God BLess..
salamat ulit jean7.. God BLess..
quicklearner- CGP Newbie
- Number of posts: 66
Age: 27
Location: dubai, uae
Registration date: 07/02/2011 -
request nyo sir...
by bimbim on Wed Oct 05, 2011 6:01 am
(defun c:1 () (command "select" pause)
(command "chprop" "p" "" "c" "1" "") )
(defun c:2 () (command "select" pause)
(command "chprop" "p" "" "c" "2" "") )
(defun c:3 () (command "select" pause)
(command "chprop" "p" "" "c" "3" "") )
(defun c:4 () (command "select" pause)
(command "chprop" "p" "" "c" "4" "") )
(defun c:5 () (command "select" pause)
(command "chprop" "p" "" "c" "5" "") )
(defun c:6 () (command "select" pause)
(command "chprop" "p" "" "c" "6" "") )
(defun c:7 () (command "select" pause)
(command "chprop" "p" "" "c" "7" "") )
(defun c:8 () (command "select" pause)
(command "chprop" "p" "" "c" "8" "") )
copy and paste nyo sir un script sa notepad then save-as nyo sa prefered file name (e.g. color.lsp)
type APPLOAD sa commandline, magopen ung LOAD APPLICATIONS window
just browse, click the file then click LOAD
or kung gusto mo sir automatic na cia ma-load everytime i-open mo un ACAD, click mo CONTENTS sa lower right part ADD mo sa list un LSP. REMOVE mo na lang in case malipat ka ng workstation.
in case meron ka gusto kulay na idagdag, just copy the script line below:
(defun c:* () (command "select" pause)
(command "chprop" "p" "" "c" "*" "") )
edit mo lang un asterisks (*) to the number of color you want to add
COMMAND PROCESS:
type the number, spacebar, select the object/s, spacebar
hope this helps. good day!
(command "chprop" "p" "" "c" "1" "") )
(defun c:2 () (command "select" pause)
(command "chprop" "p" "" "c" "2" "") )
(defun c:3 () (command "select" pause)
(command "chprop" "p" "" "c" "3" "") )
(defun c:4 () (command "select" pause)
(command "chprop" "p" "" "c" "4" "") )
(defun c:5 () (command "select" pause)
(command "chprop" "p" "" "c" "5" "") )
(defun c:6 () (command "select" pause)
(command "chprop" "p" "" "c" "6" "") )
(defun c:7 () (command "select" pause)
(command "chprop" "p" "" "c" "7" "") )
(defun c:8 () (command "select" pause)
(command "chprop" "p" "" "c" "8" "") )
copy and paste nyo sir un script sa notepad then save-as nyo sa prefered file name (e.g. color.lsp)
type APPLOAD sa commandline, magopen ung LOAD APPLICATIONS window
just browse, click the file then click LOAD
or kung gusto mo sir automatic na cia ma-load everytime i-open mo un ACAD, click mo CONTENTS sa lower right part ADD mo sa list un LSP. REMOVE mo na lang in case malipat ka ng workstation.
in case meron ka gusto kulay na idagdag, just copy the script line below:
(defun c:* () (command "select" pause)
(command "chprop" "p" "" "c" "*" "") )
edit mo lang un asterisks (*) to the number of color you want to add
COMMAND PROCESS:
type the number, spacebar, select the object/s, spacebar
hope this helps. good day!
bimbim- CGP Newbie
- Number of posts: 18
Age: 31
Location: Mandaluyong
Registration date: 01/04/2011 -
Re: LISP for changing color of a line
by quicklearner on Wed Oct 05, 2011 6:35 am
sir bimbim, ito na yun.. salamat nang maraming marami..
God Bless...
God Bless...
quicklearner- CGP Newbie
- Number of posts: 66
Age: 27
Location: dubai, uae
Registration date: 07/02/2011 -
Re: LISP for changing color of a line
by bimbim on Wed Oct 05, 2011 7:13 am
anytime sir.buti nakutong 
bimbim- CGP Newbie
- Number of posts: 18
Age: 31
Location: Mandaluyong
Registration date: 01/04/2011 -
Re: LISP for changing color of a line
by wizman on Fri Dec 02, 2011 9:23 pm
add ko lang po:
(defun chco (color / ss1)
(setq ss1 (ssget))
(command "._change" ss1 "" "p" "c" color "" )
)
(setq i 1)
(while (<= i 254)
(eval (read (strcat "(defun c:" (itoa i) (chr 40)(chr 41) "(chco " (itoa i) "))")))
(setq i (1+ i))
)
regards,
wiz
(defun chco (color / ss1)
(setq ss1 (ssget))
(command "._change" ss1 "" "p" "c" color "" )
)
(setq i 1)
(while (<= i 254)
(eval (read (strcat "(defun c:" (itoa i) (chr 40)(chr 41) "(chco " (itoa i) "))")))
(setq i (1+ i))
)
regards,
wiz
wizman- Number of posts: 2
Age: 31
Location: abu dhabi
Registration date: 02/12/2011 -
Re: LISP for changing color of a line
by totzkimol on Fri Mar 30, 2012 3:29 am
share ko lang din yung LISP ko baka makatulong din...sana may magshare din ng mga lisp nila...thank you
text transfer
============================================
(defun C:TT ( / A B)
(setq A (cdr (assoc 1 (entget (car (entsel "Select TEXT to transfer: "))))))
(while (setq B (car (entsel "Select TEXT item to replace: ")))
(setq C (entget B))
(entmod (subst (cons 1 A)(assoc 1 C)C))
(if (or (= (cdr (assoc 0 C)) "POLYLINE")(= (cdr (assoc 0 C)) "INSERT"))
(entupd B)))
(princ)
)
(c:tt)
text transfer
============================================
(defun C:TT ( / A B)
(setq A (cdr (assoc 1 (entget (car (entsel "Select TEXT to transfer: "))))))
(while (setq B (car (entsel "Select TEXT item to replace: ")))
(setq C (entget B))
(entmod (subst (cons 1 A)(assoc 1 C)C))
(if (or (= (cdr (assoc 0 C)) "POLYLINE")(= (cdr (assoc 0 C)) "INSERT"))
(entupd B)))
(princ)
)
(c:tt)
totzkimol- CGP Newbie
- Number of posts: 5
Age: 29
Location: Manila, Philippines
Registration date: 25/02/2012 -
Re: LISP for changing color of a line
by ciaoriki on Mon Apr 16, 2012 6:22 am
jean7 wrote:;FREE lisp.... AutoCAD,ZWCAD,BricsCAD,ProgeCAD
;transparent command 'auto' does not function on some CAD systems
;i.e. BricsCAD 11
;most commands are keys on left of keyboard for easier input...
;just appload, modify/add as per your personal use ...(jean7-2011)
(DEFUN C:AD()
(PROMPT "<<< ADD LAYERS 1-7,TEXT >>> ")
(COMMAND "LAYER" "M" 1 "C" 1 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" 2 "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" 3 "C" 3 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" 4 "C" 4 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" 5 "C" 5 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" 6 "C" 6 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" 7 "C" 7 "" "LW" "0.30" "" "")
(COMMAND "LAYER" "M" 8 "C" 8 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "TEXT" "C" 3 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "DIMS" "C" 4 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" "OBJ" "C" 2 "" "LW" "0.25" "" "")
)
(DEFUN C:AD2()
(PROMPT "<<< ADD LAYERS Architectural >>> ")
(COMMAND "LAYER" "M" "WALL" "C" 4 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "COLUMN" "C" 7 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "DOOR" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "WINDOW" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "GRID" "C" 7 "" "LW" "0.15" "" "")
(COMMAND "LAYER" "M" "MOULDING" "C" 2 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "DEFPOINTS" "C" 7 "" "LW" "0.10" "" "")
(COMMAND "LAYER" "M" "FURNITURE" "C" 8 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "FIXTURES" "C" 23 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "BORDER" "C" 6 "" "LW" "0.8" "" "")
(COMMAND "LAYER" "M" "JAMB" "C" 13 "" "LW" "0.25" "" "")
(COMMAND "LAYER" "M" "LABEL" "C" 3 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "ROOF" "C" 1 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "TILES" "C" 1 "" "LW" "0.2" "" "")
(COMMAND "LAYER" "M" "SLAB" "C" 7 "" "LW" "0.3" "" "")
(COMMAND "LAYER" "M" "HATCH" "C" 1 "" "LW" "0.15" "" "")
)
;Layer Manager
(DEFUN C:W1(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "1" "C" "1" ""))
(DEFUN C:W2(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "2" "C" "2" ""))
(DEFUN C:W3(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "3" "C" "3" ""))
(DEFUN C:W4(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "4" "C" "4" ""))
(DEFUN C:W5(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "5" "C" "5" ""))
(DEFUN C:W6(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "6" "C" "6" ""))
(DEFUN C:W7(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "7" "C" "7" ""))
(DEFUN C:W8(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "p" "LA" "8" "C" "8" ""))
;set to current layer & color
(DEFUN C:Q1()
(COMMAND "layer" "s" "1" "c" "1" "" ""))
(DEFUN C:Q2()
(COMMAND "layer" "s" "2" "c" "2" "" ""))
(DEFUN C:Q3()
(COMMAND "layer" "s" "3" "c" "3" "" ""))
(DEFUN C:Q4()
(COMMAND "layer" "s" "4" "c" "4" "" ""))
(DEFUN C:Q5()
(COMMAND "layer" "s" "5" "c" "5" "" ""))
(DEFUN C:Q6()
(COMMAND "layer" "s" "6" "c" "6" "" ""))
(DEFUN C:Q7()
(COMMAND "layer" "s" "7" "c" "7" "" ""))
(DEFUN C:Q8()
(COMMAND "layer" "s" "8" "c" "8" "" ""))
(DEFUN C:11(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "1" "LT" "CONTINUOUS" ""))
(DEFUN C:22(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "2" "LT" "CONTINUOUS" ""))
(DEFUN C:33(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "3" "LT" "CONTINUOUS" ""))
(DEFUN C:44(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "4" "LT" "CONTINUOUS" ""))
(DEFUN C:55(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "5" "LT" "CONTINUOUS" ""))
(DEFUN C:66(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "6" "LT" "CONTINUOUS" ""))
(DEFUN C:77(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "7" "LT" "CONTINUOUS" ""))
(DEFUN C:88(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "8" "LT" "CONTINUOUS" ""))
(DEFUN C:111(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "1" "LT" "HIDDEN" ""))
(DEFUN C:222(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "2" "LT" "HIDDEN" ""))
(DEFUN C:333(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "3" "LT" "HIDDEN" ""))
(DEFUN C:444(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "4" "LT" "HIDDEN" ""))
(DEFUN C:555(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "5" "LT" "HIDDEN" ""))
(DEFUN C:6-(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "6" "LT" "HIDDEN" ""))
(DEFUN C:777(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "7" "LT" "HIDDEN" ""))
(DEFUN C:888(/ A)
(SETQ A (SSGET))
(COMMAND "CHANGE" A "" "P" "C" "8" "LT" "HIDDEN" ""))
;Automatic functions
(DEFUN C:AE()
(PROMPT "AUTO-ERASE <> ")
(COMMAND "ERASE" "SINGLE" "AUTO"))
(DEFUN C:AEE(/ a)
(PROMPT "AUTO-ERASE <> ")
(setq a (ssget ""))
(COMMAND "ERASE" a ""))
(DEFUN C:AC()
(PROMPT "AUTO-COPY <> ")
(COMMAND "COPY" "SINGLE" "AUTO")
)
(DEFUN C:ACC(/ a)
(PROMPT "AUTO-COPY <> ")
(setq a (ssget))
(command "copy" a "")
)
(DEFUN C:AA1()
(PROMPT "AUTO-COPY <> ")
(COMMAND "COPY" "L" ""))
(DEFUN C:QE()
(PROMPT "AUTO-MOVE <> ")
(COMMAND "MOVE" "SINGLE" "AUTO"))
(DEFUN C:QE2()
(PROMPT "MOVE-LAST <> ")
(COMMAND "MOVE" "L" ""))
(DEFUN C:QE3()
(PROMPT "MOVE-PREVIOUS <> ")
(COMMAND "MOVE" "P" ""))
(DEFUN C:AS()
(PROMPT "ERASE LAST <> ")
(COMMAND "ERASE" "L" ""))
(DEFUN C:AS1()
(PROMPT "EXPLODE LAST <> ")
(COMMAND "EXPLODE" "L"))
(DEFUN C:ED()
(COMMAND "EDIT" ))
(DEFUN C:EF()
(PROMPT "EDIT-LAST <> ")
(COMMAND "DDEDIT" "L" ""))
(DEFUN C:EF1()
(PROMPT "EDIT-LAST <> ")
(COMMAND "DDEDIT" "L" ""))
(DEFUN C:SF(/ A)
(PROMPT " << MULTIPLE COPY >> ")
(SETQ A (SSGET))
(COMMAND "COPY" A "" "M"))
(DEFUN C:SF1(/ A)
(PROMPT " << MULTIPLE COPY-LAST >> ")
(COMMAND "COPY" "L" "" "M"))
(DEFUN C:XX()
(PROMPT "<< EXPLODE >> ")
(COMMAND "EXPLODE"))
(DEFUN C:SC()
(PROMPT "<< SCALE >> <> ")
(COMMAND "SCALE" ))
(DEFUN C:SC1()
(PROMPT "<< SCALE-LAST >> <> ")
(COMMAND "SCALE" "L" ""))
_____________________________________
ang haba naman ng code na ito just to change the color of a line, sa vb, 10 lines lang ito. ito ang ayaw ko sa lisp, mas marami pa ang parenthesis kaysa sa code
ciaoriki- CGP Newbie
- Number of posts: 37
Age: 42
Location: hongkong
Registration date: 15/08/2009 -
Similar topics» LISP for changing color of a line
» Glass Water Feature with with changing color lights
» How to change roof color
» line segments color
» Hello i'm Harna$ from PPP
» Glass Water Feature with with changing color lights
» How to change roof color
» line segments color
» Hello i'm Harna$ from PPP
:: Software Discussion :: AutoCad
Page 1 of 1
Permissions in this forum:
You cannot reply to topics in this forum