CADsite forum

hallo hofCAD,

merci merci merci:-)

het werkt perfect!!

groetjes en waarschijnlijk tot de volgende vraag

Steve

hallo,

het programma van HofCAD is goed, maar het kan geen dimensies exploderen?

groetjes
en alvast bedankt

steve

hallo allemaal,

de bovenstaande codes werken niet als we ze in onze LISP-file zetten. Als we gewoon in het command-window typen :explode all dan doet hij het wel. Maar vanaf dat we de code in de LISP zetten werkt het niet meer. Doe ik iets verkeerd dan?

groetjes

Steve

hey,

this is all we have.

greetz
steve


define program name and localize variables
(defun C:TXTOUT (/ FN2 FD2 KWD2 SS2 CTR2 SSQTY2 OBJD2 OBTXT2)
(setq FN2 (getstring "\nText export file name: ")) ;get file name
(if (setq FD2 (open FN2 "r")) ;if file can be found
(progn
(close FD2) ;close file
(initget "Overwrite Append Cancel") ;initialize allowable keywords
(setq KWD2 (getkword "\nFile exists! Overwrite, Append or Cancel <O/a/c>: "))
)
)
(if (= "Cancel" KWD2) ;if user response was Cancel
(prompt "\nOperation cancelled at user's request.") ;prompt to confirm
(progn
(if (= "Append" KWD2) ;if user response was Append
(progn
(setq FD2 (open FN2 "a")) ;open file for appending
(prompt (strcat "\nFile \"" FN2 "\" now ready for appending."));and confirm
)
(progn
(setq FD2 (open FN2 "w")) ;else open file for (over)writing
(prompt (strcat "\nFile \"" FN2 "\" now open.")) ;and confirm
)
)
(prompt "\nPick text objects to export: ") ;prompt to select text
;select only TEXT & MTEXT
(setq SS2 (ssget '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>")))
CTR2 0 ;initialize counter CTR2 to zero
SSQTY2 (sslength SS2) ;find size of selection set
)
(repeat SSQTY2 ;repeat for each object
(setq OBJD2 (entget (ssname SS2 CTR2)) ;extract object data
OBTXT2 (cdr (assoc 1 OBJD2)) ;extract string value
CTR2 (1+ CTR2) ;increment counter
)
(write-line OBTXT2 FD2) ;write string to file
) ;end REPEAT
(close FD2) ;close file
(if (= "Append" KWD2) ;\inform user
(prompt (strcat "\n" (itoa SSQTY2) " lines appended to file.")); >of number
(prompt (strcat "\n" (itoa SSQTY2) " lines written to file.")) ;/ of lines
)
) ;end PROGN
) ;close "(if (= "Append"..."
(princ) ;exit quietly
)

hallo,

we hebben het gevonden! bedankt allemaaaaaaaaaaal

Hey Joop,

Wij gebruiken ook autoCAD 2005 maar het werkt nog steeds niet zelfs al kopieren we jouw hele code, hij blijft altijd wegschrijven in mijn documenten.

Groetjes Steve

hallo

dat werkt niet helemaal vrees ik. hij saved het nog altijd niet naar de plaats waar wij hebben opgegeven? mss zetten we de regel op de verkeerde plaats?

groetjes

steve

hallo,

weet er iemand een autoLISP die ervoor zorgt dat een tekening helemaal Explodeerd word?

groetjes

steve

hallo,

bij deze de code die we op een gratis site gevonden hebben. Voor ons is dit een zeer handig programmaatje, er is echter 1 probleem: de tekst die het programma inleest wordt automatisch weggeschreven naar een willekeurige locatie. Kan iemand ons zeggen waar of welke code we moeten toevoegen zodat het programma deze file wegschrijft op de door ons vastgelegde locatie?

groetjes

Steve

define program name and localize variables
(defun C:TXTOUT (/ FN2 FD2 KWD2 SS2 CTR2 SSQTY2 OBJD2 OBTXT2)
(setq FN2 (getstring "\nText export file name: "))               ;get file name
(if (setq FD2 (open FN2 "r"))                             ;if file can be found
 (progn
  (close FD2)                                                       ;close file
  (initget "Overwrite Append Cancel")            ;initialize allowable keywords
  (setq KWD2 (getkword "\nFile exists! Overwrite, Append or Cancel <O/a/c>: "))
 )
)
(if (= "Cancel" KWD2)                              ;if user response was Cancel
 (prompt "\nOperation cancelled at user's request.")         ;prompt to confirm
 (progn
  (if (= "Append" KWD2)                            ;if user response was Append
   (progn
    (setq FD2 (open FN2 "a"))                          ;open file for appending
    (prompt (strcat "\nFile \"" FN2 "\" now ready for appending."));and confirm
   )
   (progn
    (setq FD2 (open FN2 "w"))                 ;else open file for (over)writing
    (prompt (strcat "\nFile \"" FN2 "\" now open."))               ;and confirm
   )
  )
  (prompt "\nPick text objects to export: ")             ;prompt to select text
;select only TEXT & MTEXT
  (setq SS2 (ssget '((-4 . "<OR")(0 . "TEXT")(0 . "MTEXT")(-4 . "OR>")))
        CTR2 0                                 ;initialize counter CTR2 to zero
        SSQTY2 (sslength SS2)                       ;find size of selection set
  )
  (repeat SSQTY2                                        ;repeat for each object
   (setq OBJD2 (entget (ssname SS2 CTR2))                  ;extract object data
         OBTXT2 (cdr (assoc 1 OBJD2))                     ;extract string value
         CTR2 (1+ CTR2)                                      ;increment counter
   )
   (write-line OBTXT2 FD2)                                ;write string to file
  )                                                                 ;end REPEAT
  (close FD2)                                                       ;close file
  (if (= "Append" KWD2)                                           ;\inform user
   (prompt (strcat "\n" (itoa SSQTY2) " lines appended to file.")); >of number
   (prompt (strcat "\n" (itoa SSQTY2) " lines written to file.")) ;/ of lines
  )
 )                                                                   ;end PROGN
)                                                   ;close "(if (= "Append"..."
(princ)                                                           ;exit quietly
)

Bedankt voor de tips. We hebben de oplossing gevonden!

groetjes

Steve

Hallo,

in autoCAD hebben we een nieuwe toolbar gemaakt met 3 buttons die we elk een symbool gegeven hebben. Probleem: als autoCAD afgesloten word, zijn de icoontjes verdwenen bij heropenen van autoCAD. Hoe komt dit?

groeten

Steve

Hey,

Bedankt, we hebben de oplossing gevonden.

Groetjes Steve

Hey,

Het eerste deel van je code werkt, maar het tweede deel niet. We hebben nu een eerste knop in een werkbalk waarmee we de LISP laden, we willen nu met een tweede knop een functie van de lisp laden.
de code van de eerste knop is: ^C^C^P(load "D:/test/koppelen.lsp");
de functie in deze LISP die we willen aanroepen heet "lees". Kan iemand ons zeggen hoe we met een tweede knop of eventueel samen met de eerste knop, deze functie kunnen laden.

Groetjes Steve

Hallo iedereen,

we hebben een werkbalkknopje aangemaakt. Hoe geven we deze knop de functie dat hij een Autolisp kan laden? (Tools-Autoslisp-Load)

bedankt

Steve

Hallo allemaal,

via autolisp gebruiken wij een programma om tekst uit te lezen en in een bestand te zetten.  AutoCAD saved echter automatisch in "mijn documenten" het bestand. Weet er iemand hoe we deze plaats van saven zelf kunnen kiezen?

mvg
Steve