|
Rund um Autocad : Mittellinie im Kreis
Zec am 28.03.2006 um 09:37 Uhr (0)
hallo,kann diese anwendung auf ein icon legen, bzw in lisp umlegen,so das man es nicht immer hochladen muß.grußzec
|
|
Rund um Autocad : Mittellinie im Kreis
Zec am 28.03.2006 um 12:29 Uhr (0)
Hallo,klappt prima, kann ich gleich den befehl starten, also durch drückendes icons den befehl auslösen.mit (arxload"...");...; hat es nicht funktioniert, vieleicht lisp-technisch (lisp anfänger).mfgzec
|
|
Rund um Autocad : Bemassung in bestimmten Layer
Zec am 25.04.2006 um 12:39 Uhr (0)
wie wäre es mit:(vl-load-com)(defun pre_lay (reatyp befname / );Wenn Bem gestartet wird (cond ((wcmatch (car befname) "_dim*,DIM*") (setq *oldlay* (getvar "CLAYER")) (setvar "CLAYER" "0");Anstatt der 0 den Layer einsetzen, der zum Bemassen genutzt werden soll ) ) )(defun after_lay (reatyp befname / );Wenn Bem beendet wird (cond ((and (wcmatch (car befname) "DIM*") *oldlay* ) (setvar "CLAYER" *oldlay*) (setq *oldlay* nil) ) ) )(defun reaload ();Initialisierung des Reactors (if (not *DEFUN_DI ...
|
|
Rund um Autocad : Rechteck in Bemaßung
Zec am 22.03.2007 um 12:12 Uhr (0)
Hallo Thomas,kann ich dieses Zeichen - " U+25A1 " auch über Lisp einfügen lassen ?wie bei dem Durchmesserzeichen :(vl-load-com)(defun c:setD4pre(/ Auswahl INDEX) (if(or(setq AUSWAHL(ssget "_I" ((0 . "DIMENSION")))) (setq AUSWAHL(ssget ((0 . "DIMENSION")))) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (vla-put-textprefix (vlax-ename-vla-object(ssname AUSWAHL(setq INDEX (1+ INDEX))))" %%c ") ) ) ))GrußZec
|
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
