CADsite forum

Goedemorgen.

Wanneer ik het commande scalelistedit invoer krijg ik een foutmelding.
Het stomme is dat ik deze foutmelding alleen maar in deze tekening krijg.

wie weet hoe ik het kan oplossen?

foutmelding staat in de bijlage:

tool pallette aanpassen.

Goedemiddag,

ik ben bezig om een bestaande toolpallet aan te passen alleen ik kom er niet helemaal uit.

Ik wil graag de volgende aanpassingen:
1.8 kleur rood --> dat is hij nu volgens mij ook al
2.5 kleur zwart
3.5 kleur magenta
5.0 kleur groen.

Wanneer men nu geen schaal selecteert zet hij de tekst dus ook neer met een height van 1.8, 2.5 enz.
Dit is bij ons dus precies een schaal van 1 op 1000

wanneer ik nu bijvoorbeeld een schaal in voer  van 1:500 zou hij dus de helft moeten pakken van de tekstheight. dit gaat niet helemaal goed.

kan iemand mij hiermee verder helpen?

alvast bedankt.

kan bijlage niet uploaden het is een xtp bestand

hieronder een deel van het bestand, kan niet meer als 2000 karakters 

<ToolPaletteExport><DependentFilesPath>Tekst</DependentFilesPath><PaletteSets><PaletteSetData><PaletteSetContent><Palettes><PaletteData><PaletteContent><Palette><ItemID idValue="{9D2A1F12-941B-43DF-8FB6-05CD7451F545}"/><Properties><ItemName>Tekst</ItemName><Images/></Properties><Source/><Tools><Tool><ItemID idValue="{44728C30-1605-496B-A0C9-E4A1CC9DF503}"/><Properties><ItemName>LET OP! Eerst  schaal instellen)</ItemName><Images/><Time createdUniversalDateTime="2007-05-22T13:30:20" modifiedUniversalDateTime="2007-05-22T13:30:20"/></Properties><Source/><ToolType>3</ToolType><StockToolRef/><Data/></Tool><Tool><ItemID idValue="{8B201950-1B20-434F-8642-B7F52BC547F8}"/><Properties><Images/><Time createdUniversalDateTime="2007-05-22T13:24:43" modifiedUniversalDateTime="2007-05-22T13:24:43"/></Properties><Source/><ToolType>4</ToolType><StockToolRef/><Data/></Tool><Tool><ItemID idValue="{270292B7-1D45-4E0A-959C-3FF1ECD1B5B2}"/><Properties><ItemName>1.8mm</ItemName><Images><Image cx="16" cy="16" resource="RCDATA_16_SINGLE_DTEXT" src="%ProgramBtnRes%"/></Images><Description>Displays text on screen as it is entered:  DTEXT</Description><Time createdUniversalDateTime="2007-05-22T13:15:14" modifiedUniversalDateTime="2008-11-27T10:55:57"/></Properties><CustomData>
                                 <AcRxClassInfo className="AcDbText"/>
                                 <ToolbarButton idButton="ID_Dtext"/>
                              </CustomData>
                              <Source/><ToolType>1</ToolType><StockToolRef idValue="{2AE7120B-CEE4-47A5-9B50-EF9F3ADE24AC}"/><Data>
                                 <GeneralProperties><Color><BasicPropInfo><PropValue unspecified="FALSE"/></BasicPropInfo><CreateInfo><AcCmColor mRGB="3221225472"/></CreateInfo></Color><Layer><BasicPropInfo><PropValue unspecified="FALSE" valueType="1" value="Tekst 1.8"/></BasicPropInfo><CreateInfo><LayerTableRecord isNotPlotted="FALSE" lineWeight="-3"><SymbolTableNameRecord>Tekst 1.8</SymbolTableNameRecord><Linetype><BasicPropInfo><PropValue unspecified="FALSE" valueType="1" value="Continuous"/></BasicPropInfo></Linetype><Color><BasicPropInfo><PropValue unspecified="FALSE"/></BasicPropInfo><CreateInfo><AcCmColor mRGB="3271557121"/></CreateInfo></Color></LayerTableRecord></CreateInfo></Layer><Linetype><BasicPropInfo><PropValue unspecified="FALSE" valueType="1" value="ByLayer"/></BasicPropInfo></Linetype><LinetypeScale><BasicPropInfo><PropValue unspecified="FALSE" valueType="3" value="1"/></BasicPropInfo></LinetypeScale><PlotStyle><BasicPropInfo><PropValue unspecified="FALSE" valueType="1" value="ByLayer"/></BasicPropInfo></PlotStyle><LineWeight><BasicPropInfo><PropValue unspecified="FALSE" valueType="2" value="-1"/></BasicPropInfo></LineWeight><Textstyle><BasicPropInfo><PropValue unspecified="FALSE" valueType="1" value="RDM_algemeen"/></BasicPropInfo><CreateInfo><TextstyleTableRecord isShapeFilePointer="FALSE" fontOrShapeFile="isocp.shx" isMirroredinX="FALSE" isMirroredinY="FALSE" isVertical="FALSE" widthRatio="1.000000"><SymbolTableNameRecord>RDM_algemeen</SymbolTableNameRecord><FixedTextHeight>0.000000</FixedTextHeight><Obliquing>0.000000</Obliquing><PriorTextHeight>100.000000</PriorTextHeight><FontXdata bold="FALSE" italic="FALSE" charSet="0" pitchAndFamily="0"/></TextstyleTableRecord></CreateInfo></Textstyle><Dimstyle><BasicPropInfo><PropValue unspecified="TRUE" valueType="1"/></BasicPropInfo></Dimstyle><Tablestyle><BasicPropInfo><PropValue unspecified="TRUE" valueType="1"/></BasicPropInfo></Tablestyle></GeneralProperties><Command><Macro><![CDATA[^C^C_dtext;\$M=$(*,$(getvar,dimscale),1.;0;]]></Macro></Command></Data>
                           </Tool><Tool><ItemID idValue="{23E017D7-954E-4229-BAEF-174870CA633F}"/><Properties><ItemName>2.5mm</ItemName><Images><Image cx="16" cy="16" resource="RCDATA_16_SINGLE_DTEXT" src="%ProgramBtnRes%"/></Images><Description>Displays text on screen as it is entered:  DTEXT</Description><Time createdUniversalDateTime="2007-05-22T13:15:14" modifiedUniversalDateTime="2008-11-27T10:55:57"/></Properties><CustomData>

Goedemorgen,

Ik heb een dynamic block met een visibilityy waar circa 100 visibility's inzitten.
Mijn vraag is hoe kan ik dit block inclusief alle visibility's in 1 keer in een andere laag zetten (laag 0)

alvast bedankt

Misschien is het makkelijk wanneer er een aparte  bibliotheek wordt aangemaakt met dynamic blocks, zodat  iedereen deze kan downloaden en eventueel uploaden.

Hallo,

Ik moet een patroon arcering in autocad.
Het probleem is alleen dat elk patroon anders verloopt. In dit patroon zitten weer dikformaten.

in de bijlage wordt het wel iets duidelijker wat ik bedoel.

De dwg die ik nu heb, daar staan alle stenen nu 1 op 1 in getekend. de bedoeling is dus ook dat dit 1 op 1 geplot gaat worden. daarom zou ik dus eigenlijk steentje voor steenje moeten arceringen maar dat is echt een megaklus.

iemand enig idee hoe dit makkelijker kan?

zie bijlage

Hallo,

Ik heb een lisp die ik graag aangepast wil hebben.
Deze lisp trekt oppervlaktes uit aan de hand van omtreklijnen. Je moet dus binnen het vlak klikken en vervolgens geeft hij het oppervlakte weer.

Nu wil ik graag dat deze lisp de text niet neerzat als text maar als mtext. Ik heb al geprobeerd om dit te veranderen maar helaas geeft hij dan niet meer de area.

alvast bedankt voor de hulp

hieronder de lisp

;;;--- GA.lsp   -   GetArea
JefferyPSanders.com
;;;    All rights reserved.

edit Bart
deze lisp is eigendom van jefferySanders.com
heb je toestemming om hem hier te plaatsen

Goedemorgen,

Waarom duurt het soms vreselijk lang voordat een tekening open gaat in autocad terwijl microstation er totaal geen problemen mee heeft. nadat de tekening open is gegaan heb ik al gepurd en audit en drawing cleanup gedaan maar niks werkt, heeft iemand enig idee waar het aan kan liggen

tekening is bijgevoegd als bijlage.

alvast bedankt.

(defun TekstErr2 (msg)
(if (/= msg "Function cancelled") (princ (strcat "\nError: " msg)))
(setq msg nil)
(ResVarTekst2)
(princ)
)
(defun ResVarTekst2 ()
(setvar "CMDECHO" ~CMD)
(setq *error* olderr ~CMD nil)
)
(defun c:Tekst2 (/ hgt P0)
  Â (setq olderr *error* *error* TekstErr
  Â  Â  Â  ~CMD (getvar "CMDECHO")
  Â )
  Â (setvar "cmdecho" 0)
  Â (if (not (tblsearch "STYLE" "iso"))
  Â (command "_STYLE" "iso" "isocp.shx" "0" "1" "0" "N" "N"))
;;;; (command "_STYLE" "iso" "iso.shx" "0" "1" "0" "N" "N" "N"))
  Â (while  (not (or (= hgt 1.25) (= hgt 2.5) (= hgt 3.5)))
  Â  Â  (setq hgt (getreal "\nGeef de gewenste texthoogte <1.25 - 2.5 - 3.5> ")))
  Â (entmake (list (cons 0 "TEXT")
  Â  Â  Â  (cons 8 "18")  Â  ;laagnaam
  Â  Â  Â  (cons 10 (setq P0 (getpoint "\nGeef het invoegpunt voor de text -> ")))
  Â  Â  Â  (cons 11 p0)
  Â  Â  Â  (cons 50 (getangle P0 "\nGeef de rotatiehoek in: "))
  Â  Â  Â  (cons 1 (getstring T "\nGeef de tekst in: "))
  Â  Â  Â  (cons 40 hgt)  Â  Â  ;texthoogte
  Â  Â  Â  (cons 73 1) ;justification
  Â  Â  Â  (cons 7 "Iso")))  Â ;textstyle
  Â (ResVarTekst2)
  Â (princ)

wanneer ik hem opgestart krijg dan pas ik hem wel aan naar de waarden van onze tekenstandaarden.

alvaste bedankt

goedemorgen allemaal,

ik heb een lisp routine die viewport locked en unlocked, alleen staat er in deze lisp ook dat wanneer een vport gelocked is dat deze rood moet kleuren en wanneer deze geunlocked is dat deze groen moet kleuren. helaas doet hij dat niet zou iemand hier een oplossing voor hebben?

zie bijlage

alvast bedankt

Nog een vraag,..

is het mogelijk om een tekst een block en weer een tekst samen te voegen tot een (m)tekst?
zie bijlage

Hoe kan ik de textstyle veranderen van de attribute die verwerkt zijn in een block,

een voor een lukt me wel maar kan dit ook in 1x?

alvast bedankt

Weet iemand ofdat het mogelijk is om gesloten polylijnen of hatches bij elkaar op te tellen zodat ik een totale omtrek krijg van de verschillende omtrekken?

alvast bedankt

VP Color (available only from a layout tab)
Sets an override for the color associated with the selected layer for the active layout viewport.

waarom werkt dit niet bij mij.

als ik de kleur van een xref verander in de vp zie ik het wel in mijn layer manager veranderen maar niet in de tekening. heeft dit er mee te maken omdat het een xref is?

alvast bedant

Hallo allemaal,

wanneer ik eerst een lijn verdraaide kreeg ik eerst een soort preview hoe deze dan terecht zou komen.
helaas zie ik deze preview niet meer, weet iemand hoe ik dit terug kan instellen?

alvast bedankt

stel ik heb een tekening met 30 layouts en die wil ik printen op printer A, dit doe ik met het commando publish,
nu wil ik deze printen op printer B, hoe kan ik dit doen zonder dat ik ze alle 30 een voor een eruit moet gooien door elke keer een andere printer te selecteren?

alvast bednakt

Hallo,

ik wil graag gegevens koppelen aan een block. dus adres gegevens en de risico van het adres (gastank e.d)
volgens mij kan zoiets met een attribute?

of weet iemand misschien een andere manier,

de bedoeling is dus wanneer ik het block aantik er gegevens naar voren komen.

alvast bedankt

Hallo allemaal,

ik heb een lisp voor het alignen van text langs een lijn,
alleen zou ik deze lisp graag omwillen bouwen zodat ik een mtext kan alignen langs een lijn. dit moet volgens mij niet zo heel moeilijk zijn, kan en wil iemand mij hierbij helpen?

alvast bedankt,

Hieronder de lisp:

(defun aligntxt_err (s)
   (if (/= s "Function cancelled")
       (princ (strcat "\nError: " s))
   )
   (setq *error* old_error)
   (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun align ()
   (setq leng (sslength txt_set)
         n 0
   )
   (while (/= n leng)
          (setq ent (entget (ssname txt_set n))
                n (1+ n)
                ent (subst (cons 50 ang)
                           (assoc 50 ent)
                           ent
                    )
          )
          (entmod ent)
   )
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun sel ()
   (setq punt (cadr (entsel "\nPick a line to align text. ")))
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun aligntxt ()
   (sel)
   (while (= punt nil)
          (prompt "\nNothing found.")
          (sel)
   )
   (command "dimaligned" "" punt punt)
   (setq ang (angle (trans (cdr (assoc 13 (entget (entlast)))) 0 1)(trans (cdr (assoc 14 (entget (entlast)))) 0 1)))
   (entdel (entlast))
   (align)
   (setq ans (getstring "\nRotate 180 degrees? y/n <n> "))
   (if (= (strcase ans) "Y")
       (progn (setq ang (+ ang pi))
              (align)
       )
   )
   (princ "\nRegards, Theo.")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:at ()
   (setq old_error *error*
         *error* aligntxt_err
   )
   (princ "\nSelect TEXT to align. ")
   (setq txt_set (ssget '((0 . "TEXT"))))
   (if txt_set
       (aligntxt)
       (alert "No \"TEXT\" found.")
   )
   (setq *error* old_error
         old_error nil
         txt_set nil
         leng nil
         ent nil
         ang nil
         ans nil
         n nil
   )
   (princ)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

Hallo,

zelf heb ik een aantal lyntype's gemaakt, maar helaas wil ik nu een lyntype maken wat mij dus niet lukt.
dit zou hem dan moeten worden:  ///////////

wie zou dit voor elkaar kunnen krijgen?

alvast bedankt

wanneer ik autocad opstart kom ik automatisch in een 3d omgeving terecht terwijl ik eigenlijk in een 2d omgeving terecht wil komen. ik neem aan dat het te maken heeft met een dwt file. maar ik weet niet 1, 2, 3 hoe ik dit moet oplossen.

iemand enig idee?

alvast bedankt

hallo,

wanneer ik in de legenda een trottoirband benoem dus bijvoorbeeld : trottoirband 7/15x250 zet autocad automatisc een breuk neer van 7 en 15
dus de 7 komt boven dan een streepje en dan daaronder de 15, weet iemand hoe ik dit uit kan zetten?

alvast bedankt