Quantcast
Channel: Autodesk India Community aggregator
Viewing all articles
Browse latest Browse all 1680

AutoCAD Customization: Visual LISP, AutoLISP and General Customization: help needed

$
0
0

I prepared a simple code to make a char table.

It is very easy, but did not work!!

 

can anybody tell me what is the problem?

 

(Defun C:CharMap ()
  (setq cnt 1)
  (setq r_cnt 0.0)
  (setq ts 16) ;;16x16=256 char
  (setq x 0.0 y 0.0 sub_y (- y 0.1))
  (repeat ts
	(repeat ts
      (command "text" "j" "mc" (list x y) "0.05" "0" (chr cnt))
      (command "text" "j" "mc" (list x sub_y) "0.05" "0" (itoa cnt ))
      (setq x (+ x 0.2))
      (setq cnt (1+ cnt))
    );repeat
    (setq x 0 y (- y 0.2))
    (setq sub_y (- y 0.1))
  );repeat
  (command "zoom" "e" "zoom" "0.75x")
)

 Thanks,

Abbas


Viewing all articles
Browse latest Browse all 1680

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>