CADsite forum

Ik heb hier op de site een lisp gedownload voor automatisch nummeren van singleline teksten (werk perfect), maar ik zoek eigenlijk hetzelfde met het verschil dat de singleline text een atribute van een block is. zodat wanneer ik dus mijn block verplaats deze mee verplaatst.

Weet iemand of ik dit er is, je zou me erg uit de brand helpen 

Chiel

Wel,
Kunt u ons vertellen hoe deze blocks moeten worden genummerd, naar de lokatie in de tekening, of doornummeren van links naar rechts en van onder naar boven of doornummeren als er een block bijkomt? Is het bijvoorbeeld voor een elektrisch schema dan is het heel anders nummeren dan voor grondplan.

Ik zoek zo'n zelfde soort routine. Heb allemaal blocks in een tekening staan met een attribute. Deze wil ik automatisch gaan nummeren, bij voorkeur met een bepaalde richting van nummeren die ik aangeef. Updaten na een wijziging is niet nodig!

Kan iemand mij hierbij helpen?
Alvast bedankt, Vincent

eehh nu is bij mij açad 2008 erop gezet, maar mijn autonumb is er dus niet meer...
Heb hem hier nog wel op de c-schijf staan, maar als ik in de handleiding kijk over het installeren, staat er:

unzip alle bestanden in autonumb.zip naar een map die in de "autocad search path" zit. nu dient u een knopje aan te maken met volgende info...

Is er een specifieke map voor??? aangezien er veel meer search paths zijn (support , fonts, help, express enz.)
Kan ik eventueel een aparte map aanmaken en die ook als search path aanduiden? (dan blijft het wat overzichtelijker namelijk)

ik hoor het graag...

Ik gebruik deze routine al sinds 2004.
Hij is grof en primitief maar voor mijn doel werkt hij.
Hij nummert het eerstre attribute in een block in de volgorde dat de blocken gekozen zijn.


;==============================================================================
; NAME
;
; attnum.lsp - numbers attributes in ascending order 
;
; USAGE
; (load "attnum.lsp")
; attnum
;
; SYNOPSIS
;
; Numbers automatically from a number of choosen elements the first
; attribute in ascending order. The startvalue can be given. When an
; object is selected which has no attributes, the attribute will not
; be numbered but the counter will be incremented with 1. Thereby is
; it possible to count the appendages without an attribute.
;
; BUGS
;
; No errorchecking is done.
;
; HISTORY
;     version   date by 
; 1.0 19-02-2001 JFM initial version
;
;
;===============================================================================
(defun c:attnum ()
   (if (not tpp)
      (setq tpp "...")
   )
   (princ "Geef PP-code<")
   (princ tpp)
   (princ ">:")
   (setq pp (getstring T))
   (if (= pp "")
      (setq pp tpp)
   )
   (if (not tappnr)
      (setq tappnr 1)
   )
   (princ "Startvalue: <")
   (princ tappnr)
   (princ ">:")
   (setq appnr (getint))
   (if (not appnr)
      (setq appnr tappnr)
   )
   (princ "Select objects in order:")
   (setq objects (ssget))
   (setq teller 0
aantal (sslength objects)
   )
   (while (< teller aantal)
      (setq element (ssname objects teller))
      (setq nextent (entnext element))
      (setq attrib (entget nextent))
      (setq oud (assoc 1 attrib))
      (setq vlgnr (itoa appnr))
      (if (< appnr 10)
(setq vlgnr (strcat "0" vlgnr))
      )
      (setq tagcode (strcat pp vlgnr))
      (setq nieuw (cons 1 tagcode))
      (setq attrib (subst nieuw oud attrib))
      (entmod attrib)
      (entupd nextent)
      (setq appnr (+ appnr 1))
      (setq teller (+ teller 1))
   )
   (setq tappnr appnr)
   (setq tpp pp)
)
;|«Visual LISP© Format Options»
(80 3 1 2 nil "end of " 60 9 0 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;


Beste Joop en andere forumgebruikers,

Mooie Lisp! Dit is wat we zoeken.
Is het ook mogelijk om alle attributes te hernoemen d.m.v. een window of crossing? We willen dan zelf aangeven of hij in verticale of horizontale richting moet beginnen, maar ook vanaf links of rechts.

Alvast bedankt.

hello,

dit zou ook graag willen, maar ik heb een probleem... ik heb nu al 3 jaar niet meer met autocad gwerkt. dit wil ik weer oppakken en ben aan het onderzoeken hoe ik automatisch kan doornummeren... op deze manier dus. maar nou heb ik eigenlijk geen idee hoe ik dit in moet voegen. kan iemand mij hierbij helpen of staat er ergens een stappenplan?

sorry ik ben echt een beginner..

alvast bedankt!

mvg

Citaat van: Bassie84 op ma 04 07 2011, 12:42:52
...
sorry ik ben echt een beginner..
...

Je kunt het lisp-bestand in je tekening slepen.
Een andere manier is om met het commando: appload (kort: ap) dat bestand te zoeken en laden.

Nu moet je nog de list laten werken:
Voor deze lisp type je het commando: attnum

kan het kloppen dat dit allemaal niet meer werkt in autocad 2012?

mvg

Bij mij werk het wel met acad 2010.
Misschien doe je iets niet goed.
Kun je anders de foutmelding posten?

als ik de autonum.lsp hier van de site bijvoorbeeld laod...

_applaod autonumb.lsp succesfully loaded.

daarna type ik dus

autonumb

dan zegt hij unknown command

* nog maals mijn excuses ik ben een hele tijd uit het autocad tekenen.
zal even uitleggen hoe en wat. zelf heb ik 3 jaar getekend met allpan.. hiervoor gekozen op school.. of dit slim was of niet maakt nu even niet uit... op mijn stage werken ze met allplan en autocad... en merk dat allplan beperkingen heeft en wil ik kijken of ik het in autocad wel kan oplossen..

nu met offertes maken worden tekeningen gepakt en punten geteld.. als er een foutje gemaakt wordt moet er opnieuw worden geteld... daarom wil ik een block of iets dergelijks maken met een cirkel om het punt heen wat geteld moet worden en een nummer erbij die doornummerd zodat je als alles geselecteerd is gelijk weet hoeveel punten er zijn en deze kan dan gebruikt worden voor de offerte.

alvast bedankt voor de moeite

Citaat van: Bassie84 op ma 04 07 2011, 14:17:21
als ik de autonum.lsp hier van de site bijvoorbeeld laod...
_applaod autonumb.lsp succesfully loaded.
daarna type ik dus
autonumb
dan zegt hij unknown command
...

Gelukkig doe je niet veel fout:
Je hebt mijn reactie niet goed gelezen:

Citaat van: EddyBeerke op ma 04 07 2011, 12:52:40

Voor deze lisp type je het commando: attnum

oohw ik dacht omdat het voorbeeld attnum heette... dat je attnum typt...

ben nu even niet op mijn plek.. maar ik ga het uitproberen.. tot zover bedankt