Leaderboard

So its a look up that your after write in English then find the Vietnamese version and add ? Or other way on language. This has been answered before, do a google. For me write a csv file, Viet,eng much easier to get at with lisp. Then lisp is search replace or add to ?

Copy the definition for my LM:roundup function to the end of your code, and then change: (setq d (rtos (LM:rounddown (abs (/ (apply '- (mapcar 'last (mapcar '(lambda (x) (trans x 1 0)) p))) 1000.)) 0.5) 2 2)) to: (setq d (abs (/ (apply '- (mapcar 'last (mapcar '(lambda (x) (trans x 1 0)) p))) 1000.)) d (rtos ((if (< d 0.5) LM:roundup LM:rounddown) d 0.5) 2 2) ) Copy the function definition for the main program, change the syntax of the copied definition from c:but to c:somethingelse, and change: (setq d (abs (/ (apply '- (mapcar 'last (mapcar '(lambda (x) (trans x 1 0)) p))) 1000.)) d (rtos ((if (< d 0.5) LM:roundup LM:rounddown) d 0.5) 2 2) ) to: (setq d (abs (/ (apply 'distance (mapcar '(lambda ( x ) (list (car x) (cadr x))) p)) 1000.)) d (rtos ((if (< d 0.5) LM:roundup LM:rounddown) d 0.5) 2 2) ) This will calculate the 2D distance between the points in the UCS plane.

Firstly, as requested within the terms on my site, I would prefer if programs were referenced by name or using a simple link to the original, rather than posting the entirety of the code on another site and would therefore appreciate if you edited your post to remove the quoted code. Regarding automatically enabling the program on drawing startup: this may be achieved using any of the methods I describe here; I would personally suggest that you create an AutoLISP file with the filename acaddoc.lsp saved within a trusted AutoCAD support file search path (or modify such file if it already exists), and populate this file with a load expression such as: (load "LayerDirectorV1-9.lsp" nil) Assuming that my Layer Director program has also been saved to a trusted AutoCAD support file search path.