Jump to content

All Activity

This stream auto-updates

  1. Today
  2. Hi, thanks for the offer. I am doing exactly that with my blocks. I directly data extract to an excel file and that I find to be the most convenient until my blocks got corrupted after which the blocks stopped showing up in the data extraction menu box. I am familiar with data extraction of the blocks. The root problem is ZWCAD does not allow data extraction of the contents of mtext or does not data extract mleaders at all, which is why I had to create the dynamic block. I really want to know why the dynamic blocks get corrupted and if there's a way to return it back to the original definition of the block. I found out recently that a fairly simple dynamic block I made within ZWCAD got corrupted too. I am reattaching the Issue.dwg with some more information. .
  3. mhupp

    command OOPS...

    OOPS only restores objects that were erased by the last ERASE command.
  4. Yesterday
  5. BIGAL

    command breakline from lsp...

    Just my $0.05 there was another post about doing breaklines maybe at Forums/autodesk/lisp. One answer provided had multiple break styles that looked very useful. I will spend a couple of minutes and see if I can find the link.
  6. Welcome to Cadtutor. !st step run AUDIT and look for errors. 2nd ? In this problem case I use Notepad++ a text editor its free, it has a function "Compare" so you can compare two files, in the case of CAD you look at all the variable settings. You use a Log file, the command LOGFILEOn starts it LOGFILEOFF stops it, you run it on two different PC's. The log file is located in your temp directory under Options Files Temporary directory. 3rd you may want to audit the Xrefs. If your happy can you post the dwg here so we can try to find problem.
  7. To get block details like name and attributes is pretty easy, I have something that sorts the blocks and counts up the blocks with same attributes. Then puts the answer in a table, another program exports the table. Or write directly to excel. If you can provide a sample dwg, I will see what I can do. Else send me a PM with a email link.
  8. Sorry, I've been out hiking. It appears to be correct. Question: Have you already calculated the location of the 80 ft. contour that occurs between the spot elevations of 88.9 and 93.8? There is also a 100 ft. contour and a 110 ft. contour that starts on the same grid line.
  9. HPatel

    Problem plotting with ACAD2024

    I am facing same problem, plotting in autocad 2024 is 10 times slower than autocad 2019. Unfortunately, its 2026 still problem is unsolved
  10. Thank you very much for the guidance. I already know your instructions, and this is what I did. Could you tell me if this is correct?
  11. Tsuky

    command breakline from lsp...

    If I understood the request correctly... This could be a design start, it uses the oblique block of the dimension. (vl-load-com) (defun circle2lw (e / dxf_ent pt_cen radius fst_pt opp_pt) (setq dxf_ent (entget e) pt_cen (cdr (assoc 10 dxf_ent)) radius (cdr (assoc 40 dxf_ent)) fst_pt (polar pt_cen 0.0 radius) opp_pt (polar pt_cen pi radius) ) (entmake (list '(0 . "LWPOLYLINE") '(100 . "AcDbEntity") (assoc 67 dxf_ent) (assoc 410 dxf_ent) (assoc 8 dxf_ent) (if (assoc 6 dxf_ent) (assoc 6 dxf_ent) '(6 . "BYLAYER")) (if (assoc 62 dxf_ent) (assoc 62 dxf_ent) '(62 . 256)) (if (assoc 370 dxf_ent) (assoc 370 dxf_ent) '(370 . -3)) (if (assoc 48 dxf_ent) (assoc 48 dxf_ent) '(48 . 1.0)) '(100 . "AcDbPolyline") '(90 . 2) '(70 . 1) (cons 43 0.0) (cons 38 (caddr fst_pt)) (if (assoc 39 dxf_ent) (assoc 39 dxf_ent) '(39 . 0.0)) (cons 10 (list (car fst_pt) (cadr fst_pt))) '(40 . 0.0) '(41 . 0.0) '(42 . 1.0) (cons 10 (list (car opp_pt) (cadr opp_pt))) '(40 . 0.0) '(41 . 0.0) '(42 . 1.0) (assoc 210 dxf_ent) ) ) (entdel e) (entlast) ) (defun c:Mybreak ( / ent obj_brk pt_brk vlaobj pr deriv alpha) (setvar "DIMBLK" "oblique") (while (setq ent (entsel "\nBreak point: ")) (setq obj_brk (car ent)) (cond ((member (cdr (assoc 0 (entget obj_brk))) '("POLYLINE" "LWPOLYLINE" "LINE" "ARC" "CIRCLE" "ELLIPSE" "SPLINE" "XLINE" "RAY")) (setq pt_brk (cadr ent)) (if (eq (cdr (assoc 0 (entget obj_brk))) "CIRCLE") (setq obj_brk (circle2lw obj_brk))) (setq vlaobj (vlax-ename->vla-object obj_brk)) (initget 1) (setq pt_brk (vlax-curve-getClosestPointTo vlaobj (trans pt_brk 1 0) nil ) pr (vlax-curve-GetParamAtPoint vlaobj pt_brk) deriv (vlax-curve-getFirstDeriv vlaobj pr) alpha (atan (cadr deriv) (car deriv)) ) (command "_.break" obj_brk "_none" pt_brk "_none" pt_brk) (initget 1) (command "_.-insert" "_oblique" "_scale" (distance (trans pt_brk 0 1) (getpoint (trans pt_brk 0 1))) (trans pt_brk 0 1) (angtos alpha (getvar "AUNITS") 13)) ) (T (princ "\nThis object can't be break!")) ) ) (princ) )
  12. You might try Lee Mac's Steal from Drawing | AutoCAD | Autodesk App Store. I just do a SAVE or SAVEAS on the drawing and make a new exact COPY of the drawing. If I have similar drawing that could use the other viewport and settings, I just drag the Layout from one drawing to the other with Design Center. There is an Export Layout to Model... when you right-click a Layout TAB and before that option was in AutoCAD there were some programs that would do that. To do what you want looks to be a lot of work for a LISP.
  13. SLW210

    command OOPS...

    You need to use ERASE to remove items in order for OOPS to actually restore it.
  14. Bonjour, Mon équipe et moi effectuons des exports autocad sur un fichier comportant beaucoup de Xref. Nous avons tous le même matériel informatique. Un des membre de notre équipe n'a aucun soucis, nous avons comparé certains de nos paramètres, il nous semble que nous ayons les mêmes (mais peut-être n'avons nous pas tout étudié). Le beug ne se déroule pas dans l'espace objet qui fonctionne - nous pouvons nous déplacer dedans- mais lorsque nous cliquons sur l'une des présentations, la fenêtre se fige à jamais et il est donc impossible de réaliser les exports. Ceci est embêtant car actuellement un seul ordinateur de notre équipe est en capacité d'effectuer les exports. Nous sommes tous sur la même version autocad : Autocad LT2026. Merci pour votre aide, Cordialement.
  15. Emmanuel Delay

    command breakline from lsp...

    Command CBL: puts the Breakline symbol 4.0 units from the start, the breakline symbol is 1.0 units wide, and the tip is 0.4 units up or down the line. Obviously feel free to change those values. command CBLU: Same, except the user must give all the values. ;; Custom Breakline ;; @params ;; ps: start point ;; pe: end point ;; gap: gap between the two halves of the lines ;; loc: location of the center of the gap ;; tip: vertical size of the tip of the breakline symbol (default there's is 70° angle, but we'll give tip size) (defun CustomBreakLine ( ps pe gap loc tip / angl dst pline pl pd pm pu pr ) (setq angl (angle ps pe)) ;; angle (setq dst (distance ps pe)) ;; distalce of the line (without the breakline symbol) (setq pm (polar ps angl loc)) ;; mid point of the gap (setq pl (polar ps angl (- loc (/ gap 2.0)))) ;; left point of the breakline symbol (setq pr (polar ps angl (+ loc (/ gap 2.0)))) ;; right point of the breakline symbol ;; down tip of the breakline symbol (setq pd1 (polar pl angl (/ gap 4.0))) (setq pd (polar pd1 (- angl (d2r 90.0) ) tip)) ;; up tip of the breakline symbol (setq pu1 (polar pm angl (/ gap 4.0))) (setq pu (polar pu1 (+ angl (d2r 90.0) ) tip)) (setq pl (drawLWPoly (list ps pl pd pu pr pe) 0)) ) ;; degree to rad (defun d2r (d / ) (/ (* pi d) 180.0) ) ;; Returns the middle of two points (defun mid-pt (p1 p2) (polar p1 (angle p1 p2) (/ (distance p1 p2) 2.) ) ) ;; makes a polyline object with entmakex (defun drawLWPoly (lst cls) (entmakex (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (length lst)) (cons 70 cls)) (mapcar (function (lambda (p) (cons 10 p))) lst))) ) ;;;;;;;;;;; ;; Custom BreakLine, User input values (defun c:cblu ( / ps pe gap loc tip ) (CustomBreakLine (setq ps (getpoint "\nStart pont: ")) (setq pe (getpoint ps "\nEnd pont: ")) (setq gap (getdist "\nGap distance: ")) (setq loc (getdist "\nLocation of the gap center (enter value, or select two points: start point + point of the gap): ")) (setq tip (getdist "\nTip height: ")) ) (princ) ) ;; Custom BreakLine, preset values (defun c:cbl ( / ps pe gap loc tip ) (CustomBreakLine (setq ps (getpoint "\nStart pont: ")) (setq pe (getpoint ps "\nEnd pont: ")) (setq gap 1.0) (setq loc 4.0) (setq tip 0.4) ) (princ) ) (princ "\nCommand CBL for Custom BreakLine: ") (princ) Happy with this?
  16. CAD_Noob

    command OOPS...

    That's because you need to do something before issuing the oops command. I think there is a thread here differentiating oops and undo command.
  17. I did think of using lisp, but i am not too familiar with it and it may get complicated if i needed the data within the text to get sorted in excel. Hence, the blocks. I data extract all the attributes of the blocks and their layer names, which end up in their respective columns in Excel.
  18. Last week
  19. leonucadom

    command OOPS...

    master LEE I tried the command, but nothing appeared on the command line, so I doubted I could do it.
  20. Lee Mac

    command OOPS...

    You created this thread before even trying it in your AutoCAD?
  21. Did you google found lots of ideas.
  22. hello : I'm wondering if this command can be used from lsp, as I'd like to interact with it. for example by giving the default size and position of the break symbol Any information you have is welcome. thanks
  23. Re item 9, I used CIV3D so rather than swapping workspaces made a pop menu with a few of the CIV3D commands that we used often. The menu was saved into the drafting workspace. If you can use notepad you can make a new menu. Just open the CUI and copy the relevant commands to your notepad. If want more details just ask. Just a PS every user had their own workspace saved as their name, to avoid any corruption of the default workspaces.
  24. For me I generally write a custom data extract using lisp. That can include mleaders with text or a block with attributes have you thought about going that way ? What object and properties are you extracting and where does it end up Excel etc.
  25. hello: I'm still wondering if this is possible, selecting a viewport in paperspace and that the content of the selected viewport is selected and all of this is saved to the clipboard and then you can copy it to another dwg in a single move. anyone who knows something about this thanks
  26. leonucadom

    command OOPS...

    THANK YOU SO MUCH, I DIDN'T KNOW I HAD IT
  27. marko_ribar

    command OOPS...

    In this link, it's written that OOPS command exist : In AutoCAD since version ≤ R12...
  28. leonucadom

    command OOPS...

    hello: I've heard about the command OOPS Unfortunately, the AutoCAD I use at work is version 2013 Does anyone know if there is an LSP routine command for that? IT WOULD BE GREAT TO INCORPORATE IT Any advice is welcome. thanks
  1. Load more activity
×
×
  • Create New...