CADsite forum

beste gordon,

http://3d.startpagina.nl/

aan de linkerkant staat het onderdeel  "Textures en Afbeeldingen"
hierbij staan een heel aantal links met textures,
misschien dat je daar iets kan vinden.

groetjes skylar

beste rthoonsen,

hoe maak je zo'n plot batch ?


groetjes skylar

hoi Laz,
misschien heb je hier iets aan.

http://discussion.autodesk.com/thread.jspa?threadID=462934

het webdepot gedeelte staat op CD2.

groetjes ivo

Beste Victor,

als je CTRL-1 drukt dan krijg je de PROPERTIES window.   
als je nu alle teksten tegelijk selecteerd dan kan je in de properties window de POSITION-X waarde
wijzigen en staan alle teksten op dezelfde x-as.

als ctrl-1 niet werkt kan je ook in het TOOLS menu kijken. ligt aan de autocad versie of hij direct zichtbaar is
of dat je eerst naar PALETTES  moet gaan.

ik hoop dat ik je hiermee een beetje op weg heb geholpen.

groetjes ivo

Beste allemaal,


gebruikte versie autocad : 2002

als ik in autocad een tekening open met daarin een image als xref.
en die image geeft aan dat hij unreferenced is.
dan kan ik hem niet met unload - unloaden, reload - reloaden of met detach - detachen.
als ik het pad opgeef waar de image staat dan reload hij de image ook niet, terwijl als ik een nieuwe tekening maak en daarin
dezelfde image attach dit wel werkt.
als ik en de tekening waar de unreferenced image aanwezig is een andere of dezelfde image nog een keer probeer te attachen
dan laad hij de image wel, maar komt niet zichtbaar op het scherm.
en om alles compleet te maken. als ik dan b.v. de opdracht layer geef crashed autocad compleet.
met daarbij de melding dat hij een open obejct heeft wat nog niet is afgesloten.

iemand ideeen ?

bij voorbaat dank,
Ivo Lafeber

public sub maak_kast

dim exobj as object
set exobj = getapplication(,"excel.application")
dim exshobj as object
set exshobj = exobj.activesheet

for telexsh = 0 to 66000 'excel sheet heeft altijd maar 65... records dus kom je 66000 altijd uit
   if exshobj.cells(telexsh,1) = "" then lengte_kast = telexsh
next telexsh
'kan ook met een while loop

dim beginpnt(0 to 2) as double
beginpnt(0) = 0 : beginpnt(1) = 0 : beginpnt(2) = 0
dim eindpnt(0 to 2) as double
dim kabelbreedte  as integer
kabelbreedte = 10
eindpnt(0) = lengte_kast  * kabelbreedte : eindpnt(1) = 0 : eindpnt(2) 0

thisdrawing.modelspace.addline (beginpnt,eindpnt)

end sub


ik denk dat dit een eind in de richting zit.
als je 10 records vult in excel en je runt deze macro, zal hij er 10 herkennen en de lijn 10x kabelbreedte maken.
als je er 45 vult zal hij de kast 45xkabelbreedte maken.
je moet wel excel al actief hebben met het werkblad van die kast die je maken.

groetjes skylar

beste yf

waarin moet je nieuwe bladen maken. autocad of excel?

groetjes skylar

Citaat van: mvissche op do 03 05 2007, 12:07:33
Hallo,
Ik wil een selectie maken , teksten hieruit filteren en dan de insertionpunten van de teksten opvragen, Weet iemand hoe dit aan te pakken?

Alvast bedankt.

zoiets ongeveer

ssetobj = thisdrawing.selectionssets.add("selectie")
ssetobj.selectonscreen
for telssetobj = 0 to ssetobj.count -1
  if vba.lcase(ssetobj(telssetobj).objectname) = "acdbtext" then
    inspnt = ssetobj(telssetobj).insertionpoint
    msgbox "het insertionpoint is " & inspnt(0) & " " & inspnt(1) & " " & inspnt(2)
  end if
next

for telselections = 0 to thisdrawing.selectionssets.count -1
    thisdrawing.selectionsets(0).delete
next