tiboulen

jadis j'avais ecrit un petit lisp pour remplacer tous les blocs d'un dessin par un autre (defun c:rplbl () (setq oldosmode (getvar "osmode")) (setvar "osmode" 0) (setq i0 0) (setq bl0 (entsel "reperez le bloc à changer")) (setq entbl0 (entget (car bl0))) (setq nombl0 (cdr (assoc 2 entbl0))) (setq bl1 (entsel "reperez le bloc à inserer")) (setq entbl1 (entget (car bl1))) (setq nombl1 (cdr (assoc 2 entbl1))) (setq newbloc0 (list '(0 . "INSERT") (assoc 2 entbl1) (assoc 10 entbl1) (assoc 41 entbl1) (assoc 42 entbl1) (assoc 43 entbl1) (assoc 50 entbl1))) (setq jsbl (ssget "X" (list (cons 0 "INSERT") (cons 2 nombl0)))) ;;(setq jsbl (ssget (list (cons 0 "INSERT") (cons 2 nombl0)))) (repeat (sslength jsbl) (setq ent0 (ssname jsbl i0)) (setq ptins1 (cdr (assoc 10 (entget ent0)))) (setq entgt0 (entget ent0))Jadis (entdel ent0) (setq newbloc (list '(0 . "INSERT") (assoc 2 entbl1) (assoc 8 entgt0) (assoc 10 entgt0) (assoc 41 entgt0) (assoc 42 entgt0) (assoc 43 entgt0) (assoc 50 entgt0))) (entmake newbloc) (setq i0 (+ i0 1)) ) (setvar "osmode" oldosmode) ) si ca peut etre utile ?

sur autocad lt il esttoujours possible d'enregistrer sur une version precedente, pour que ce reglage soit permanent il faut aller dans outils options ouvrir et enregister. je pe,se qu'il faudrait esseyer en autocadlt2002

bonjour je mets toujours osmode à 0 avant de creer un prog de creation d' objet Pour tester si c'est bien une polyligne (je ne connais pas vba et travaille sur toolkit + autocadlt snif..) j' utilise : (while (or (null (setq pol0 (entget (car (entsel "\Designer une polyligne"))))) (/= (cdr (assoc 0 pol0)) "LWPOLYLINE") ) (prompt "\nCe n'est pas une Polyligne\n") ) meme principe pour une ligne salut

bonjour Que pensez vous des mails venant de absoft.com qui proposent entre autre des autocad 2006 à 40 dollars leur site est : http://abwsoft.com/index.php?target=desc&progid=3376 arnaque ou réalité ? à bientot

bonjour Sur ma lt2005 je tape la commande image et j'ai une fenetre me proposant d' attacher une image , au format bmp tif etc.......... Pour l'impression cela ne marche pas avec tous les drivers, il faut en essayer plusieurs sinon pas de pb

