All Activity

It unmirrors blocks.

Hard to say with what little information you are giving. Is it just happening on the MacBook Pro? Can you post the .dwg? What are the computer specifications, graphics card, and driver?

See on archive of the web: UNMI.LSP

I’m trying to obtain the UNMI.LSP AutoLISP routine previously hosted at: http://my.sterling.net/~bdeshawn/unmi.lsp The site has been offline for a long time, and I haven’t been able to reach the original author. If anyone here has the source code, has used this routine before, or can provide details about what the program exactly does, I would greatly appreciate any help or pointers. Thank you in advance to anyone who can share documentation, the LISP file, or a functional equivalent.

Buenos días Me parece muy interesante, se pudiera colocar un guion en el archivo de DWG. Ejemplo: el Archivo de llama Tomo.dwg y tengo varias presentaciones, 001,002, etc. ya la hora de crear el archivo independiente de cada una de las presentaciones me crea un fichero Tomo001.dwg, Tomo002.dwg, etc. y en mi caso me haría falta que saliera Tomo-001.dwg, Tomo-002.dwg, etc.

Great! it worked, thank you so much!

In general, we work with plans for projects of various kinds: engineering, cadastral mapping, and so on. Sometimes we submit proposals for public tenders, but so far without success. @dexus, the performance of your code looks different in that last drawing compared to what I’m seeing on my end. In any case, I think this topic has now entered the realm of a real challenge. @BIGAL: I agree. I think that’s the correct way to draw the centerline in the inlets.

You need to search for convert Raster to Vector programs. You can use Raster Design on the image files, but still requires some work, it doesn't work on the PDFs though. If they refuse to properly create Vector PDFs or give you a .dwg, your only option is to do them in a separate Raster/Vector program, Raster Design or trace them in AutoCAD.

Welcome aboard. The use of "C:" in a defun name implies the command name, so in code above type "Test" after loading. I would also rename "test" to something that you would call it. (defun c:test ............. ........ ) ; end defun add this a last line and it will run on load ) ; end defun (c:test)

Ok the "add" is only needed if you start excel as it would normally ask to select a fiel including "Blank", if you have Excel already open it will find current workbook. I need to put the add in correct spot not sure why I did not do before. This should work just replace in code. ; 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)

I do not have Revit or the original files. The PDFs were provided to me. I would LOVE the .dwg files but we may not be able to get them from a third party vendor.

I have trouble with the model space viewport - it's on 1/3 of the screen. I try to slide it to enlarge it but it just keeps returning to the initial state. I tried turning all the viewports on and off, command "WSCURRENT", every classical way to resolve the issue but nothing works. The problem occured on a AUTOCAD2024 for MacBook Pro. Thank you in advance.

Not too hard to create, a real pain to maintain as it must be compiled every time Autodesk decides to break binary compatibility

Try this. ;;Changing the color of CrossHair (transparent command) (DEFUN C:CHCOL (/ c d l m n o p) (setq c (quote ("Black" "Red" "Yelow" "Green" "Cyan" "Blue" "Magenta" "White" "8" "9")) l (quote ( 0 255 65535 65280 16776960 16711680 16711935 16777215 8421504 12632256)) d (vla-get-display (vla-get-preferences (vlax-get-acad-object))) m l o (vlax-variant-value (vlax-variant-change-type (if (= (getvar "TILEMODE") 0) (vla-get-layoutcrosshaircolor d) (vla-get-modelcrosshaircolor d) ) vlax-vbLong ) ) n (member o l) ) (cond ;;Rearrange list l with the First item = Current color from the list l ( (and n (/= o 0)) (setq l (append n (vl-remove-if (function (lambda (x) (member x n))) l))) ;;(v1 v2 n v3 v4 v5 ...) -> (n v3 v4 v5 ... v1 v2) ) ;;Add current color to lists ( (not n) (setq l (cons o l) m l c (cons (strcat (itoa (lsh (lsh o 24) -24)) "," (itoa (lsh (lsh o 16) -24)) "," (itoa (lsh o -16))) c) ) ) (T nil) ) (princ (strcat "\nCurrent color: " (nth (vl-position (car l) m) c) ". [Right Mouse Button/Enter Key/Space Key] to accept or any key to cycle CrossHair colors." ) ) (while (and (not (vl-catch-all-error-p (setq p (vl-catch-all-apply (function grread))))) ;;<Esc> (not (equal p (quote (2 13)))) ;;<Enter> (not (equal p (quote (2 32)))) ;;<Space> (/= (car p) 25) ;;Right mouse button ) (setq l (append (cdr l) (list (car l)))) (if (= (getvar "TILEMODE") 0) (vla-put-layoutcrosshaircolor d (car l)) (vla-put-modelcrosshaircolor d (car l)) ) (princ (strcat "\nCrossHair Color: " (nth (vl-position (car l) m) c))) ) (princ) ) ;;CHCOL

