suchen-ersetzen

Fragen und Anmerkungen zu den Lispprogrammen von CADwiesel
Antworten
Benutzeravatar
CADwiesel
Administrator
Beiträge: 488
Registriert: Mo 11. Jun 2018, 13:07
Kontaktdaten:

suchen-ersetzen

Beitrag von CADwiesel » Do 3. Feb 2005, 13:03

Code: Alles auswählen

(defun C:su_er ( / )
  (if (setq as(ssget "_X" '((0 . "MTEXT"))))
    (mapcar '(lambda (x)
               (setq elem(entget x))
               (if(wcmatch(cdr(assoc 1 elem))"*\\S*")
               (cond
                 ((equal (substr(cdr(assoc 1 elem))1 3)"\\A2")
                 (setq elem(subst (cons 1 (strcat "\\A1"(substr(cdr(assoc 1 elem))4)))(assoc 1 elem)elem))
                 (entmod elem)
                 )
                 (T
                 (setq elem(subst (cons 1 (strcat "\\A1;"(cdr(assoc 1 elem))))(assoc 1 elem)elem))
                 (entmod elem)
                 )
                 )
               )
               )
    (bau_elemli as)
    )
    )
  )
      (defun bau_elemli (asatz / n elemli)
  (setq n 0)
  (repeat (sslength asatz)
    (setq elemli (cons (ssname asatz n) elemli)
          n      (1+ n)
          ) ;_ end of setq
    ) ;_ end of repeat
  elemli
  ) ;_ end of defun
Gruß
BildCADwiesel
Besucht uns im CHAT

Antworten