CADsite forum

Beste HofCAD,

Via test3 lukt het mij perfect! 

Nogmaals bedankt!!

Kenny

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

Hey HofCAD,

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

Kenny

Reimer,

Allereerst men beste wensen voor 2009!! 

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

Citeer(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
)

Beste Stijn,

wat moet uw exdata er juist geven?

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


Mvg

Kenny

Beste Reimer,

Probeer het volgende eens!

Citeer(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

Beste,

Ga naar Tools  Autolisp  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   tabblad files  support file search path
is toegevoegd

Mvg

Kenny

Beste,

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

Mvg

Kenny

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. 

Mvg

Kenny

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

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

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

Dit effe weer wat naar boven halen,

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

Citaat van: jo-king op ma 04 08 2008, 11:37:57
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! 

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

CiteerVolgens 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?