CADsite forum

Goeie tip Reimer!! We werken inderdaad met Civil 3D, maar multiviewblocks kende ik niet. Dat wordt weer wat uitzoekwerk. (-_^)

@Julien: met hide in viewport zou inderdaad ook gaan, maar in de modelspace (waarin de modellen in 3D bekeken worden) zouden beide weergaves staan.

Is het mogelijk om de visibility van een block te laten afhangen van de viewpoint van de tekening?
Ik zou een 3D block in TOP-view er willen laten uitzien als een 2D-block (vierkant of zo) terwijl het in alle andere viewpoints als 3D block weergegeven moet worden.
Dit om dezelfde block bruikbaar te houden in zowel 2D-plannen als in 3D-viewers.

Bedankt!! Dit werkt perfect.

Ik krijg geen foutmelding, maar hij doet gewoon niet meer wat hij wel deed.

Het gaat hierbij om een soort splines van een ander programma (STAR) die bij omzetting naar dwg 3d-polylijnen worden. De extra vertices vormen hierbij voor een soort zaagtanden. Deze lisp verwijdert deze extra punten in de 3d-polylijnen zodat ze er weer vloeiend uit zien.

Ik heb een stuk van zo'n tekening hieronder als bijlage gestoken.

Hoi,

Ik heb een lisp die gemaakt is voor Autocad 2009. Na vele jaren hebben we deze terug nodig, maar het werkt niet meer in Autocad 2018 en nieuwer. Is er iemand die weet waaraan dit ligt? Alvast bedankt.

;; Function C:DWGStar is the main program function and defines the AutoCAD DWGStar command.
(defun C:DWGStar ()
;;get all 3Dpolylines
(if    (setq all3Dpolylines (dwgstar:get3DPolylines)
         N1 0
         Aantal_all3Dpolylines (sslength all3Dpolylines)
   )
     (while (< N1 Aantal_all3Dpolylines)
      (setq polyline (ssname all3Dpolylines N1))
        (if (= (dwgstar:checkver polyline) T)
        (progn
         (setq vertices (dwgstar:getver polyline))
           (dwgstar:create3dPoly vertices polyline)
           (command "erase" polyline "")
        )
      )
      (setq N1 (1+ N1))
   )
   (princ "\nNo 3Dpolylines found.")
) ;_ end of if
(princ) ; exit quietly
);_ end of defun

;;; Display a message to let the user know the command name.
(princ "\nType dwgstar to clean up the drawing.")
(princ)


;;; Function dwgstar:get3DPolylines will get all the 3Dpolylines
(defun dwgstar:get3DPolylines (/ StartPt EndPt HalfWidth)
  (setq ss (ssget "x" (list (cons 0 "POLYLINE"))))
) ;_ end of dwgstar:get3DPolylines

;;; Function dwgstar:create3dPoly will create a new 3D polyline
(defun dwgstar:create3dPoly (vertices polyline)
   (setq layer (cdr (assoc 8 (entget polyline))))
     (command "clayer" layer)
     (setq color (cdr (assoc 62 (entget polyline))))
     (command "_color")
   (if (/= color nil)
        (command color)
        (command "ByLayer")
     )

     ;(princ layer)
     ;(princ " ")
     ;(princ color)
     ;(princ "\n")
     (command "3dpoly")                                 ;start 3dpoly command
     (foreach n vertices (command n))
     (if (= (cdr (assoc 70 (entget polyline))) 9)
             (command "close")
             (command "")
     )
) ;_ end of dwgstar:create3dPoly



;;; Function dwgstar:getver will get all the vertices, except the  of the current polyline and put it into a list.
(defun dwgstar:getver (EntNme / stop teller SubEnt VerLst vertex)
(setq SubEnt (entnext EntNme))                     ;get first vertex
;(setq teller 0)
(setq stop 0)
(setq VerLst nil)                                  ;setup vertex list
(while SubEnt
   (if (= (getval 0 SubEnt) "VERTEX") ;do only vertexes
           (progn
         ;(setq teller (1+ teller))
         (if (= (flagsetp 16 SubEnt) nil) ;if true, then this vertex is no spline control point
            (progn
           (setq vertex (cdr (assoc 10 (entget SubEnt))))   ;get first vertex point
              (setq VerLst (append VerLst (list vertex)))      ;add vertex to verlst
         )
      
         )
      )
           (setq stop T)
   )
   (if(/= stop T)
     (setq SubEnt (entnext SubEnt))                   ;go to next vertex
     (setq SubEnt nil)
   )
)
;(princ teller)
VerLst                                             ;return vertex list
);_ end of dwgstar:getver

