CADsite

  • za 26 09 2020, 20:31:22
  • Welkom, gast
Log in of registreer jezelf.

Login met gebruikersnaam, wachtwoord en sessielengte
Geavanceerd zoeken  

Nieuws:

Toon bijdragen

Deze sectie stelt je in staat om alle bijdragen van dit lid te bekijken. Je kunt alleen de bijdragen zien waar je op dit moment toegang toe hebt.

Berichten - Kenny H

Pagina's: [1] 2 3 ... 34
1
Autolisp / Re: Entget 2011 vs 2009
« Gepost op: di 06 09 2011, 20:34:48 »
Beste HofCAD,

Via test3 lukt het mij perfect!  :vreegoe:

Nogmaals bedankt!!

Kenny

2
Autolisp / Entget 2011 vs 2009 (Opgelost)
« Gepost op: ma 05 09 2011, 20:38:31 »
Beste,

Ik ben zo een programmatje aant maken op mijn pc thuis versie 2008-2009 en hierbij loopt bijgevoegd lispje perfect. een geluk! :)
Maar opt werk draait 2011 en daar krijg ik het maar deels draaiend!!

  (setq p1 (getpoint "\nDuid een eerstepunt aan:"))
  (command "PLINE" p1 "W" "0" "")
  (while
    (setq
      p1 (getpoint p1
   "\nVolgend punt of een <Enter> voor te stoppen:"
)
    )
     (command p1)
  )
  (command "")
  (setq a (entlast))
  (setq contour (entget a))
      (setq positie 0
    start 0
      )
      (repeat (length contour)
(setq x       (nth positie contour)
      positie (+ positie 1)
)
(if (and (= (car x) 39) (= start 0))
  (setq start positie)
)
      )
      (setq pt1 (nth start contour)
    pt2 (nth (+ start 4) contour)
    pt3 (nth (+ start 8) contour)
    pt4 (nth (+ start 12) contour)
    pt5 (nth (+ start 16) contour)
    pt6 (nth (+ start 20) contour)
    pt7 (nth (+ start 24) contour)
    pt8 (nth (+ start 28) contour)
    pt9 (nth (+ start 32) contour)
    pt10 (nth (+ start 36) contour)
    pt11 (nth (+ start 40) contour)
    pt12 (nth (+ start 44) contour)
    pt13 (nth (+ start 48) contour)
    pt14 (nth (+ start 52) contour)
    pt15 (nth (+ start 56) contour)
    pt16 (nth (+ start 60) contour)
      )
      (setq pt1 (list (cadr pt1) (caddr pt1) 0)
    pt2 (list (cadr pt2) (caddr pt2) 0)
    pt3 (list (cadr pt3) (caddr pt3) 0)
    pt4 (list (cadr pt4) (caddr pt4) 0)
    pt5 (list (cadr pt5) (caddr pt5) 0)
    pt6 (list (cadr pt6) (caddr pt6) 0)
    pt7 (list (cadr pt7) (caddr pt7) 0)
    pt8 (list (cadr pt8) (caddr pt8) 0)
    pt9 (list (cadr pt9) (caddr pt9) 0)
    pt10 (list (cadr pt10) (caddr pt10) 0)
    pt11 (list (cadr pt11) (caddr pt11) 0)
    pt12 (list (cadr pt12) (caddr pt12) 0)
    pt13 (list (cadr pt13) (caddr pt13) 0)
    pt14 (list (cadr pt14) (caddr pt14) 0)
    pt15 (list (cadr pt15) (caddr pt15) 0)
    pt16 (list (cadr pt16) (caddr pt16) 0)
      )

Versie 2008:
Als ik dan "Contour" (via watch --> inspect list) bekijk staat er bij puntje 14 het eerste coordinaat en bij 18 het volgende punt etc..

Versie 2011:
Daar krijg ik dit totaal niet!!