You need to properly set up Revit. PDF is not fully vectorized after exporting it from Revit "Revit will use raster printing because this view uses..." while printing a sheet to PDF format in Revit And check the links at the bottom of those pages. You should be able to Export to a .dwg if that's what you want.

Had the same issue before - the quickest fix for me was just updating the DIMSTYLE and then using DIMUPDATE on the whole selection. It forces all the oversized boxes to follow the current style settings instead of whatever weird scaling they picked up. Select all your dims → type DIMUPDATE → done. Usually cleans things up in one go.

Need to pull the effective block name and check it against the block table. That is where the path is stored. updated code.

Hi mhupp, Thank you for the response. the result says: ; error: ActiveX Server returned the error: unknown name: IsXRef

it didn't works

Options, Display, there is an item cross hair color, in Bricscad. Its X Axis color Y axis color. I run Black background so colors like red are good. No code required.

Untested I remember Lee Mac saying it was important to release the html obj as it could cause a memory leak or something. ;;----------------------------------------------------------------------------;; ;; Copy Selected Xref Path to Clipboard with prompt. ;; https://www.cadtutor.net/forum/topic/98871-xref-path-copy-to-clipboard (defun c:XrefToClipBoard (/ SS Blk Path html) (vl-load-com) (if (setq SS (ssget "_+.:E:S" '((0 . "INSERT")))) (progn (setq blk (vla-get-effectivename (vlax-ename->vla-object (ssname SS 0)))) (setq blk (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) blk)) (if (= (vla-get-isxref blk) :vlax-true) (progn (setq Path (vla-get-Path blk)) (vlax-invoke (vlax-get (vlax-get (setq html (vlax-create-object "htmlfile")) 'ParentWindow) 'ClipBoardData) 'setData "Text" Path) (vlax-release-object html) (alert (strcat "\nPath Sent to Clipboard\n Xref Path: " Path)) ) (princ "\nSelected Block isn't an Xref.") ) ) (princ "\nNothing Selected") ) (princ) ) -edit updated code.

Some food for thought - https://www.theswamp.org/index.php?topic=56816.msg605115#msg605115 To obtain the colour numbers, you can use my RGB<->OLE conversion functions: https://lee-mac.com/colourconversion.html#rgbole

I have a series of PDF sheets created from Revit. When I import a PDF sheet into Autocad, some sheets convert everything to autocad geometry while some other sheets only convert a few lines/text objects. The rest remain and are shown as raster images. What setting(s) controls whether a PDF is seen as vector vs raster by Autocad? Ideally, I'd like to get all the sheets in a PDF format that will import and convert everything in Autocad as usable entities. (I do not think they will convert it to a .dwg format for me).

Its set in OLE_COLOR, so some color conversion might be necessary. Or you can hardcode the color by changing it in the settings and retrieving the color-code using the first code below. Here is how to get the current color: (if (setq dis (vla-get-display (vla-get-Preferences (vlax-get-acad-object)))) (vlax-variant-value (vlax-variant-change-type (vla-get-ModelCrosshairColor dis) vlax-vbLong)) ; Current color ) And this way you can change the cursor color: (if (setq dis (vla-get-display (vla-get-Preferences (vlax-get-acad-object)))) (vla-put-ModelCrosshairColor dis 255) ; Change to red )