Taludlijnen tekenen (lsp?)

[hilnanne]

Hallo,

Ik ben een halve dag bezig geweest om taludlijnen netjes in te tekenen.
Weet iemand hier toevallig een makkelijkere manier voor?
Bijvoorbeeld door middel van een lsp?

Alvast bedankt

gr nanne

[roy_043]

Beste hilnanne,

Ga naar:
http://bouwcad.cadsite.be/
Klik op:
Downloads
en vervolgens op:
Tal (2e lisp van boven)

Of gebruik deze directe link:
http://bouwcad.cadsite.be/download/Tal.zip

Tal.lsp gaat in bepaalde situaties de mist in maar werkt verder heel goed.

Groet, Roy.

EDIT: links aangepast naar cadsite.be!

[hilnanne]

Roy_043 Ik dank u vriendelijk dit scheelt de volgende keer een hoop tijd.
Ik hou me echter nog wel aanbevolen voor andere lisp-jes.

Bijvoorbeeld als ik een talud arcering in een hoek of cirkel/boog maak, dat deze naar 1 punt gaan.

[mrbeegee]

In sommige gevallen gebruik ik het lijntype TALUD. Niet in alle gevallen werkbaar maar wel erg makkelijk. Je kan nog wat spelen met de linetypescale. Het gaat het handigst met de polylijn van het boventalud.
lijntype staat naast anderen in deze post:
http://www.cadsite.be/smf/index.php?topic=751.msg13869#msg13869

*TALUD,taludlijn | ' | ' | ' | '  | ' |
A,0,[trACK1,ltypeshp.shx,s=1.5,x=0,y=-1.5],-1.5,[trACK1,ltypeshp.shx,s=.75,x=0,y=-0.75],-1.5

[hilnanne]

Voor anderen die de Tal.lsp gaan gebruiken, deze lisp die zet je object snap ook uit.
Dus iedere keer wanneer je deze gebruikt moet je dat weer opnieuw instellen

[roy_043]

deze lisp die zet je object snap ook uit.

Beste hilnanne,

De lisp zet de osnaps (OSMODE) tijdelijk uit, maar op het einde van de routine worden de oude osnaps weer geactiveerd. Het uitzetten van de osnaps gebeurt wel meteen aan het begin van de routine waardoor je de gevraagde afstand niet meer exact op het scherm kunt aanklikken. Als dat jouw probleem is probeer dan eens versie B van TAL.LSP. De osnaps worden in deze versie op een later punt in de routine uitgeschakeld.

Groet, Roy.

[roy_043]

Ik hou me echter nog wel aanbevolen voor andere lisp-jes.

Beste hilnanne,

Via een Duits forum (http://ww3.cad.de/foren/ubb/Forum145/HTML/002924.shtml) heb ik deze lisp gevonden:
http://www.cadwiesel.de/edit.php?url=Boeschung.zip.
Misschien bevalt deze je beter.

Groet, Roy.

[hilnanne]

Excuus voor mijn trage reactie,ik ben er even tussenuit geweest.
Ben nu ook begonnen met afstuderen, dus zal wat minder tekenen, maar wel het forum blijven bekijken

groet

[EddyBeerke]

De teken-tools "RTW" van Rijkswaterstaat (NL) heeft ook zo'n tool om taluds te tekenen.
Je kunt ze downloaden op: http://www.bouwdienst-ftp.nl/cgi-bin/efileman/efileman/efileman.cgi
Je moet wel even registreren en inloggen, hiermee krijg je toegang voor de download met instructies.
Het is een goeie standaard om mee te werken, incl. lagen en lijnstylen maar ook een arceertool.

[cadtools@gmail.com]

Hoe kan ik inloggen?

[EddyBeerke]

Hoe kan ik inloggen?

Door een mail te sturen naar... (zie PM)

[JD]

Hallo,

even een oud topic van onder het stof halen...

kan je een lisp installeren in Autocad LT? (versie 2015, mac)

alvast bedankt

[gery]

kan je een lisp installeren in Autocad LT? (versie 2015, mac)

Dit heb ik begin deze week nog ergens gelezen:
AutoLISP is a programming language designed specifically for use with the full version of AutoCAD (i.e. it does not work with AutoCAD LT)

[Adrianus]

Hallo Hilnanne,
Onderstaande lisp heb ik (ik meen zelfs van deze site of die van CAD TOPPERS). Wellicht heb je hier iets aan. Werkt bij mij PERFECT. Groetsels, Adrianus.

(defun C:tal (/            Grenze_oben  Grenze_unten abstand
                 abstand_total             count        p1
                 p2
                 )

  (defun IS-ON-PL? (ENAME PKT /)
    (vl-catch-all-apply
      'vlax-curve-getdistatpoint
      (list
        ENAME
        PKT
        ) ;_ end of list
      ) ;_ end of vlax-curve-getDistAtPoint
    PKT
    ) ;_ end defun

(vl-load-com)
  (if (and (setq Grenze_oben (car (entsel "\nKies bovenkant: ")))
           (setq Grenze_unten (car (entsel "\nKies onderkant: ")))
           (setq abstand (getint "\nLijn afstand (gehele getallen):"))
           ) ;_ end of and
    (progn
      (setq abstand_total 0)
      (setq count 0)
      (setq p1 (vlax-curve-getStartPoint
                 (vlax-ename->vla-object Grenze_oben)
                 ) ;_ end of vlax-curve-getStartPoint
            ) ;_ end of setq
      (while p1
        (if (equal (/ count 2.0) (fix (/ count 2.0)) 0.001)
          (setq p2
                 (vlax-curve-getClosestPointTo
                   (vlax-ename->vla-object Grenze_unten)
                   p1
                   ) ;_ end of vlax-curve-getClosestPointTo
                ) ;_ end of setq
          (setq
            p2 (MAPCAR '(LAMBDA (x) (/ x 2))
                       (MAPCAR '+
                               p1
                               (vlax-curve-getClosestPointTo
                                 (vlax-ename->vla-object Grenze_unten)
                                 p1
                                 ) ;_ end of vlax-curve-getClosestPointTo
                               ) ;_ end of MAPCAR
                       ) ;_ end of MAPCAR
            ) ;_ end of setq
          ) ;_ end of if
        (entmake
          (list '(0 . "LINE")
                (cons 10 p1)
                (cons 11 p2)
      (cons 6 "BYLAYER")
                '(62 . 252)
                ) ;_ end of list
          ) ;_ end of entmake
        (if
          (setq p1 (IS-ON-PL?
                     (vlax-ename->vla-object Grenze_oben)
                     (vlax-curve-getpointatdist
                       (vlax-ename->vla-object Grenze_oben)
                       (setq abstand_total (+ abstand_total abstand))
                       ) ;_ end of vlax-curve-getpointatdist
                     ) ;_ end of IS-ON-PL?
                ) ;_ end of setq
           p1
           ) ;_ end of if
        (setq count (1+ count))
        ) ;_ end of while
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of defun
;|«Visual LISP© Format Options»
(72 2 40 1 T "end of " 60 9 0 0 0 nil T nil T)
;*** KEINEN Text unterhalb des Kommentars hinzufügen! ***|;

[hulpje]

http://www.cadtoppers.com/index.php?topic=29.msg82#msg82