All Activity

yep I've been on here all morning. I know there was some mention of some slight changes to the plans over the years. Do you know if any major changes were made from 2018 to now? I'm seeing some conflicting versions and I wasn't sure if there were changes or if some drawings weren't finished yet

If you finished the residential house project, then you shouldn't have any problems with the structural project. Plan view, elevation view, sectional view and details is pretty much a standard whether it is a house that is being designed or a commercial building (ex. - warehouse, office building, etc.).

Images of Plate 1, of the Penn-Foster structural project, are posted throughout various threads contained within this forum.

You have a few choices in executing this task, you can add a macro in Excel rtaher than write a script asks for a point in your CAD, Acad or Bricscad plus others, then puts the value into your spread sheet X & Y so co-ordinates are made for the pline. Your macro than adds the pline by calling a Sub in Excel. 3 pt pline for you just call the co-ords in a loop. Sub alan3() 'Dim coords(0 To n) As Double Dim coords(0 To 5) As Double coords(0) = -6: coords(1) = 1: coords(2) = 3: coords(3) = 5: coords(4) = 7.55: coords(5) = 6.25: col = 1 Call addpoly(coords, col) End Sub The other way is to read the co-ords from Excel it looks like there a fixed number of rows. Can enter X & Y from cad via a pick point, then read co-ords. That seems simplest for moment as Excel is doing the calculations. I did something similar for some one else and looked at converting to all in lisp but the lookup tables were getting immense so just wrote and read Excel. The only question I guess is which MS12, IB11 and so on.may be able to do a front end for that choice. Will have a go at say MS12 as a start. let me know if on correct path, ; https://www.cadtutor.net/forum/topic/99002-pline-script-file-keeps-failing/ ; read excel draw pline : By AlanH Feb 2026 (defun c:wow ( / myxl mysheet row lst k) (defun getcell (cellname / ) (setq myRange (vlax-get-property (vlax-get-property myxl "ActiveSheet") "Range" cellname)) (princ (vlax-variant-value (vlax-get-property myRange 'Value2))) ) ; Count will be 0 if no excel open but if no workbooks also may return same value. Nil names. ; So a double check count /=0 and wb not "" (princ "\nOpening Excel...") ;; Try to get or create Excel instance (setq myxl (vl-catch-all-apply 'vlax-get-or-create-object '("Excel.Application"))) (if (vl-catch-all-error-p myxl) (progn (prompt "\nError: Could not start Excel.") (exit) ) ) (if (= (vlax-get-property (vlax-get-property myXL 'WorkBooks) 'count) 0) (vlax-invoke-method (vlax-get-property myXL 'WorkBooks) 'Add) ) (vla-put-visible myXL :vlax-true) (vlax-put-property myxl 'ScreenUpdating :vlax-true) (vlax-put-property myXL 'DisplayAlerts :vlax-true) (setq mySheet (vl-catch-all-apply 'vlax-get-property (list (vlax-get-property myxl "Sheets") "Item" "XY Table"))) (vlax-invoke-method mySheet "Activate") (setq row 52) (setq lst '()) (repeat 7 (setq lst (cons (getcell (strcat "B" (rtos row 2 0))) lst)) (setq row (1+ row)) ) (setq lst (cons "C" lst)) (setq lst (reverse lst)) (setq oldsnap (getvar 'osmode)) (setvar 'osmode 0) (setq k -1) (command "pline") (repeat (length lst) (command (nth (setq k (1+ k)) lst)) ) (command "Zoom" "E") (setvar 'osmode oldsnap) (if (not (vlax-object-released-p myXL))(progn(vlax-release-object myXL)(setq myXL nil))) (princ) ) draw object xl bricscad.xlsm draw object xl acad.xlsm

See the two sheets attached. First one is the dimensions, second is the one where the PLINE command is written. PLINE Example.xlsm

Have a look at this it's a hatch answer, may be similar to what you want. https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/problem-with-lisp-files/td-p/14027683 Let me know if want more info.

If you have a Excel spreadsheet with the info like the DCL above, you do not need the XY points calculated as they will be calculated by the lisp. Can you post the Excel or at least an image. PS can read Excel from CAD.

I just am not that familiar with LISP commands, never used them. This is my first time where I needed many sections. Plus the geometry was defined on excel based on the contract plans. Chamfer thicknesses vary linearly.

Any reason why you would not use a lisp ? Very simple shape to make. Just ask. The DCL front end took 1 minute to make. Could add more shapes.

Am not sure if that would work, I use something along the lines of this link: But Lee Macs code - the one I use is VLA- and VLAX- so not sure it would work in LT. There is a simpler example entmake a hatch which might be what you want to do?

So I am using this to try and take a list of points to use the with the hatch Draw command, but I cant get the Hatch command to accept the points in the list. I think it has something to do with the command-s needing to start and finish in the same function call, but I am not sure. Can anyone confirm this? (initcommandversion) (command-s "hatch" "_k" "_d" "_al" "_o" "_w" "4" "_m" "_p") (while (= (getvar "cmdactive") 1 ) (repeat (setq x (length bd-lst)) (command (nth (setq x (- x 1)) bd-lst)) ) (command "") )

If anyone happens to have a picture of what Sheet 1 should look like that would be a great start. I'm kinda lost here

Thanks Lee. I got it to work. Used this (initcommandversion) (command-s "hatch") No -hatch or it wouldnt work as intended.

Such a tool would be https://www.theswamp.org/index.php?topic=58808.0

Try using (initcommandversion) before the command call.

Alright guys, so far my cad experience through Penn foster has been pretty rough to say the least...lol...starting the Structural Drafting portion now. Anything I should be aware of? Any input would be appreciated.

Yep! That's the fix.

Hi everyone, I am using ACAD2025LT and I was looking into the newer "Draw" hatch feature, where you can type hatch and tell the command that you want to draw a hatch along a sort of polyline that you pick. You can pick Alignment, Width whether its going to be just a rectangle or circle etc etc. The only thing I can seem to figure out is if this can be access using LISP. I have a few idea for hatching as I create something using LISP, but for the life of me I cant figure out how to use the draw hatch feature with lisp. I know lisp forces the use of "-" on a command when used in a lisp routine. Like if you use (command "hatch" ) in a LISP it will actually do (command "-hatch"). Although if you use -hatch you are given a whole different set of options to pick from and the "draw" option is not there. So my question is, Has anyone been able to use this draw option in a LISP routine? Thanks.

Unfortunately not with the current version, but I'll certainly consider implementing this functionality in a future version.

Have you tried to turn off Object Snaps before you run the script? It looks to me as if your line is snapping to adjacent end of line points instead of plotting the listed coordinates.

¿It's posible to reset counter each time previous counter increments?. For example: 1-1-a, 1-1-b, 1-1-c, 1-2-a, 1-2-b, 1-2-c, 1-3-a, 1-3-b .... etc

I moved your thread to the The CUI, Hatches, Linetypes, Scripts & Macros Forum. Your script is missing the blank line at the bottom, so it needed that for enter at the end. Other than that, I ran it in AutoCAD 2000i on my home computer and they all look like your bottom image.

I have multiple sections which I am trying to plot using a script file. I am stuck although the format seems to match what I can find online. This is what the shapes look like when I run the script file weirdly enough. the last 5 sections work just fine. I know the coordinates are correct in all cases since I made a scatter plot in Excel before hand. Also, when I just copy the lines from the script file into the command line. I get the right shape every time. (Possible Clue: the command stays in pline after pasting, look at the command line) Lines pasted into command line _.PLINE 103150,-122340 103150,-126391.3 101272.9,-126391.3 100691.9,-125765.9 100691.9,-122965.4 101272.9,-122340 103150,-122340 C _.PLINE 106150,-122340 106150,-126391.1 104264.2,-126391.1 103674.6,-125755.4 103674.6,-122975.7 104264.2,-122340 106150,-122340 C sections.scr

Just doing something wrong with using OBDX still getting my head around using it. I think the limitation is in getting an object via a selection set. So a script approach may be the easiest way. Give this a try two parts the doatts.lsp file which does the work, the c:doatts that makes the script to be run so need to load that first. That means 2 lisp files. Change the Acadtemp to your start directory, pick any dwg for directory name. (defun c:doatts ( / fname files pre fo) (setq fname (getfiled "Select a Dwg FILE" "d:\\Acadtemp" "dwg" 16)) ; chnage start directory name (setq pre (car (fnsplitl fname))) (setq files (vl-directory-files pre "*.DWG" 0)) (setq fo (open (setq fname (vl-filename-mktemp "" "" ".scr")) "w")) (write-line "(command \"regen\")" fo) (foreach file files (write-line (strcat "Open " "\"" pre file "\"") fo) (write-line "(load \"doatts\")" fo) (write-line "(AH:doatts)" fo) (write-line "close Y" fo) ) (close fo) (command "script" fname) (vl-file-delete fname) (princ) ) Second lisp is the doatts defun AH:doatts ( / ss obj atts att tname) (setq ss (ssget "X" '((0 . "INSERT")))) (repeat (setq x (sslength ss)) (setq obj (vlax-ename->vla-object (ssname ss (setq x (1- x))))) (if (= (vlax-property-available-p obj 'hasattributes) T) (progn (setq atts (vlax-invoke obj 'Getattributes)) (foreach att atts (setq tname (vlax-get att 'Tagstring)) (if (= tname "MATERIAL") (vlax-put att 'Textstring "TEST") ) ) ) ) ) (command "close" "Y") (princ) )

In PDF-XChange Editor, I could only edit the Title Border Text. All the node text isn't editable. Using OCR in PDF-XChange, it converted all 5 pages in about 15 seconds. I am using the paid-for version, so not sure if OCR is available in the free version.