Leaderboard

This file is about very common request by almost every user of CAD software in search for automatic dimensioning routine... This is one example regarding solving this issue, but many specific questions were asked that this routine can't handle, but solutions were provided by others in quest for helping users that asked for help... So here is one of my versions that may help in automatic dimensioning architectural drawings (i.e. walls and openings)... I hope that this version may prove very useful to others, if nothing than for studying the uploaded "autodim.lsp"... If reference LWPOLYLINES, LINES or ARCS are in some 3D UCS aligned so that they lie in it, while dimensioning their elevation and elevation of dimensions can be changed, so you have to pick firstly some point on any dimension except dimradial and then you should 3DORBIT and apply "(c:autodim-dimtozero)" that is added to the end of "autodim.lsp" to dimradial dimensions to make them all at elevation 0.0 both all dimensions and reference entities that were dimensioned... HTH. Regards, M.R. (architect)

Multiple Radio Buttons Multiple Radio Buttons is a library routine that allows you to create as many Buttons of input as required (subject to Autocad limits) using a dialouge rather than the command line. You can have horizontal or vertical buttons choice is yours Its use is intended where you want the user to pick one only of preset values it can be a number, a character or a whole word. It can be used in most lisp code with just a couple of lines of code, compared to a hard coded solution of around 50+ lines repeated every time you want to use a dcl. To use just save the "Multi Radio Buttons.lsp" to a directory that is included in you Autocad search path. If you need more information how to do this send an email to info@alanh.com.au It only requires 3 lines of code in any lisp to use. (if (not AH:Butts)(load "Multi radio buttons.lsp")) ; loads the program if not loaded already (if (= but nil)(setq but 1)) ; this is needed to set default button for user pick (setq ans (ah:butts but "V" '("A B C D " "A" "B" "C" "D" ))) ; V is for vertical H for horizontal layout In the example above the variable ans will have the button string value. (setq ans (ah:butts but "V" '("Please choose " "Alpha" "Beta" "1" "2" "No words"))) Pick button 5 ans = "No words" The program resets the default button to last pick so click Ok, can be removed if not required. Copy the 3 lines above to your command line to see how it works. There is extra examples in the top of the code how to use in your code. For programmers it is a replacement for the Initget function. If you want further information or conversion of your code email info@alanh.com.au

Thank you for supporting this "HP:BUTTONS.lsp" DCL library. This routine allows you to create DCL with multiple buttons associated to DCL action_tile list on the fly. It creates DCL box with single column x nRows of buttons, 'n' depends on the length of the 'action list' usage: (hp:buttons title lst width ht) title = Name caption on top of DCL - string lst = quoted list or progn list - list width = Width of the dialod box - integer ht = height of each button - integer returns nil or any execution (progn ... ) related to action_tile Save this file into your support folder, append to your startup autoload routine. In order to optimize the user experience, it allows maxinum 15 rows however you can abjust depends on screen size. HP:BUTTONS - v1.0 Free LISP by - hanhphuc email: hanhphuc.diy@outlook.com