;;; Function dwgstar:checkver will get all the vertices, return true if there is a spline control point that should be cleaned
(defun dwgstar:checkver (EntNme / stop teller SubEnt Cleanup vertex)
(setq SubEnt (entnext EntNme))            ;get first vertex
;(setq teller 0)
(setq stop 0)
(setq Cleanup 0)               ;setup vertex list
(while SubEnt
   (if (= (getval 0 SubEnt) "VERTEX")          ;do only vertexes
           (progn
         ;(setq teller (1+ teller))
         (if (/= (flagsetp 16 SubEnt) nil)    ;if true, then this vertex is a spline control point
            (setq Cleanup T)      
         )
      )
           (setq stop T)            ; if no vertex, set stop to true
   )
   (if(/= stop T)
     (setq SubEnt (entnext SubEnt))         ; if not stop, go to next vertex
     (setq SubEnt nil)               ; if stop, then end while
   )
)
;(princ teller)
Cleanup                                              ;return Cleanup value
);_ end of dwgstar:checkver


; HELPER functions...
(defun GETVAL (grp ele)                 ;"dxf value" of any ent...
    (cond ((= (type ele) 'ENAME)          ;ENAME
            (cdr (assoc grp (entget ele))))
          ((not ele) nil)                 ;empty value
          ((not (listp ele)) nil)         ;invalid ele
          ((= (type (car ele)) 'ENAME)    ;entsel-list
            (cdr (assoc grp (entget (car ele)))))
          (T (cdr (assoc grp ele)))))     ;entget-list


(defun GETFLAG (ele)
  (getval 70 ele)
)

(defun FLAGSETP (val ele)
    (bitsetp val (getflag ele)))

(defun BITSETP (val flag)
    (= (logand val flag) val)
)

Dit had ik ook al gegoogeld. Helaas geen beschikbare opleidingen in België. Wel in Nederland, maar allemaal te ver. 
Had misschien beter gezegd "geen beschikbare opleidingen in België".

Heeft iemand weet van opleidingen voor Dynamo in Civil 3d? Ik krijg de opdracht en kans van mijn werk om dit onder de knie te krijgen, maar ik vind er voorlopig geen opleidingen van terug.

denk het niet, als ik de LinkWidthAndSlope vanop de standaardpallete gebruik werkt deze wel. We werken ook steeds met een template die overgedragen is vanuit versie 2009 naar 2010 en daarna naar 2011 (met de nodige aanpassingen natuurlijk).
De verwijzing binnen de atc-file zijn ook dezelfde als die in het standaardpallete van Civil 3D.

Ik heb een probleem met een zelf samengesteld toolpalette.
In Civil 3D (versie 2009) heb ik de subassembly LinkWidthAndSlope naar een toolpallete gesleept (met aangepaste waarden).
Deze heb ik nu ook gebruikt in versie 2010 en 2011. In versie 2010 werkt dezelfde toolpalette perfect, binnen versie 2011 lijkt het alsof hij de slope-waarde deelt door 100. Ik zou dus voor een slope van 2% 200% moeten invullen.
Is er nog iemand die dit probleem al heeft meegemaakt en/of een oplossing weet?

bedankt, dat verklaart veel. Ik teken namelijk heel veel met plines. 

Hey,
Ik merk op dat er in de versie 2011 toch een en ander veranderd is met de tangente lijnen.
Vroeger kon je makkelijk met de snapfunctie "tangent" (2 x gebruiken) een lijn tekenen die tangent is aan 2 verschillende cirkels. In versie 2011 lukt dit mij niet meer.
Heeft iemand hier een oplossing voor?

Ik vermoedde al zo'n antwoord. 
Ik hoopte echter op een of andere manier dit werk te vermijden.

Ik laat de topic nog even open, misschien heeft iemand toch nog een oplossing. 

Dacht ik ook, maar je ziet enkel de nieuwe layers als je de dws opent, niet de oude layers. Het verband tussen de oude en nieuwe layers moet toch ergens beschreven staan en aanpsbaar zijn, zonder verlies van data?

Hey,

Wij werken met tekeningen die van verschillende andere programma's komen. Hierbij is het wel nodig om de lagen om te zetten met laytrans om zo toch tot een standaard layerstructuur te komen.

Ooit had ik me eens bezig gehouden met alle mogelijke lagen in een tekening te zetten en dan een .dws te maken van de omzetting.
Nu wil ik daar echter een aanpassing aan doen. 2 lagen worden naar de verkeerde nieuwe laag vertaald. De grote basistekening met alle mogelijke lagen die binnekomen bestaat niet meer. Bestaat er een manier om de .dws aan te passen zonder verlies van lagen? Bvb, als je de laytrans opent in een lege tekening en dan de dws opslaat zijn alle lagen, die je al gedefinieerd had, weg.

Weet iemand hier een goed en liefst kosteloos programma voor?
De bedoeling is om een logo met tekst om te zetten in polylijnen, splines, ... maar waarbij de omtrek van de letters gegenereerd wordt.

Alvast bedankt,

Sven