CADsite forum

Je kan ook een prograama zoals Hurricane gebruiken:

http://www.topshareware.com/Hurricane-for-AutoCAD-download-6454.htm

kost wel iets, heb er zelf een 50$ voor betaald, maar werkt vlekkeloos. 

Het probleem blijft hetzelfde, somige lijnen worden aan de verkeerde zijde getrimd.  Zoals je op de bijlage kan zien, de onderste 2 zijn Oké, de bovenste niet. De routine heeft 3x achter elkaar gelopen en het resultaat is niet altijd hetzelfde ?!?

Met VP's kan je inderdaad een "detail" verschaald weergeven, maar dan wel met alle objecten die er in de tekening zitten en dat is nu net niet de bedoeling want dan staat er te veel overbodige info in het detail, dus VP's vallen af.

Eddy,

Mijn tekeningen zijn altijd 1:1, maar soms moet er een verschaald detail op staan tbv de constructie er van. Dan wordt er een deeltje van de tekening vergroot en alle overbodige info weggegooid. (Net zoals vroeger toen we nog met het handje tekende)

dit is routine waar ik het over had, het trimmen gaat niet goed, heb de routine een aantal keer op dezelfde selectionset laten lopen, elke keer met een ander resultaat (niet altijd worden de objecten aan de juiste zijde getrimd). Iemand een idee? 

(defun val (x e) (cdr (assoc x e)))
(defun enttype (e) (cdr (assoc 0 e)))
(defun entname (e) (cdr (assoc -1 e)))
(setq >90 (/ pi 2))
(setq >270 (* 3 (/ pi 2)))
(defun osends (ss pll pur / z eps)
  (ends ss)
  (foreach z eps
    (if (or (< (caadr z) (car pll))
        (< (cadadr z) (cadr pll))
        (> (caadr z) (car pur))
        (> (cadadr z) (cadr pur))
      )
      (command z)
    )
  )
)
(defun ends (ss / i ent cen)
  (setq len (sslength ss) i 0)
  (while (< i len)
    (setq ent (entget (ssname ss i)))
    (cond
      ((= (enttype ent) "LINE")
        (setq eps (cons (list (entname ent) (val 10 ent)) eps))
        (setq eps (cons (list (entname ent) (val 11 ent)) eps)) )
      ((= (enttype ent) "ARC")
        (setq cen (val 10 ent))
        (setq eps (cons
          (list (entname ent)
            (polar cen 0 (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
            (polar cen >90 (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
          (polar cen pi (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
          (polar cen >270 (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
            (polar cen (val 50 ent) (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
            (polar cen (val 51 ent) (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
          (osnap (polar cen (val 51 ent) (val 40 ent)) "mid")) eps)) )
      ((= (enttype ent) "CIRCLE")
        (setq cen (val 10 ent))
        (setq eps (cons
          (list (entname ent)
          (polar cen 0 (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
          (polar cen >90 (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
          (polar cen pi (val 40 ent))) eps))
        (setq eps (cons
          (list (entname ent)
          (polar cen >270 (val 40 ent))) eps)) )
    )
    (setq i (1+ i))
  )
)
(defun exp_pl (s / i len ent)
  (setq i 0 len (sslength s))
  (while (< i len)
    (setq ent (entget (ssname s i)))
    (cond
      ((= (enttype ent) "POLYLINE")
        (command "explode" (entname ent))
      )
      ((= (enttype ent) "INSERT")
        (if (= (val 41 ent) (val 42 ent) (val 43 ent))
          (command "explode" (entname ent))
        )
      )
    )
    (setq i (+ 1 i))
  )
)
(defun era_xtra (e)
  (setq ssx# (ssadd))
  (while (setq e (entnext e))
    (if (not (ssmemb e ssx#))
      (setq ssx# (ssadd e ssx#))
    )
  )
  (command "erase" ssx# "")
)
(defun c:dtl ()
  (if (and
    (setq px (getpoint "\nFirst corner: "))
    (setq py (getcorner px "\nOther corner: "))
    (setq pxx (getpoint px "\nNew first corner position: "))
    (setq xs (getreal "\nScale factor for detail: ")) )
    (progn
  (command "copy" "c" px py "" px pxx)
  (command "pline" px (list (car px) (cadr py)) py (list (car py) (cadr px)) "c")
  (setq ss (ssget "c" pxx (polar pxx (angle px py) (distance px py))))
  (setq last (entlast))
  (exp_pl ss)
  (setq ss (ssget "c" pxx (polar pxx (angle px py) (distance px py))))
  (era_xtra last)

 
 
  (command "scale" ss "" pxx xs)
  (setq pyy (polar pxx (angle px py) (* xs (distance px py))))
  (command "pline" pxx (list (car pxx) (cadr pyy)) pyy (list (car pyy) (cadr pxx)) "c")
  (command "trim" (setq b (entlast)) "")
  (osends ss pxx pyy)
  (command "")
  (redraw b)
    )
  )

  (princ)
)
(princ)

En dan is er nog iets,  ik begrijp de functie van deze lijn niet goed: (command "erase" ssx# "")    het is de bedoeling (volgens mij) dat de kader van de polyline wordt weggegooid, maar dat gaat (ook) niet altijd goed 

(defun era_xtra (e)
  (setq ssx# (ssadd))
  (while (setq e (entnext e))
    (if (not (ssmemb e ssx#))
      (setq ssx# (ssadd e ssx#))
    )
  )
  (command "erase" ssx# "")
)

Citaat van: EddyBeerke op do 04 09 2008, 15:56:39
Daar heb je toch viewpoorts voor?

Niet als je in modelspace werkt, bovendien is het aantal viewports per tekening beperkt. De bedoeling is om echte details te maken dmv een lisp routine

Wie kan mij helpen, ik moet op een groot aantal tekeningen een vergroot detail maken van een deel van de tekening. De bedoeling is dat er een deel van de tekening wordt geselecteerd en daarna wordt vergroot bv 5x en dat daarna alles netjes wordt getrimd. Had op internet een autolisp routine gevonden maar die werkt om één of andere reden niet. 

Thx

Ron