Visual LISP, AutoLISP and General Customization
cancel
Showing results for 
Show  only  | Search instead for 
Did you mean: 

convert to vector icon

0 REPLIES 0
Reply
Message 1 of 1
highrez2
393 Views, 0 Replies

convert to vector icon

Is there a way to turn a standard image jpg bmp or mslide into code so I don't have to send sld files?

 

Block replace code

;-------------------------------------------------------------------------------
; Block: - Block Replace icon
;-------------------------------------------------------------------------------
(defun Block: ()
  (start_image "block")
  (vector_line (list "C" 255 2 11 2 29 3 29 3 11 4 11 4 29 5 29 5 11 6 11 6
    29 7 29 7 11 8 11 8 29 9 29 9 11 10 11 10 29 11 29 11 11 12 11 12 29 13
    29 13 11 "C" 255 14 15 14 29 15 29 15 3 16 3 16 29 17 29 17 3 18 3 18 12
    19 14 19 3 20 3 20 21 21 21 21 3 22 3 22 21 23 21 23 3 24 3 24 21 25 21
    25 3 26 3 26 21 27 21 27 7 28 5 28 21 29 21 29 8 30 8 30 21)
  );vector_line
  (vector_line (list "C" 8 30 5 27 2 14 2 14 13 "C" 8 17 13 14 10 1 10 1 29
    "C" 8 27 3 27 5 "C" 8 28 7 30 7 "C" 8 15 15 17 15 "C" 8 2 31 19 31 19 15
    "C" 8 20 23 32 23 32 7)
  );vector_line
  (vector_line (list "C" 9 28 4 29 5 "C" 9 15 12 16 13))
  (vector_line (list "C" 250 1 30 18 30 18 14 14 14 "C" 250 20 22 31 22 31 6
    27 6)
  );vector_line
  (vector_line (list "C" 5 2 23 6 23 6 25 8 25 8 29 8 25 10 25 10 23 17 23 10
    23 10 21 8 21 8 11 8 21 6 21 6 22 "C" 5 21 21 21 17 20 17 23 17 23 15 "C"
    5 30 15 26 15 "C" 5 21 3 21 10 "C" 5 20 13 19 13 19 14 "C" 5 3 12 3 12
    "C" 5 6 12 6 12 "C" 5 10 12 10 12 "C" 5 13 12 13 12 "C" 5 3 15 3 15 "C" 5
    6 15 6 15 "C" 5 10 15 10 15 "C" 5 13 15 13 15 "C" 5 3 18 3 18 "C" 5 6 18
    6 18 "C" 5 10 18 10 18 "C" 5 13 18 13 18 "C" 5 16 18 16 18 "C" 5 3 21 3
    21 "C" 5 13 21 13 21 "C" 5 16 21 16 21 "C" 5 8 23 8 23 "C" 5 3 25 3 25
    "C" 5 13 25 13 25 "C" 5 16 25 16 25 "C" 5 3 28 3 28 "C" 5 6 28 6 28 "C" 5
    10 28 10 28 "C" 5 13 28 13 28 "C" 5 16 28 16 28 "C" 5 16 4 16 4 "C" 5 19
    4 19 4 "C" 5 23 4 23 4 "C" 5 26 4 26 4 "C" 5 16 7 16 7 "C" 5 19 7 19 7
    "C" 5 23 7 23 7 "C" 5 26 7 26 7 "C" 5 16 10 16 10 "C" 5 23 10 23 10 "C" 5
    29 10 29 10 "C" 5 26 13 26 13 "C" 5 29 13 29 13 "C" 5 29 17 29 17 "C" 5
    23 20 23 20 "C" 5 26 20 26 20 "C" 5 29 20 29 20)
  );vector_line
  (vector_line (list "C" 1 26 10 28 8 27 8 20 15 20 16 24 12 "C" 1 20 14 21
    13 16 8 16 9 17 8 17 10 "C" 1 26 16 19 9 18 9 27 18 "C" 1 28 20 28 20 "C"
    1 21 31 23 31 25 29 25 25 27 27 23 27 24 26 "C" 1 6 8 6 6 8 4 12 4 10 2
    10 6 11 5)
  );vector_line
  (end_image)
);defun Block:

  See attached image as Jpg

 

0 REPLIES 0

Can't find what you're looking for? Ask the community or share your knowledge.

Post to forums  

Autodesk Design & Make Report

”Boost