AutoCAD Forums

Drawings with Multiple Floors on Model Space

David_Feynman — Mon, 06 Sep 2010 02:31:19 GMT

Total beginner here. Usually I receive a file from an arhcitect that has a separate file for each floor. However this file is different, every floor and even elevations are shown in the model space.

This presents a challenge to me because what I usually do is zoom extents, save and then import the floor into another program I work with. But in this instance zoom extents shows the entire drawing and if I import it's going to import all the different floors.

I assume there is some way to "isolate" each view so that it exports/imports like an individual drawing but I do not know how. Any advice?

Thanks

autocad lt 2011 constant random crash

kiidaka — Mon, 06 Sep 2010 01:23:03 GMT

hi guys,

My computer just got upgraded to autocad 2011 lt and now it seems to crash randomly, without warning as if someone killed the process, since this started the computer has had a full reimage and like some sort of rebuild with new ram put in it.

system specs:

win xp pro service pack 3
AMD athlon 64 X@ dual core 3800+2.01 ghz
2.00gb
NVIDIA GeForce 6600 GT

trend micro client/server security agent is the antivirus

any ideas?

Having trouble to put text label on top of my Inventor parts

alexdone06 — Sun, 05 Sep 2010 19:20:04 GMT

Having trouble to put text label on top of my Inventor parts. Should I import image in sketch - how? Please, help

Sheet sets

monk — Sun, 05 Sep 2010 19:04:54 GMT

Hello

Im newish to using Sheet sets. But from what i found they are very useful for project managing!

Im trying to use the "insert shet list table" feature which i want to add revision number to. However i have added the revision number to the sheet but it wont appear in the table! Any ideas?

UCS Angular degrees

Michaels — Sun, 05 Sep 2010 15:20:20 GMT

Hello,

I have a drawing which the UCS is rotated to a specific angle .

How can I know the rotation (angle degree) of that UCS ?

Many Thanks.

Michaels.

Help! Lisp using Polar command?

DB007 — Sun, 05 Sep 2010 14:24:57 GMT

Hi,

Please can some one help me with the code below, I have (probably badly) butchered this from a tutorial I found online and modified it to my needs. I thought I understood most of it but Im getting some strange results. Im very new to this so please be gentle, even if its not the best way to do it, can you bear with me and not change it completely, atleast yet until I have a better understanding anyway :)

My problem is I was hoping it would draw a circle not at the end of the line but at an offset of 2.8284 at 45 degrees. (2mm at 90 degrees) But it seems to create the centre of the circle at the end of the line instead. Is this something im doing wrong with the polar command? Although if i print new_pt variable it seems to be correct, so im confused.

Ive added the lengthen commmand myself to it so that might also be where its going wrong.

Should probably say once I have this working I want to amend it to drawing a line from end of the original line to the point new_pt, but if I can crack why this isnt working that part hopefully should be easy(ish)!

Thanks in advance.

Code:

; Draw Circle at fixed offset from end of line function

(defun c:Crc1 (/ aks pp aks_hand aks_pt1 aks_pt2

aks_ang dist1 dist2 st_pt new_pt)

;Let's select the end of the axis where we will place the bubble

;and the selection point.

(setq  aks (entsel "\nPick Line close to end circle is required:"))

;;;Shorten the line by 6mm

(command "_.lengthen" "de" "-6" aks "")
 

(Setq pp (cadr aks)    ; Selection point (PICKPOINT)

aks_hand (entget (car aks))  ; List of axis member

) 
 

;Calculate the start and end points of axis and angle

(setq  aks_pt1 (cdr (assoc 10 aks_hand))

aks_pt2 (cdr (assoc 11 aks_hand)))

(setq aks_ang (angle aks_pt1 aks_pt2))

;Let's find which end of axis the selection

;point is more close to

(setq  dist1 (distance pp aks_pt1)

dist2 (distance pp aks_pt2)

)

;Then set which end of the line to start circle

(if (< dist1 dist2) 

(setq st_pt aks_pt1)

(setq st_pt aks_pt2)

)
 

;find offset centre of circle

(if (< dist1 dist2) 

(setq new_pt (polar st_pt (- aks_ang (/ pi 4.0)) 2.8284))

(setq new_pt (polar st_pt aks_ang 2.8284))

)  
 

;Draw Circle  

(command "_.circle" new_pt 40)

(princ)

)

