|
Autocad VBA : Blöcke auslesen
fuchsi am 27.09.2004 um 14:35 Uhr (0)
schau dir mal in der VBA Hilfe den bereich SelectionSets durch. hier kannst du direkt nach blöcken (INSERT) suchen , deren namen mit R-ST_* beginnen und die attribute haben. in lisp wäre das so (ssget X (list (cons 0 INSERT ) (cons 2 R_ST_* ) (cons 66 1)) die suchschlüssel sind da in VBA ident 0.. elemnttyp (INSERT) 2.. elementname (R_ST_* mit Wildcards möglich) 66.. hat attribute (1) musst dir halt nur die beispiele anschauen, und nach deinen suchkriterien abändern. ------------------ WWW.FFZELL.A ...
|
| In das Form Autocad VBA wechseln |
|
Lisp : Layer umschalten bei der Bemassung
fuchsi am 27.10.2004 um 10:33 Uhr (0)
ich vermute eher , dass das reaktor lisp auf abruch mit ESC nicht reagiert, da der :vlr-commandEnded aber nicht der :vlr-commandCancelled eingebaut ist. d.h. beim abbruch mit ESC wird der originale Layer nicht wieder zurückgestellt.(defun reaload ();Initialisierung des Reactors (if (not *DEFUN_DIMLAYER*) (progn (setq *DEFUN_DIMLAYER* (VLR-Command-Reactor "*DEFUN_DIMLAYER*" ((:vlr-commandEnded . after_lay) (:vlrcommandCancelled . after_lay) (:vlr-commandwillstart . pre_lay) ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Layer Icon
fuchsi am 11.12.2003 um 10:16 Uhr (0)
du gibst folgendes lisp in eine datei, und schaust, dass es beim start automatisch geladen wird dann gibst du in einem werkzeugkasten folgenden befehlscode ^c^c(LayOnOff MeinLayerame ) bei jedem click auf den werkzeugkasten , wird der layer entweder getaut oder gefroren (defun LayOnOff (layer / lay ) (cond ((setq lay (tblsearch LAYER layer)) (if (= (cdr (assoc 70 lay)) 0) (command _LAYER _FR layer ) (command _LAYER _TH layer ) ) ) ) ) ------------------
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : action_tile
fuchsi am 16.12.2003 um 13:03 Uhr (0)
noch ein tipp ich würde die 3 unterprogramme x-einfueg y-einfueg und z-einfueg zusammenlegen auf ein programm in etwa so (action_tile DCLEdit1 (einfueg $REASON $value $key) ) (action_tile DCLEdit2 (einfueg $REASON $value $key) ) (action_tile DCLEdit3 (einfueg $REASON $value $key) ) und zum testen (defun einfueg ( wie wert wer / ) (print wie) (print wert) (print wer) ) mit $REASON bekommst du wie der event zustandekam mit $VALUE bekommst du den inhalt des eingabefeldes mit $KEY bekommst du w ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlswiederholung (ODCL)
fuchsi am 20.10.2004 um 15:02 Uhr (0)
da du im clickevent des buttons nur lispausdrücke reingeben kannst, wirst du das so nicht hinkriegen ich nehm mal an du hast den programmaufruf so drin (c:test), da kannst du aber keine begfehlswiederholung machen leider erkennt (command test ) keinerlei c: lisp-programme ein umweg wäre dieser (vlax-invoke (VLA-GET-ACTIVEDOCUMENT (vlax-get-acad-object)) sendcommand test ) wobai das test das c: programm ist (defun c:test (/) ...) da funktioniert die befehlswiederholung, da ja die methode sendcomman ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Objekt Auswahl
fuchsi am 05.11.2003 um 10:00 Uhr (0)
warum macht ihr das mit VBA ? da ist mir die sache mit der objektwahl viel zu kompliziert. das geht mit lisp doch viel einfacher kleines beispiel neuer befehl RED um beliebige elemnte rot einzufärben (defun c:red (/) (setq ss (ssget)) (if ss (command ._chprop ss _color _red )) ) sind objekte gewählt und ich tippe RED ein , so übernimmt (ssget) diesen impliziten auswahlsatz, und die objkte werden automatisch rot. sind keine objekte gewählt, so bleit (SSGET) stehen und fragt nach objekten ---- ...
|
| In das Form Rund um Autocad wechseln |
|
Autocad VBA : Liegt der Punkt auf der Linie
fuchsi am 12.11.2004 um 10:58 Uhr (0)
ab der 2005 gibts ne typelibrary für lisp hab das im inet gefunden , kanns leider nicht testen (momentan keine 2005er) If Me.Application.Version = 16.0 Then Set VLisp = ThisDrawing.Application.GetInterfaceObject( VL.Application.16 ) Else Set VLisp = ThisDrawing.Application.GetInterfaceObject( VL.Application.1 ) End If Set VLispFunc = VLisp.ActiveDocument.Functions Set obj1 = VLispFunc.Item( read ).funcall( (vl-princ-to-string (assoc pDXF (entget (handent pHandle)))) ) varRetVal = VLispFunc.Item( eval ) ...
|
| In das Form Autocad VBA wechseln |
|
AutoLisp : Tipp: ordner dialog
fuchsi am 14.01.2004 um 10:28 Uhr (0)
oft benötigt man keinen dateiauswahldialog, sondern nur eine auswahl eines ordners, da gibts in lisp keinen standard befehl ich mach das so (defun BrowseForFolder ( text / ret y ) (setq y (vlax-get-or-create-object shell.application )) (if (setq ret (vlax-invoke y BrowseForFolder 0 text 1)) (setq ret (vlax-get (vlax-get ret Self ) Path ))) (vlax-release-object y) ret ) der aufruf lautet dann so (BrowseForFolder bitte geben sie einen ordner an ) rückgabe wert ist entweder der gewählte o ...
|
| In das Form AutoLisp wechseln |
|
Autocad VBA : Datei bearbeiten ohne öffnen ???
fuchsi am 20.11.2003 um 09:00 Uhr (0)
google mal nach ObjectDBX.AxDbDocument auf dieser seite wird erklärt, wie man von einer externen zeichnung definierte views in die eigene zeichnung kompoiert, ohne diese sichtbar zu öffnen. ist zwar lisp, funktioniert aber auch mit VB http://www.visuallisp-tutorial.mapcar.net/importviews.html ------------------ *********************************************** AutoCad 2000i, 2002, 2004 deutsch und englisch Windows 2000, NT, XP
|
| In das Form Autocad VBA wechseln |
|
Rund um AutoCAD : Blöcke zählen
fuchsi am 12.11.2003 um 13:20 Uhr (0)
habs mal schnell in lisp ausprogrammiertzählt die gleichnamigen blöcke zusammen, schreibts in eine datei und öffnet diese mit notepad(defun c:blocklist ( / liste ss i1 n1) (setq ss (ssget "X" (list (cons 0 "INSERT"))) i1 0) (repeat (sslength ss) (setq blname (cdr (assoc 2 (entget (ssname ss i1)))) i1 (1+ i1)) (if (assoc blname liste) (setq liste (subst (cons blname (1+ (cdr (assoc blname liste)))) (assoc blname liste) liste)) (setq liste (cons (cons blname 1) liste)) ) ) (setq x (open "c: empcount.t ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : MLI DateiBeschreibung
fuchsi am 08.01.2004 um 16:04 Uhr (0)
Hallo ! hat zwar nicht wirklich was mit lisp zu tun, aber hier sind ja die meisten acad-programmierer zu hause. hat jemand eine datei-beschreibung der MLI files habe inzwischen schon einiges selbst gefunden der aufbau ist mehr oder weniger in sog. chunks struktriert ein chunk besteht aus einem WORD mit der chunk-id , einem DWORD mit der Länge in Byte eventuell Unter -chunks und dem eigentlichem Wert ich kenne auch die meisten chunks mittlerweise A000 Material Name A010 RGB-Wert Umgebungsfarbe A020 RGB-Wer ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : R12 für DOS Startet nicht! :-( Need Help!
fuchsi am 11.12.2003 um 12:31 Uhr (0)
also ich verstehs jetzt auch so, dass acad hochläuft, du aber nur die befehlseingabe hast.kann mich dunke, errinnern, dass bei uns acad12 auf 2 bildschirmen lief. im DOS-Hauptmonitor war die befehlseingabe und in einem 2. monitor war der graphikbereich.probier mal mit F12 zwischen graphik-schirm und eingabe-schirm zu wechseln.bzw. vielleicht hast du ja eine graphikkarte mit 2 ausgängen drin. und autocad will autom. im 2 bildschirmmodus starten.da du aber keinen 2. bildschirm dran hast, sieste den graphikbe ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : 8 stellige Zahl soll 4stellig werden, wie?
fuchsi am 09.01.2004 um 13:38 Uhr (0)
geht mit einem kleinem lisp das sucht alle texte in der zeichnung , und schneidet sie auf die letzten 4 stellen ab (defun c:SplitText (/) (setq ss (ssget X (list (cons 0 TEXT ))) i 0) (repeat (sslength ss) (setq ename (ssname ss i) i (1+ i) edate (entget ename) text (cdr (assoc 1 edate)) ) (entmod (subst (cons 1 (padl text 4 )) (assoc 1 edate) edate)) ) ) ;------------------------------------------------------------------------------ ; Auffüllen einer Zeichenkette mit ...
|
| In das Form Rund um Autocad wechseln |