salut un jour j'ai trouve cette routine sur le net et qui marche mais je n el'ai pas analisée (defun C:REV (/ olderr cmde blip ltsc cclr snap pwid pgenen1 nam ent p obj ltp clr lts wid flgs first final next spl cur vert a clos zoomit clyr lyr) (setq olderr *error*) (defun *error* (x) (setvar "cmdecho" cmde) (setvar "blipmode" blip) (setvar "osmode" snap) (setvar "celtscale" ltsc) (setvar "cecolor" cclr) (setvar "plinewid" pwid) (setvar "plinegen" pgen) (setq *error* olderr) (princ) ) ;; end of *error* function (setq cmde (getvar "cmdecho") blip (getvar "blipmode") ltsc (getvar "celtscale") cclr (getvar "cecolor") snap (getvar "osmode") pwid (getvar "plinewid") clyr (getvar "clayer") pgen (getvar "plinegen")) (setvar "cmdecho" 0) (setvar "blipmode" 0) (setvar "osmode" 0) (setvar "plinewid" 0) (setvar "plinegen" 1) (command "_.undo" "_be") (while (null (setq en1 (entsel "\nPick an object to reverse: ")))) (setq nam (car en1) ent (entget nam) p (cadr en1) obj (cdr (assoc 0 ent))) (cond ((= obj "CIRCLE") (setq ctr (cdr (assoc 10 ent)) dia (* 2.0 (cdr (assoc 40 ent))) a (angle p ctr)) (command "_.break" p (polar p (/ pi 4) 0.001) "_.pedit" p "_y" "_c" "_x") (carc)) ((= obj "ARC") (command "_.break" p "@" "_.pedit" p "_y" "_j" nam (entlast) "" "_x") (carc)) (T nil)) (setq ltp (cdr (assoc 6 ent)) lyr (cdr (assoc 8 ent)) clr (cdr (assoc 62 ent)) lts (cdr (assoc 48 ent)) wid (cdr (assoc 40 ent)) flgs (cdr (assoc 70 ent))) (if (not ltp)(setq ltp "bylayer")) (cond ((= obj "LINE") (setq first (assoc 10 ent) final (assoc 11 ent) ent (subst (cons 10 (cdr final)) first ent) ent (subst (cons 11 (cdr first)) final ent)) (entmod ent)) ((= obj "LWPOLYLINE") (setq final (cdr (assoc 10 (setq ent (reverse ent)))) next (cdr (assoc 10 (cdr (member (assoc 10 ent) ent))))) (prev)) ((= obj "POLYLINE") (setq spl (= (logand flgs 4) 4) cur (= (logand flgs 2) 2) vert (entnext nam)) (if cur (command "_.pedit" p "_s" "")) (while (= (cdr (assoc 0 (entget (setq vert (entnext vert))))) "VERTEX") (setq next final final (cdr (assoc 10 (entget vert))))) (prev)) (T (alert "Not a REVersible object."))) (command "_.undo" "_e") (setvar "cmdecho" cmde) (setvar "blipmode" blip) (setvar "osmode" snap) (setvar "celtscale" ltsc) (setvar "cecolor" cclr) (setvar "plinewid" pwid) (setvar "plinegen" pgen) (setvar "clayer" clyr) (setq *error* olderr) (princ) ) (defun carc () (setq ent (entget (entlast)) nam (cdr (assoc -1 ent)) obj (cdr (assoc 0 ent))) ) (defun prev () (setq a (angle next final) clos (= (logand flgs 1) 1)) (if clos (command "_.pedit" nam "_o" "")) (setq zoomit (null (ssget "c" final final))) (if zoomit (command "_.zoom" "_c" final "")) (if clr (command "_.color" clr)) (if lts (setvar "celtscale" lts)) (setvar "clayer" lyr) ; (setvar "celtype" ltp) (command "_.pline" (polar final a 0.0001) final "" "_.chprop" (entlast) "" "_lt" ltp "" "_.pedit" (entlast) "_j" nam "" "" "_.break" final (polar final a 0.001)) (if cur (command "_.pedit" (entlast) "_f" "")) (if spl (command "_.pedit" (entlast) "_s" "")) (if clos (command "_.pedit" (entlast) "_c" "")) (if wid (command "_.pedit" (entlast) "_w" wid "")) (if zoomit (command "_.zoom" "_p")) ) (alert (strcat "REV.LSP © 1999-2001 Tee Square Graphics\n\n" " Type REV to begin.")) (princ)

salut pour moi les commandes _bpoly et contour sont les memes, le signe : _ devant une commande permet d'utiliser une commande anglaise à la place d' une commande francaise comme LIGNE et _LINE, ou CERCLE et _CIRCLE etc........ à bientot

bonjour à tous apres avoir cherché sur votre forum je me suis apperçu que l'on trouvait des infos sur un utilitaire bibles qui contient des bibliotheques accessibles par menu j'utilise un autre utilitaire developpe par Serge Milles professeur au lycee d' antibes chargeable sur son tres beau site : http://www.smilles.fr.st/ c'est tres facile d' utilisation merci beaucoup à lui salutations

bonjour j'ai trouve sur internet cette commande ^C^Cdeplacer;tout;;0,0,1e99;;deplacer;P;;0,0,-1e99;; qui resout pas mal de pb elle se trouve dans un menu qui se nomme topo_lt2000.mns qui est un programme sympas d'implantation de blocs par des menus images

bonjour pour moi je trouve le site www.afralisp.com tres tres bien mais en anglais seulement

je crois en effet que meme et surtout avec une licence achetée chez un revendeur, il faut a chaque réinstallation légale redemander un code d'activation, l'activation en direct ne marche pas, il faut envoyer un mail ou un fax. Il esxiste parait il des utilitaires tout a fait illegaux qui recalcule ce code pour actocad2005 mais pas pour lt light, mais je n'ai rien dit.