Welding joints

kanha — Sun, 05 Sep 2010 13:43:51 GMT

Hi I am a brginner to autocad and I would like to know how to represent a fillet weld of 5mm of two square plates of 50x50x10 which are welded by a lap joint?:oPlease help.

On using LINE R on the COMMAND LINE for drawing a straight line

Jawahar Vidyalaya — Sun, 05 Sep 2010 13:28:15 GMT

One method suggested to draw a straight line using AUTOCAD 2007 is by LINE on the COMMAND LINE, Page 15 Beginning AutoCad 2007 by Bob Mcfarlane.

On Page 16 in the summary it smply says LINE to be entered on COMMAND LINE as method 3.

After either proceedure, there is no response to clicking on the board.

There is no meaning in again going back to line icon as this is an independant method anyway.

How do we proceed after entering LINE on Command Line.

Jawahar Vidyalaya

Advanced Block

BigThumper — Sun, 05 Sep 2010 03:30:23 GMT

Hi!

I've long wanted a set of blocks that had a quantity of "intelligence" - but I could never find the time to learn the programming API. Recently I was introduced to the power of dynamic blocks - and I'm quite excited!

I've got much of what I want implemented - I need some help trying to finish it up. There are actually several questions contained in this post - please bear with me.

First of all, there's a quantity of geometry that needs to be changed depending on a selection. This seems to call for a visibility parameter - and seems to work well. While I'm at it - I should ask if I've implemented this the "hard" way or not. The main geometry that gets affected is a square hatch area - depending on the visibility state, the size of the hatch with its outline square changes. There's no direct numerical relationship between the visibility state name and the size of the square. So I have a dozen states named "15, 30, 75, 110, etc." and the geometry should then be 20'x20', 30'x30', 38'x38', etc. At this time, I've implemented this by creating a number of simple blocks each containing the square hatch at a given size. I then block'ed all these together and toggle them with a visibility state.

Now, after I've selected the visibility state, I want to both have it available as an attribute and display a text on the block. I have no idea how to link this with an attribute - and the only way I now know to get the text to display is to generate a dozen texts and control them via the same visibility parameter. Is there a better way? And how can I set an attribute value from this method? I should add - the reason I want to set an attribute value is to later extract that information for counting purposes.

Attached Files

test.dwg (89.7 KB)

Issue looping through my cad files

RMS — Sun, 05 Sep 2010 03:01:57 GMT

I am doing some .net testing and I am running into so problems. I am looping through a directory that hold multiple Autocad files. I then open one at a time and try to do a selection set, but here comes my problem just as the drawing opens the default Drawing1.dwg (blank) drawing opens right on top of it; and if I close it out the same thing happens on the next drawing.

Here is my code if anyone would like to solve this. Thanks!

Code:



