|
AutoLisp : alternative zu (entget (entlast))
fca_mi2 am 23.05.2004 um 17:01 Uhr (0)
hallo, ich habe folgendes lisp von den afralisp-seiten und schon ein bißchen umgebaut. es kann eine linie gezeichnet werden und immer dann wenn man sie verändert, wird die neue laenge ausgegeben. meine erweiterung zielt nun darauf hinaus, dass immer wenn ich die linie kopiere, der reaktor auch auf die neue linie anspringt. (vl-load-com) ;**************************************************************************** (defun c:ld () (setq acadDocument (vla-get-activedocument (vlax-get-acad-object))) (setq mspa ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : objekt-reaktor
fca_mi2 am 26.11.2003 um 08:59 Uhr (0)
moin, hier mein letzter forschungsstand bezüglich reaktoren : (defun fc_db_zeichnen (pul por /) (vl-load-com) (fc_rechteck pul por 0 1 1.00 continuous ) (princ (entget (entlast))) (setq meinrechteck (list (vlax-ename- vla-object (entlast)))) (fc_text (strcat ( (rtos (car pul)) , (rtos (cadr pul)) ) ) pul 0 2 1.8 standard ) (setq meinrechteck (append meinrechteck (list (vlax-ename- vla-object (entlast))))) (fc_text (strcat ( (rtos (car por)) , (rtos (cadr por)) ) ) por 0 2 1. ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : bemaßungsstil
fca_mi2 am 03.05.2005 um 09:41 Uhr (0)
sorry, hier ist der rest ! ich hoffe, ich habe alles erwischt. (defun c:fc_bemausg (/ textart) (setq lelement (entlast)) (fc_dim 0.18 4) (fc_layer_anlegen (strcat BEM (nth 1 (fc_skalierung_2))) 1 continuous acadiso.lin ) (command bemausg pause pause pause) (if (/= lelement (entlast)) (progn (command ändern l ei layer (strcat bem (nth 1 (fc_skalierung_2))) ) (fc_maßtext_ueberschr (entlast)) (fc_bemreaktor_anhaengen (entlast)) );progn );if ); ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
