There are times when an image needs to be included in a drawing. For example, a client logo that needs to be part of the title block. It would be better to convert the logo into a block object by tracing over the image in AutoCAD and applying hatching as needed. But there are some logos that are not so simple and therefore using an embedded image is preferred.
If you have dragged and dropped the image into the drawing or used the OLE method, you realize that file is being referenced and therefore the separate picture file needs to be included when you send the file to the client.
Today’s tip shows how to bring the picture into a drawing so that it is not a reference and is therefore one less file to have manage…
Click here for original post: http://wp.me/p1aURt-uO
- Navigate to the picture file
- Right click on the file and select “edit”
- You could also open the picture in from the Windows Paint program
- Select either the whole picture by using Ctrl + A or select a portion of the picture by dragging a window over the area you would like to insert into your drawing.
- Copy the selected picture either using Ctrl + C or by clicking the Copy button
- To paste the image in AutoCAD, use the command PASTESPEC or click the “Paste Special” button found on the Home tab > Clipboard panel > Paste drop down list > “Paste Special”
- Accept the default option of “Paintbrush Picture” in the Paste Special dialog box
- Click OK
- Place the picture in the drawing and specify the scale
(In this example, the image is placed in paperspace)
- Verify that the image is not an XREF by entering XR <enter> or XREF <enter> in the command line
This tip was tested and works with Windows Explorer and Google Chrome (and Microsoft Excel…)
To create a list of drawings, either for yourself or for a client, these steps can help save some time.
- Navigate to the folder in Windows Explorer
- Copy the folder location
- Paste the folder location into Google Chrome and press enter
- Note: I have not tried this with Firefox. I did try it with Internet Explorer and when I hit enter, it would open the folder location…
- Highlight the files as they are displayed in the browser and copy
- Paste the copied list of files into Excel in the upper left corner.
Note 1: After the initial spread sheet is created, you can add to this list by adding to the bottom row of the spreadsheet.
Note 2: You have 2 choices when Pasting the content
- “Keep Source Formatting” will also create a link to the individual files (could be handy)
- “Match Existing Formatting” will keep the formatting as simple text
After pasting the content into Excel, you may need to clean up some columns and rows… But this will save some time instead of manually creating a drawing list.
Today’s featured routine is an example from a book about Visual Lisp Programming and was an example that we learned from as an example in class when I was in school.
It is a simple routine that lets you incrementally array a row of numbers. This might be helpful for creating numbered lists or placing numbers along a line…
Lee-Mac has made some pretty powerful numbering routines that can do a lot more than this routine does. These routines can be found here:
- NUMROW <enter>
- Specify the first text location – this will be # zero
- Specify the distance – either by picking 2 points on screen or by entering the distance in the command line
- Specify the angle – either by picking 2 points on screen or by entering the angle in the command line
- Specify the ending number of the array
; Example from book: Visual Lisp Programming
; NumRow.lsp by Cal Clater
; Purpose: To create an evenly spaced row of incrementally increasing numbers,
; such as might be required for a chart or graph. The beginning number is zero
; and the last number is as specified.
(defun C:NumRow (/ PT1 DST DIR NN HN)
(setvar "CMDECHO" 0) (setvar "BLIPMODE" 0)
(princ "\nText will be center justified.")
(setq PT1 (getpoint "\nstart point of number row: ")
DST (getdist "\nDistance between number: ")
DIR (getorient "\nAngle: ")
HN (getint "\nNumber sequence to be 0 through: ")
(command "TEXT" "C" PT1 "" "" "0")
(setq PT1 (polar PT1 DIR DST))
(command "TEXT" "C" PT1 "" "" (itoa (setq NN (+ NN 1))))