Hier vind ik bij A (ook via watch) wel de vertices (zowel 2008 als 2011) wel men puntjes allemaal maar ik weet niet hoe ik die daar kan uitfilteren.  :(

Kan iemand mij hier verder helpen?

Alvast bedankt!!

Kenny

3
Autolisp / Re:AutoCAD speak to me.
« Gepost op: wo 28 10 2009, 20:30:03 »
Hey HofCAD,

het lukt ook in vista om het volume maximaal te zetten!

Kenny

4
Autolisp / Re: Volgorde van acties in een lisproutine
« Gepost op: do 01 01 2009, 19:42:17 »
Reimer,

Allereerst men beste wensen voor 2009!!  :pintje:

Om u te helpen; zet er eens progn voor!
dit zorgt ervoor dat je meerdere regels in uw of kunt plaatsen

vb
  (if (or (= tipe "M") (= tipe ""))
    (progn
      (setvar "celtype" "bylayer")
      (setq hoogte (- hoogte 2))
      (command "color" "red")
      (command "rectangle"
       raama
       (strcat "@" (rtos breedte) ",-2")
      )
      (setq ABSPROF 2)
      (setvar "textstyle" "sam65")
      (command "text"
       (list (+ (car raama) breedte 200) (cadr raama))
       0
       (strcat "ABS " (rtos ABSPROF))
      )
      (command "color" "bylayer")
    )
  )
als het in mijn voorbeeld waar is moet hij het bovenste uitvoeren, anders niets!

Mvg

Kenny

Citaat
(defun c:def ()
  (setq uitg (getstring "geef het uitgavenummer op:     "))
  (setq uitgreal (atof uitg))
  (if
    (= (- uitgreal (fix uitgreal)) 0)               ;ALS: uitg = heel getal
    (alert "uitgave is een heel getal; geen actie")         ;DAN: geen actie
    (PROGN (command "erase" (ssget "x" (list (cons 0 "Mtext") (cons 1 "CONCEPT"))) "")   ;ANDERS: erase tekst en
     (command "-plot" "y" "" "adobe PDF" "A3" "" "L" "" "w" "-420,0" "0,297" "1:1" "0,0" "" "BWO-kleur.ctb" "" "" "" "" ""

"No" "Y")                        ;plot een pdf
    )                           ;einde niet1
  )                           ;einde als1
)

5
Beste Stijn,

wat moet uw exdata er juist geven?

(setq exdata (list -3 "D" 1040 z) )


Mvg

Kenny

6
Autolisp / Re: Volgorde van acties in een lisproutine
« Gepost op: ma 29 12 2008, 19:51:07 »
Beste Reimer,

Probeer het volgende eens!

Citaat
(defun c:def ()
  (setq uitg (getstring "geef het uitgavenummer op:     "))
  (setq uitgreal (atof uitg))
  (if
    (= (- uitgreal (fix uitgreal)) 0)               ;ALS: uitg = heel getal
    (alert "uitgave is een heel getal; geen actie")         ;DAN: geen actie
    ((command "erase" (ssget "x" (list (cons 0 "Mtext") (cons 1 "CONCEPT"))) "")   ;ANDERS: erase tekst en
     (command "-plot" "y" "" "adobe PDF" "A3" "" "L" "" "w" "-420,0" "0,297" "1:1" "0,0" "" "BWO-kleur.ctb" "" "" "" "" ""

"No" "Y")                        ;plot een pdf
    )                           ;einde niet1
  )                           ;einde als1
)

(command "erase" (ssget "x" (list (cons 0 "Mtext") (cons 1 "CONCEPT"))) "")
de combinatie met 0,0 en -210,297 wil bij mij niet lukken, maar zo werkt het volgens mij wel

Mvg

Kenny

7
Autolisp / Re: opstarten lisp routine
« Gepost op: di 30 09 2008, 18:31:55 »
Beste,

Ga naar Tools  :arrow: Autolisp  :arrow: Load Application
Voeg via load uw bestandje toe en het wordt hiermee ingeladen.
Wens je dat dit altijd (dus automtisch) geladen wordt, dan voeg je uw bestand toe bij contents (rechts onderaan)

Zorg er wel voor dat uw map waar al uw lsp en dcl bestanden instaan ook bij
options :arrow:  tabblad files  :arrow: support file search path
is toegevoegd

Mvg

Kenny

8
AutoCAD probleem / Re: Beginners vraag : Instellingen
« Gepost op: za 13 09 2008, 12:45:15 »
Beste,

Ik snap uw probleem!
Je moet onderaan bij snap, ortho enz DYN afzetten.

Mvg

Kenny

9
AutoCAD probleem / Re: [AutoCAD2008]
« Gepost op: zo 10 08 2008, 17:17:05 »
Beste,

Als je in layout staat kun je die rechthoek waar dus uw deel van uw woning instaat verplaatsten en uitrekken gelijk je wil.
Nu om uw volledige tekening weer te geven hierin moet ge dubbel klikken binnen die kader.
Hier kun je dan opnieuw in tekenen en zomen gelijk je in model.
Je gaat merken dat die kader dikker omlijnd gaat zijn als je in model zit.
Om er terug uit tegaan dubbelklikken buiten deze kader.
Inplaats van te dubbelklikken kun je onderaan, op het tabblad lay-out, staat daar naast osnap, ortho enz, klikken op Paper
dit wijzigt dan naar Model en omgekeerd juist hetzefde.
Zie beeld in bijlage

Lay-out dient vooral om af te drukken met titelhoeken enz.  :wink:

Mvg

Kenny

10
AutoCAD probleem / Re: 3D lijnen naar 3D volume
« Gepost op: zo 10 08 2008, 14:34:23 »
Beste,

Je kunt wel van een aantal lijnen een 3d-object maken;

Je tekent bv uw profiel ofzo (enkel een doorsnede) dan gebruik je het commando REGION.
Dan ga je merken dat al uw lijnen aan elkaar hangen, gelijk een pline en dat dit precies gearceerd is.
Uw visual style wel op realistic of conseptual zetten.
Dit kun je dan extruderen en zo creëer je dan uw 3D elementen.

Mvg

Kenny

11
Jobs, stage, reclame / Re: Opleiding CAD/Technisch tekenaar
« Gepost op: wo 06 08 2008, 16:05:50 »
Hey Britt,

Je hebt enkel uw eerste jaar al voltooid in de richting 'Bachelor in de interieurvormgeving' of zit je al verder?
Normaal gezien als je naar Bachelor Bouw zou gaan, zul je toch een aantal vrijstellingen moeten krijgen?
Daar al eens voor geinformeerd?
Ik heb Bachelor Hout gevolgd en daar was ook iemand die uit een andere richting kwam en door de vrijstellingen de 3j op 2j deed.
Volgens mij ben je beter af met die Bachelor Bouw dan x aantal cursussen te volgen.

Groetjes

Kenny

12
Autolisp / Re: In lisp werkt het niet maar handmatig wel
« Gepost op: wo 06 08 2008, 15:52:02 »
Beste,

Probeer het volgende eens,

(command "select" (ssget "X" '((0 . "INSERT"))) "")
(setq ss1 (ssget "P"))
(setq i 0)
(repeat (sslength ss1)
(command "explode" ss1)
(setq i (1+ i))
  )
(princ)

Mvg

Kenny

13
Jobs, stage, reclame / Re: Vacature Pauwels Ninove
« Gepost op: di 05 08 2008, 20:12:13 »
Dit effe weer wat naar boven halen,

deze vacature staat nog steeds open,
geïnteresseerde mogen nog altijd reageren!  :wink:

14
Cadsite café / Re: Vakantie tijd
« Gepost op: di 05 08 2008, 19:38:00 »
puh... westvlamingen... altijd een beetje achter he ;)

Bij onze leveranciers was dit één week later en bij een andere 2weken later dan Oost-vlaanderen.
En zitten beide in West-vlaanderen en dezelfde sector!  :roll:

Ik zou normaal ook al moeten werken, maar kheb me nog een weekje extra gevraagd! 8)

15
AutoCAD probleem / Re: Configuratie naast elkaar
« Gepost op: di 05 08 2008, 19:33:07 »
Citaat
Volgens mij hebben wij op het werk problemen gehad met de AcSignIcon.dll. Deze dll roept onderwater namelijk een shell extensie aan en dat vind Vista op zijn zachts gezegd niet heel erg fijn. Bij ons ging de virus scanner op tilt en het browsen van tekeningen op de netwerk omgeving was niet vooruit te branden.

Je moet er voor zorgen dat deze dll niet meer wordt opgestart. Dat betekend dat je in de registry moet gaan hacken
OnderXp heeft systeem beheer het bij op de volgende manier opgelost

quote:
De volgende sleutel wordt leeg gemaakt: HKEY_CLASSES_ROOT\CLSID\{36A21736-4C11-8ACB-8ACB-D4136F2B57BD}\InProcServer32\(Default value)
Een backup van de inhoud van deze sleutel (zijnde: “C:\WINDOWS\system32\AcSignIcon.dll”) is geplaatst in een nieuw aangemaakte sleutel in dezelfde map.
Na een herstart van de PC is de module niet meer geladen, en is het probleem niet meer aanwezig

Wij werken met acad 2007 op een Xp omgeving.

Disclaimer
Hacken in de registry is voor eigen risico mocht je systeem crashen is dit gehel voor eigen rekening. Maak altijd eerst een backup van je registry.

greetz

Stephan

Wat Stephan hier zegt kan mss wel werken maar hoe ga je daarbij tewerk?

Pagina's: [1] 2 3 ... 34