CADsite forum

een block neemt de kleur van de layer waarin hij wordt geplaatst over, op voorwaarde dat deze block in layer 0 getekend wordt en tenzij in de block zelf de entity's kleurinstellingen hebben.

ik heb éénmaal een pc3 aangemaakt met de juiste plotter instellingen,
en heb dan via een beetje code one-click-plot-knopjes gemaakt in een toolbar-tje

aangezien die pc3-file een naam heeft kan je deze vanuit de code aansturen.

dit is ook een goede deur

de breedte van de deur heb ik op standaard maten met increment gemaakt, en als je dan eerst je gat aanpast, dan kan je het deurblad (altijd 12 minder) via prop inegeven.


maar daarmee is het originele probleem niet weg ;-(

Ik heb in een block een stretch parameter alsook een flip parameter

stretchen geen probleem,
flippen ook geen probleem,

het probleem doet zich voor als je een flip doet, daarna een stretch dan werkt de stretch niet meer juist.
de lijn is bedoeld om altijd in de cirkels uit te komen

heb ik ergens een eigenschap verkeerd staan ?

het mag ook met een ander stukje code, het moet geen lisp zijn.

Het gaat er vooral om dat de tekst niet verloren gaat, ik zou ook een autocad block kunnen invoegen en manueel alles overtypen, maar ik was van plan om een klein stukje code te schrijven waarmee ik dan een block kan plaatsen en de extracted text via aanklikken te gebruiken om de attributen van mijn block in te vullen, op die manier zijn typo's vermeden

Ik heb een dwg met tientallen OLE-objecten

omdat autocad hierop crasht, wil ik deze uit de tekenning verwijderen en vervangen door een gewoon block

om dit te kunnen doen heb ik wel graag de info uit de ole's

heeft er iemand een stuk code liggen, (of wil je't maken, graag)

het enige wat er moet gebeuren is na een selectie van het ole, een punt vragen van de gebruiker, daar op dat punt alle teksten gewoon in autocad onder elkaar dumpen.


ps, de ole's hebben niet altijd evenveel teksten in zich

alvast bedankt

als in 3d tekent dan moet je gewoon in je achterhoofd houden dat cirkels altijd in het x-y vlak getekend worden.

Als je dan een boog hebt getekend kan je via de properties een z-waarde toekennen aan je centerpunt van je boog

je kan natuurlijk ook je ucs verleggen op een bepaalde hoogte hé

@eddy

dus een layout is een viewport op zich? maar die niet reageert als een viewport die kijkt naar modelspace.

@bart
een extra vieport geeft 3
enkele xlines vind je altijd makkelijk terug van paper naar model en terug als het een drukke tekening is.

maar goed dus : in lisp moet je in gedachten er eentje aftrekken eigenlijk dan

bedankt voor de uitleg beerke

Ik heb een dwg met slechts 1 layout en daarop staat er 1 viewport,

als ik kijk via quickselect krijg ik ook als antwoord 1 viewport

echter als ik dit vanuit lisp tel via
(setq aantalvp (sslength (ssget "x" (list (cons 0 "viewport")))))
dan zegt ie 2 ?

dit is iets dat autocad blijkbaar doet, want in bijlage een lege tekening met enkele lijnen
en ook hier zelfde telfout vanuit lisp

iemand een idee waar lisp die tweede viewport gevonden heeft ?

Misschien ben je hier iets mee,

gewoon stel je vult je F- revisie in op de A (kan je vooraf doen of op het einde)

en dan laatje deze routine lopen en je klikt een aantal keer...
als de volgorde is :
FBCDE na één keer switch wordt dat dan
BFCDE
BCFDE
BCDFE
BCDEF

deze switch is ook handig op andere plaatsen

met deze stukjes code heb ik verkregen wat ik zocht:
met entsel laat je de gebruiker een element selecteren (uit de group)
met getgroupname verkrijg je de naam
met selgrp verkrijg je een selectieset met daarin alle elementen uit de group

hopelijk is iemand hier iets mee


(setq ent1 (entsel "selecteer group")
        group (getgroupname (car ent1))
        groupss (selgrp group))

(defun getgroupname (GroupObject / EntName AcadReactors VlxObject); group_name
  (setq EntName (entget GroupObject))
  (if (setq AcadReactors (member '(102 . "{ACAD_REACTORS") EntName))
    (while (and (setq AcadReactors (cdr AcadReactors))
                (eq (caar AcadReactors) 330)
                (eq (vla-get-ObjectName (setq VlxObject (vlax-ename->vla-object (cdar AcadReactors)))) "AcDbGroup")
           ) ; end and
      (if (equal (cadr AcadReactors) '(102 . "}"))
        (setq AcadReactors nil)
      ) ;end if
      (setq GroupName (vla-get-Name VlxObject))
    ) ;end while
  ) ;end if
) ;defun

(defun selgrp (grpname / grp a1 ss ent)
   ;; grpname is the group name, it accepts
   ;; unnamed groupnames, such as *A1
   (setq grp (dictsearch (namedobjdict) "ACAD_GROUP"))
   (setq a1 (dictsearch (cdr (assoc -1 grp)) grpname))
   (setq ss (ssadd))
   (while (/= (assoc 340 a1) nil)
      (setq ent (assoc 340 a1))
      (setq ss (ssadd (cdr ent) ss))
      (setq a1 (subst (cons 0 "") ent a1))
   )
   ss
)

Ik wil d.m.v. een klik op een element uit een group een block laten toevoegen aan deze group.
Deze block zit reeds minstens 1 keer in deze group op verschillende positie's.
De positie waar het nieuwe block moet komen wil ik halen uit een positie van een andere block.

Concreet zoek ik naar de manier om een lijst (ofzo) met de block entity's te verkrijgen van een group.

alvast bedankt voor alle hulp.

niet de rug toegekeerd, ;-(
gewoon heel druk gehad en lange tijd geen oplossingen meer gevonden voor allerlei problemen die meegekomen zijn met nieuwe pc's/software/andere routine's.

dus een sorry naar roy.

Uiteindelijk de develloper van de routine die verantwoordelijk was voor het genereren van de fout toch een de haak gekregen en het probleem er weer uit kunnen halen.

En idd: mea culpa, ik kom enkel naar hier als ik vast zit

ik heb het liefst vanal een gladde muis

een fillet tussen lijnen die naar elkaar toelopen en uiteindelijk een hoek zullen vormen,.... geen probleem

Maar ik wil een fillet langs de ander kant, daar waar de lijnen weglopen van elkaar...

ik wil de groene cirkel bekomen.