Jump to content

Leaderboard

Popular Content

Showing content with the highest reputation on 11/06/2024 in all areas

  1. Did you contact Autodesk? This happened several years ago and they did an update to fix it. Not sure what version it was. Did you check your graphics card and drivers? Ghosted, dragged, or duplicated objects appear in AutoCAD 3D objects disappear, display wrong, shift position, move, or offset from grips in AutoCAD
    1 point
  2. Hi @CivilTechSource, You need to add a (princ) (choose one of these): - the first one you can add (princ) inside of each "progn" after (princ "\nOhhhh.....) and (princ "\nAll.....) - the second one you can add (princ) after "if" statement, before or after ";----" in your code. Adding a (princ) you will get a "clean" output in command line.
    1 point
  3. If you want one dwg only at a time then you can get the string "AAA\\PBBB\\PCCC". You can then pull it apart ("AAA" "BBB" "CCC") for me using multi getvals.lsp I would pop a dcl with each line as an entry up to about 15 lines works. Then change the required values and update even multiple Mtext. Look in downloads fo the lisp. I seem to recall splitting the mtext by using string replace \\P now * then using Lee's split string. For multiple dwgs version 2 using OBDX. I will let you work out how to search for multiple mtext. The method does work. ; tab 9 space 32 (chr 32) comma 44 semicolum 59 slash / 47 ~ 126 ; thanks to Lee-mac for this defun (defun c:test ( / ) (defun csv->lst126 ( str / pos ) (if (setq pos (vl-string-position 126 str)) (cons (substr str 1 pos) (csv->lst126 (substr str (+ pos 2)))) (list str) ) ) (setq obj (vlax-ename->vla-object (car (entsel "\nPick mtext object ")))) (setq str (vlax-get obj 'textstring)) (setq str2 str) (while (> (setq pos (vl-string-search "\P" str)) 0) (setq str (vl-string-subst "~" "\P" str pos)) (setq pos (vl-string-search "\\" str)) (setq str (vl-string-subst "" "\\" str pos)) ) (setq lst (csv->lst126 str)) (setq lst2 '() x 1) (foreach val lst (setq lst2 (cons (strcat "Line" (rtos x 2 0)) lst2)) (setq lst2 (cons 20 lst2)) (setq lst2 (cons 19 lst2)) (setq lst2 (cons val lst2)) (setq x (1+ x)) ) (setq lst2 (reverse lst2)) (setq lst2 (cons "Please edit" lst2)) (if (not AH:getvalsm)(load "Multi Getvals.lsp")) (setq ans (AH:getvalsm lst2)) (setq x 0 newstr "") (repeat (- (length ans) 1) (setq val (nth x ans)) (setq newstr (strcat newstr val "\\P")) (setq x (1+ x)) ) (setq newstr (strcat newstr (nth x ans))) (vlax-put obj 'textstring newstr) (princ) ) Multi GETVALS.lsp
    1 point
  4. There is a LISP or 2 out there that does end styles. Draw a Cap or Pipe End | CAD Tips I do have DLine LISP from long ago, as well as your update now, thank you very much. Never used Multiline as far as I can remember. I have Insert Doors by Automatically Breaking Walls | CAD Tips when needed. Last big job I did that needed a lot of doors and walls I used AutoCAD Architectural. AutoCAD has too many half-baked tools IMO.
    1 point
  5. What is interesting is that mline which allows multiple lines does not have the arc option. So dline in a way was more advanced. Again Autodesk no update since 1992 rather probably look at it as a to simple task so no update, but there happy to keep taking your money for upgrades.
    1 point
  6. And then stolen, I mean copied for our convenience....
    1 point
×
×
  • Create New...