AutoCAD Forums

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?

Mapcar + lambda Description

Sweety — Sat, 04 Sep 2010 19:44:30 GMT

Hi GUYS. :)

I have read the Help which attached with Autocad and Afralisp explainations about
mapcar and lambda but without a chance to understand. :lol:

So if someone could help me with it, It would be very kind favor.

Thankxxxxxxx

Sweety.

Flat pattern a boat hull

Krylbo — Sat, 04 Sep 2010 18:09:02 GMT

Is there a way to create a flat pattern of this boat hull?
I´m using inventor 2009.

Attached Files

Boat hull.zip (246.9 KB)

Help needed with a Lisp .

tharwat313 — Sat, 04 Sep 2010 07:46:18 GMT

Hello.

I wonder why this routine although it is creating a Layer(s) of the selected block(s)
it return an error at the end.

Quote:

; error: bad argument type: lentityp nil

Here is the routine .

Code:

(defun c:blk (/ ss1 i num e blkNme )

 (prompt "Select Block(s): ")

  (if (setq ss1 (ssget ":L" '((0 . "INSERT"))))

     (progn

       (setq i -1

             num (sslength ss1))

         (while (< i num)

           (setq e (entget (ssname ss1 (setq i (1+ i))

                        )

                )

            )

           (setq  BlkNme

                  (cdr (assoc 2 e))

                 )

    (vl-cmdf "_.-layer" "_m" BlkNme "" "")

       ))

    (princ "Nothing Selected")

  )

  (princ)

  )

Thanks.

Tharwat

Pump Inducer

rahulverma — Sat, 04 Sep 2010 04:01:21 GMT

Hello,

Could anyone please tell me how to create the 3-D model for a pump inducer?

(more specifically, the inducer for an LMV-311 sundyne pump?)-am a complete beginner..

Thanks

help - Im not sure what comes next

Davidd — Sat, 04 Sep 2010 03:30:21 GMT

Hello
I am hoping someone can assist me with what is probably a very basic question.
I have a simple image that i would like laser cut into plastic (the image is a leaf with rounded edges but one continuous line). Currently this image is hand drawn on a piece of paper and smaller than the actual size I want it cut out at.
I went into the cutting place and the person advised me i needed the image in a dxf file.
Is it simply a case of photocopying my image, converting it to pdf and then using a product (eg an online PDF to DXF Converter) to obtain a dxf file???
Any assistance would be apprecciated as I am unfamiliar with this sort of work and these types of files.
Thankyou David

Cannot find file WD_WNV

GregHarmon — Sat, 04 Sep 2010 03:02:50 GMT

Hi, I am a college student and I am taking a home-study course in ACADE 2010.
I am spending more time trying to get the program to run than actual productive studying! I am trying to insert wire numbers and or wires and I get an ERROR: Cannot find file "WD_WNV". So, therefore I can't do anything. I am stuck dead in the water. I can't find the file either. I am using the Tickoo book as a course book. I am trying to work through the tutorials in the book. Can someone help??:cry:

Help with AutoCad 2000 start up

gurrera — Fri, 03 Sep 2010 22:42:04 GMT

Hi
Here is my problem.
When I open up AuyoCad 2000, it goes to a new drawing.
It use to open a small window o let me pick either standers or metric dimensions.
How can I git it back to where it will?
Thank you for your time.
Sam Gurrera

"SAVE" Setting In Inventor 2009 ???

vertical horizons — Fri, 03 Sep 2010 20:46:50 GMT

In AutoCAD, you can change the SAVE settings from 1 minute to 120 minutes.
In the event of a power failure, everything is saved, according to how long you have the settings set to.

Is there a similiar automatic SAVE feature in IV 2009?