Public Class Class1



    Dim ed As Editor = Application.DocumentManager.MdiActiveDocument.Editor



     _

    Public Sub createLine()



        Dim mPath As String = ""

        Dim mFxdNm As String = ""



        ' First create a FolderBrowserDialog object

        Dim FolderBrowserDialog1 As New Forms.FolderBrowserDialog

        With FolderBrowserDialog1

            .RootFolder = Environment.SpecialFolder.Desktop

            .SelectedPath = "c:\dxfTest"

            .Description = "Select the source directory"

            If .ShowDialog = Forms.DialogResult.OK Then

                mPath = .SelectedPath.ToString

                Dim last_char = mPath.Substring(mPath.Length - 1)

                If last_char <> "\" Then

                    mPath = (mPath & "\")

                End If

            End If

        End With



        Dim files() As String ' keeps a list of all nest sums

        files = System.IO.Directory.GetFiles(mPath, "*.dwg") ' gets list of files names in folder

        For Each fname In files  ' Loops Through files() array and parces every nest sum



            Dim strFileName As String = fname

            Dim acDocMgr As DocumentCollection = Application.DocumentManager

            If (File.Exists(strFileName)) Then

                acDocMgr.Open(strFileName, False)



                ' Get the current document and database

                Dim acDoc As Document = Application.DocumentManager.MdiActiveDocument

                Dim acCurDb As Database = acDoc.Database



                ' Start a transaction

                Using acTrans As Transaction = acCurDb.TransactionManager.StartTransaction()



                    ' Request for objects to be selected in the drawing area

                    Dim acSSPrompt As PromptSelectionResult = acDoc.Editor.GetSelection()



                    ' If the prompt status is OK, objects were selected

                    If acSSPrompt.Status = PromptStatus.OK Then



                        Dim acSSet As SelectionSet = acSSPrompt.Value



                        ' Step through the objects in the selection set

                        For Each acSSObj As SelectedObject In acSSet



                            ' Check to make sure a valid SelectedObject object was returned

                            If Not IsDBNull(acSSObj) Then



                                ' Open the selected object for write

                                Dim acEnt As Entity = acTrans.GetObject(acSSObj.ObjectId, OpenMode.ForWrite)



                                If Not IsDBNull(acEnt) Then

                                    ' Change the object's color to Green

                                    acEnt.ColorIndex = 3



                                End If

                            End If

                        Next



                        ' Save the new object to the database

                        acTrans.Commit()



                    End If

                    ' Dispose of the transaction

                End Using

            Else

                acDocMgr.MdiActiveDocument.Editor.WriteMessage("File " & strFileName & " does not exist.")

            End If

        Next

    End Sub



End Class

and the imports:

Code:

Imports System

Imports System.IO

Imports System.Windows

Imports Autodesk.AutoCAD.Colors

Imports Autodesk.AutoCAD.Runtime

Imports Autodesk.AutoCAD.Geometry

Imports Autodesk.AutoCAD.EditorInput

Imports System.Runtime.InteropServices

Imports Autodesk.AutoCAD.DatabaseServices

Imports Autodesk.AutoCAD.ApplicationServices

Imports Autodesk.AutoCAD.Windows

Make Autocad run smoother...

kevin1973 — Sun, 05 Sep 2010 02:43:36 GMT

What kind of things do others do to help the program run faster...i.e. turn of xrefs, etc.

I'm looking for things that new users could do to help make their drawing environment a little more user friendly.

thanks!

Make LAYER, COLOR, LINETYPE current,, that works with DIMENSION, TEXT too

pryzmm — Sun, 05 Sep 2010 01:37:01 GMT

hi,, ive been figuring out how "Laymcur" and "MATCHPROP" can be combined into 1,,meaning if i picked an entity say "line" the layer, color, linetype,of the picked entity will all be the current one, ready to be use for another command.

that goes for dimension (dim style, dim layer) and text (text syle, text layer) as well.

but i guest my being noob in lisp make me more confuse :oops:,,,please help.

many thanks :)

AutoCad affects Desktop Graphics

Angus J — Sat, 04 Sep 2010 22:47:10 GMT

Using AautoCad 2008, Dell Inspiron with Vista (Home).

When I start AutoCad my graphics go haywire. I lose reolution and screen looks awful. reverts back to normal when I close down.

Does anyone know why?

Thanks

Angus

Autodesk Butterfly web app and WS mobile platform...

Paul H — Sat, 04 Sep 2010 22:19:50 GMT

Anyone seen this?

http://butterfly.autodesk.com/blog/what-is-butterfly/

and this?

https://butterfly.autodesk.com/mobile/

Looks pretty good I reckon, the facility to co-edit is especially interesting...

Pre loaded fixtures

FLAFTER5 — Sat, 04 Sep 2010 20:56:25 GMT

Are there any pre loaded toilets, sinks cabinents in Auto cad 2008?