CADsite forum

Idd Roy_043. Bedankt!

Mijn O-snap functies werkn niet naar behoren:
Als bvb mijn Endpoint functie aangevinkt is. moet ik zeer dicht tegen de vertex van een lijnstuk gaan, alvorens mijn O snap functie reageert, of ik typ END zodat ie alsnog op de vertex reageert.
Het lijkt er dus op dat mijn cursor ongevoelig is voor de vertex'en
Hopelijk is het nu wat duidelijker.

hoi,

Weet er iemand hoe je de gevoeligheid van je snapfuncties kunt verhogen?
Alvast bedankt!

J.

USCFOLLOW werkt voor mij prima voor gegeorefereerde tekeningen.
Inderdaad, ieder z'n ding.

nog ff meedelen: Commando UCSFOLLOW op 1 zetten: uitvoeren in de paperspace "in" de viewport zelf.

Hoi,

Ik heb een hoop (100) tekeningen met een 30-35 Xrefs.
Deze xrefs worden allemaal op dezelfde laag ingelezen zoals het protocol hier voorschrijft.
Nu moeten er vele afgeleide tekeningen gemaakt worden waarbij deze xrefs op verschilldende draworders gezet moeten worden. Ik dacht eerst om elke xref by color te zetten, dus elke xref een andere kleur en via CDORDER de draworder van de xrefs te sorteren via kleur, maar dit is nogal omslachtig...
maw: bestaat er een draworder commando om xrefs te zetten zoals je wil?

Als ik het goed begrijp wil je dat de tekening (xy) in de viewport meedraait met het object.
Commando UCSFOLLOW op 1 zetten. XY-as op het object (straat) zetten, hierdoor gaat uw tekening volgens de XY-as die je op het object hebt gezet staan. Als alles goed staat: niet vergeten om UCSFOLLOW terug op 0 te zetten.

Grts Fly

Als ik het goed begrijp ligt het aan de "gevoeligheid" van de SNAP?
Probeer het commando APERTURE eens. Default zou deze op <10> moeten staan.

@roy_043. De LISP werkt! Waarvoor Dank!! 
@bart: Met laytrans nemen de objecten de eigenschappen over van de nieuwe laag. De bedoeling is eerst dat de oude eigenschappen behouden blijven. Dus al de objecten in de block's moeten eerst op objectniveau worden gezet. Nadien kunnen we inderdaad starten met Laytrans.
Roy_043 heeft dit probleem mooi opgelost. Voorwaarde is wel dat al de layers op moeten staan (on en thaw).

@roy_043, inderdaad al de laageigenschappen moeten naar het object komen, tenzij er al eigenschappen zijn toegekend.

grts

Hoi,

De bedoeling is dat ik van een tekening met 100+ lagen met vele Xref's naar een tekening ga met 6 hoofdlagen.
Hiervan wordt dan een "gelayerede" PDF gemaakt waarbij ik de 6 lagen op en af kan zetten.
De Xref's worden in de tekening gebind en worden dus een block, via layermanager verdeel ik al deze 100+ layers naar de 6 hoofdlagen. Het probleem is dat al de meeste objecten die in de block (dus ex-xref) by layer staan de kleur krijgen van 1 van de 6 hoofdagen, en dat mag dus niet. Deze objecten moeten dus eerst naar by color gezet worden. Dit kan via de LISP SetByLayerReverse. Het is nogal omslachtig om deze lisp telkens uit te voeren in de blockeditor. LISP applytoblockobjects kan dit proces versnellen. Mijn vraag is eigenlijk: is er een manier om de SetByLayerReverse LISP uit als batch te voeren op al  de block's in de tekening.

Alvast bedankt!

Fly

Hoi,

Ik zou graag 2 LISP's willen combineren van acad man Lee Mac, maar heb geen idee hoe hieraan te beginnen.
Graag had ik alle objecten in mijn block de eigenschap willen geven van de layer. Dus als het object in de block op een layer staat met kleur 220, krijgt het object kleur 220.
Hier alvast de lisp van Lee Mac

SetByLayerReverse:
(defun c:SetByLayerReverse (/ *error* adoc layer obj en ss i )
 
  (defun *error* (msg)
    (vla-endundomark adoc)
    (princ msg)
    (princ))
 
  (vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
  (if (setq ss (ssget))
    (repeat (setq i (sslength ss))
      (setq en (ssname ss (setq i (1- i)))
       obj (vlax-ename->vla-object en)
       layer (vla-get-layer obj))
     
      (if (not (assoc 62 (entget en)))
   (vla-put-color obj (cdr (assoc 62 (tblsearch "layer" layer)))))
     
      (if (not (assoc 6 (entget en)))
   (vla-put-linetype obj (cdr (assoc 6 (tblsearch "layer" layer)))))
     
      (if (not (assoc 370 (entget en)))
   (vla-put-lineweight obj (cond ((cdr (assoc 370 (tblsearch "layer" layer))))
                  (-3))))))
  (vla-endundomark adoc)
  (princ)
)


applytoblockobjects:
; Apply to Block Objects  -  Lee Mac
;; Evaluates a supplied function on all objects in a block definition.
;; Arguments:
;; blks - VLA Block Collection in which block resides
;; name - Block name
;; func - function to apply to all objects in block
;; Returns a list of results of evaluating the function, else nil.

(defun LM:ApplytoBlockObjects ( blks name func / def result )
    (setq func (eval func))
    (if (not (vl-catch-all-error-p (setq def (vl-catch-all-apply 'vla-item (list blks name)))))
        (vlax-for obj def (setq result (cons (func obj) result)))
    )
    (reverse result)
)

Alvast bedankt!

Fly

Bedankt Bart!

Hoi,

Ik heb vele tekeningen (dwg's) met een aantal zware geladen gegeorefereerde (x-y) tiff files.
Deze files zijn zo zwaar dat het erg lang duurt om de tekening te openen.
Is het mogelijk om deze tiff's te sluiten van opstand? m.a.w., is het mogelijk om een commando uit te voeren op een gesloten tekening? Bestaan hier programma's voor?
Of bestaan er andere oplossingen?
Alvast bedankt!

Fly

Eddybeerke,

Het had niet te maken met ATTSYNC, bij het wissen en opnieuw opmaken van de attributen die niet mee wilden stretchen was het probleem opgelost.