lisp2arx
Visual Programming for AutoLisp Mathématiques en programmation Lisp.. doc2cpp,doc2lsp, sld2lsp, bmp2dcl, free__GifCcapture for all-CAD'platforms.. 		Lista Forumurilor Pe Tematici
lisp2arx | Reguli | Inregistrare | Login

POZE LISP2ARX

Nu sunteti logat. 		Nou pe simpatie:
Laura Petrei
Femeie
24 ani
Braila
cauta Barbat
27 - 65 ani
lisp2arx / Listof AutoLisp.100 / vla-AutoLispR14=Add Text Sufix TP=0 pentru Cadastru Moderat de zauchan
Autor
Mesaj Pagini: 1
zauchan
Moderator

Inregistrat: acum 14 ani
Postari: 180


Code:

(Defun C:Q0 (/ ss count tnum entlst ntxt modent)
  (setq ss (ssget '((0 . "TEXT"))))
  (if ss
    (progn (setq count 0
         tnum  (sslength ss)
       ) ;_ end of setq
       (while (< count tnum)
         (setq entlst (entget (ssname ss count))
           ntxt      (strcat "NC" (cdr (assoc 1 entlst)) "- TP=0")
           modent (subst (cons 1 ntxt) (assoc 1 entlst) entlst)
           count (1+ count)
         ) ;_ end of setq
         (entmod modent)
       )
    ) ;_ end of progn
    (prompt "\nNo entities selected to change!")
  ) ;_ end of if
  rr
)



_______________________________________
psw: cea de la wjndowsXP gigabyte..
pus acum 5 ani
   
Pagini: 1  

Mergi la