CADsite forum

Lee-Mac heeft een waanzinnige verzameling lisp-routines. Hij heeft ook LM:CopyBlockDefinition gemaakt. Zie: https://www.lee-mac.com/copyblockdefinition.html. Volgens mij doet deze precies wat je beschrijft en moet hij ook werken voor dynamic blocks. Zeker het proberen waard lijkt me. Ik heb hem zelf nog niet gebruikt maar wel vele andere hanige lisps van Lee Mac.

Groeten,
Reimer.

Sinds toen...
Het is alweer ff  geleden maar veel verbeterd.
Code schrijven met AI als assistent... code wordt zelfs voorgesteld/aangevuld.
Ik gebruik voor LSP 'VS Code' met Copilot van GitHub, echt handig.

AutoCAD / Civil 3d 2026 is al een paar weken te gebruiken.
Heb je vragen of ontdek je een bug of iets raars? Meld het dan ook hier even.
We kunnen altijd meedenken aan een oplossing of bij Autodesk melden. 

Jacob,

Zou het kunnen dat het bock geëxplodeerd wordt bij invoegen?

Wat je zou kunnen doen is (in AutoCAD):
In een bv Blocks.dwg de bocks maken, eventueel aanpassen -> deze opslaan en geopend laten.
Open de tekening waar de (aangepaste) blocks in moeten komen -> [Ctrl+2] indrukken
  Nu opend de "Designcenter", hier kun je van de ene (blocks.dwg) naar de andere het block 'in slepen'
  Met [rechts klikken] op zo'n block uit de blocks.dwg kun je ook 'Redefine only' kiezen.

Laat maar weten of dat voor jou werkt.

P.S.
Dit werkt ook voor layers, stylen enz. enz.

Hey Jacob,
Als de acad.pgp niet gevonden werd, maar door handmatig een zoekpad toe te voegen wel weer, is er dan niet wat anders aan de hand?

Ik heb het met hulp van ChatGPT opgelost.

Hij is het bestand "acad.pgp" kwijt.
Zoek deze op met de verkenner.

Voeg het pad toe via Options
Support File Searck Path

En nog even opnieuw opstarten.

Dag,

Systeem: Autocad architecture 23 en 24
Daarop draait HSB-cad

We hebben hier op verschillende systemen een probleem.
De sneltoetsen werken niet goed
Bijv. M van move kent hij niet meer
Type te verder MO dat kent hij het wel weer.

Mijn gevoel zegt dat hierdoor onderstaande code in een toolpalletknop ook niet meer werkt?
^C^C_osnapz;1;vs;2;-v;t;qsave;
Weet iemand wat hier aan de hand kan zijn?

Als wij wat aanpassingen in een blok doen in de huidige tekening en we laden datzelfde blok weer uit onze bibliotheek dan voegt hij hetzelfde blok in zoals die al in de huidige tekening zit.

We maken dan in de bibliotheek even een kopie met een andere naam en die voegen we in.
Dat willen we eigenlijk in een lisp zetten met de naam "KopieBlock"

Via Chat GTP ben ik druk bezig geweest om een Dynamic block te kopiëren en met een andere naam te plakken.
Dat loopt op verschillende manier steeds vast bijv:
- Het block is daarna niet dynamisch meer
- Je krijg allemaal losse lijnstukken
- Diverse errors in de commandline

Is hetgeen ik wil wel mogelijk?

Onderstaand 1 van de codes die heen en weer zijn gegaan.
(defun c:KopieerBlokSel ( / ent entname oldName newName ss)
  (prompt "\nSelecteer een blok om te kopiëren: ")
  (setq ent (car (entsel)))

  (if (and ent (= (cdr (assoc 0 (entget ent))) "INSERT"))
    (progn
      (setq entname (cdr (assoc 2 (entget ent))))
      (setq oldName entname)
      (setq newName (strcat oldName "_01"))

      ;; Controleer of de nieuwe bloknaam al bestaat
      (if (tblsearch "block" newName)
        (princ (strcat "\nBlok '" newName "' bestaat al."))
        (progn
          ;; Verzamel alle entiteiten in originele blok
          (setq ss (ssadd))
          (vlax-for obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) oldName)
            (ssadd (vlax-vla-object->ename obj) ss)
          )

          ;; Maak nieuwe blokdefinitie met nieuwe naam
          (command "_-BLOCK" newName '(0 0 0) ss "")

          (princ (strcat "\nBlok '" oldName "' gekopieerd als '" newName "'."))
        )
      )
    )
    (princ "\nSelectie is geen blok.")
  )
  (princ)
)

Goedemorgen,

Ik ga er eens nakijken, dank je wel.

Is dit wat je probeert?
https://forums.autodesk.com/t5/autocad-forum/weld-detail-multileaders/td-p/6623779