|
Rund um AutoCAD : hierarchische Anordnung der Block-Attribute beim Export
Andreas Kraus am 05.08.2009 um 17:53 Uhr (0)
Hallo kakoin,probier mal diese Lisp.Bei mir gehts, bei dir hoffentlich auch.Erzeugt eine Textdatei die du dann im Excel einlesen kannst.(defun c:get_natt (/ satz ent_name att_list) (defun get_attlist (ent_name / obj_name att_list) (setq obj_name (vlax-ename-vla-object ent_name)) (if (and (vlax-property-available-p obj_name "hasattributes") (= (vla-get-hasattributes obj_name) :vlax-true) ) (progn (setq att_list (mapcar (lambda (obj) (list (vla-get-tagstring obj) (vla-get-textstring obj) ...
| | In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Textstil ändern
Andreas Kraus am 24.02.2012 um 14:11 Uhr (0)
Hallo Horni43,probier mal das Lisp aus. Absolut 100%ig ist es nicht, nur malso runtergetippt, etwas älter, ohne Fehlerbehandlung usw... .Code:(defun c:tformat () (command "_undo" "_be") (setq alt_stil (getstring "alter Textstil : ")) (setq neu_stil (getstring "neuer Textstil : ")) (if (setq satz (ssget ((0 . "TEXT")))) (progn (setq n (1- (sslength satz))) (repeat (sslength satz) (setq ent_name (ssname satz n)) (setq ent_data (entget ent_name));;; Drehwinkel zur Bearbeitung auf 0° (setq w (cdr (assoc 5 ...
| | In das Form Rund um AutoCAD wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |