In my drawing this lisp will be make rectang with input length, width (height) and dim it. If I have any mistake please reguide me. Such as attatched image:
Please update this lisp to have DCL for input width, length value, and after that save name block is (length x width) value, such as:
1- Input length value (mm) - on dialogue on screen CAD command: 500 ==> OK
2- Input width value (mm) - on dialogue on screen CAD command: 300 ==> OK
3-Select type hatch (on dialoge), such as solid hatch type
4- Result will be: Solid_500x300 is name of block
5- This lisp can be asking: Continuos with the same previous block (input value: number of blocks). If not, return for step 01 for another type block
Thanks alot
The responses to the prompts in the BHATCH commands are incorrect. You should run it manually at the command line, and note the sequence of what it asks for and in what order. Do it within a (command) prompt:
(command "_.bhatch")
to start it off and leave you in the command, because some commands work a little differently there than when just typed at the command line.
Mostly, you don't account for the Scale prompt. And you don't seem to have enough Enters to tell it you're done with various things. Try [and study what's different about] this:
(defun c:RecHatch (/ prevlayer pt)
(setq prevlayer (getvar 'clayer))
(command
"_.layer" "_t" "ISE_Hatch,ISE_Outline BRG" "_m" "ISE_Hatch" "_m" "ISE_Outline BRG" ""
"_.rectang"
)
(while (> (getvar 'cmdactive) 0) (command pause)); finish rectangle
(command
"_.bhatch" "_s" "_l" "" "_p" "ansi31" "" "45" ""
"_.chprop" "_l" "" "_la" "ISE_Hatch" ""
)
(while (setq pt (getpoint "\nSpecify first corner point or <exit>: "))
(command
"_.rectang" "_none" pt pause
"_.bhatch" "_s" "_l" "" "_p" "ansi31" "" "" ""
"_.chprop" "_l" "" "_la" "ISE_Hatch" ""
)
)
(setvar 'clayer prevlayer)
(princ)
)But you probably should say something about the scale, rather than just accepting the default as the above does. Who knows what that might be at a given time?
Also, the first one seems to be just like the continuation of more after that. Is there some reason it couldn't be within one (while) function -- just the followup repeating round, without the separate first round? Is there supposed to be something different about the first one?
And I would suggest you investigate using HATCH instead of BHATCH -- it seems more direct about it, to me. And also the use of a User-specified pattern, so you can just tell it directly the line spacing and angle you want, instead of monkeying around with how ANSI31 is defined and compensating from there. It's silly to tell it to use ANSI31 at 45° to get your lines vertical -- with a User-defined pattern, you can tell it 90° outright.
A update to previous code, download the Multi getvals.lsp.
; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/lisp-routine-to-draw-a-rectangle-and-hatch-it/td-p/9670021
; Simle draw rectang and hatch
(defun c:wow ( / ans len wid ang hsc pat)
(if (not AH:getvalsm)(load "Multi Getvals.lsp"))
(if (= pat nil)(setq pat "Solid"))
(if (= len nil)(setq len 500))
(if (= wid nil)(setq wid 250))
; add more defaults use rtos
(while (setq pt (getpoint "\nPick lower left point Enter to exit "))
(setq ans (AH:getvalsm (list "Enter values " "Length " 5 4 (rtos len 2 1) "width" 5 4 (rtos wid 2 1) "Hatch pattern" 11 10 pat "Hatch angle " 5 4 "0" "hatch scale " 5 4 "1")))
(setq Len (atof (nth 0 ans)) wid (atof (nth 1 ans)) pat (nth 2 ans) ang (atof (nth 3 ans)) hsc (atof (nth 4 ans)))
(command "_.layer" "_t" "column hatch,column" "_m" "column hatch" "_m" "column" "")
(command "rectang" pt (mapcar '+ pt (list len wid 0.0)))
(setvar 'hpname pat)
(setvar 'clayer "column hatch")
(if (= pat "Solid")
(command "_.hatch" "S" (entlast) "" "")
(command "_.hatch" "P" "" hsc ang "S" (entlast) "" "")
)
)
(princ)
)
(c:wow)
For me would add a CHKLAY function that checks does layer exist if not make it and set color and linetype etc.
Here's a snazzier version, using some of what I suggested earlier [User-specified pattern, direct input on spacing and angle], and with enhancements like ensuring the Layer gets reset even if ended with ESCape [unlike my earlier one, which needed Enter/space to end it to have the Layer reset], Undo begin/end wrapping, and remembering your choices and offering them as defaults. See comments at the top of the file.
