|
Lisp : Inhalt eines eingesetzten Kreises löschen
CADmium am 06.12.2006 um 10:33 Uhr (0)
auf die Schnelle:(defun MYCIRCLETRIM(CIRCLE / E1 P1 redraw_it ) (if(and(=(type CIRCLE)ENAME) (=(cdr(assoc 0 (entget CIRCLE)))"CIRCLE") ) (progn (acet-error-init (list (list "cmdecho" 0 "highlight" 0 "regenmode" 1 "osmode" 0 "ucsicon" 0 "offsetdist" 0 "attreq" 0 "plinewid" 0 "plinetype" 1 "gridmode" 0 "celtype" "CONTINUOUS" ...
|
| In das Form Lisp wechseln |
|
Lisp : Dynamische Blöcke
Jan1 am 10.08.2005 um 16:49 Uhr (0)
Hallo Bernhard,Nachfolgend ein kleines Beispiel, wie ein Parameter per LISP geändert werden kann. Ich habe einen Linearen Parameter namens "Laenge" verwendet.(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end if ); end foreach); end defunBsp. für Aufruf:(setPrope ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Set_by_layer.lsp
CADmium am 06.08.2004 um 09:32 Uhr (0)
Freut, mich, dass dir das Lisp gefällt und gute dienste leistet um den Linientyp nicht mehr zu verstellen äneder folgende Zeile: (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) ENAME) ; Parameter o.k. ? (progn (setq OBJEKTDATEN (entget OBJEKT)) ; Objektdaten auslesen (if (assoc 8 OBJEKTDATEN) (progn (if (=(strcase(cdr(assoc 0 OBJEKT ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Reihe erzeugen mit linien
CADmium am 02.03.2007 um 09:55 Uhr (0)
die command-aufrufe mal in der Befehlszeile durchgespielt? ....dann hättest du gemerkt, das der Befehl Reihe keine Objektliste, sondern einen Auswahlsatz als Parameter möchte..ich hab deinen Code mal so interpretiert :(if(setq startxy (getpoint "
startxy:")) (progn (command "_line" (mapcar - startxy (2.5 0 0))(mapcar + startxy (2.5 0 0)) "") (setq liniehor (entlast)) (command "_line" (mapcar - startxy (0 2.5 0))(mapcar + startxy (0 2.5 0)) "") (setq liniever (entlast)) (setq KREUZ (ssadd liniehor)) ...
|
| In das Form Lisp wechseln |
|
Lisp : CADCAL + CALScript - neue kostenfreie Version bis Ende 2026 lauffähig
archtools am 31.12.2025 um 12:45 Uhr (1)
Eine neue, bis Ende 2026 befristet lauffähige Version von CADCAL und CALScript steht ab sofort unter https://www.calscript.com/home.html zum Download bereit.CADCAL bringt die volle Funktionalität (und mehr) von Autodesks GeomCAL Tool auch für BricsCAD. CADCAL hat außerdem einen dialoggesteuerten DDCAL Befehl, über den auch die History der CAL Befehlsaufrufe und deren Ergebnisse in der DWG gespeichert wird und über Zeichnungssitzungen hinaus erneut aufrufbar sind.CALScript ist ein Werkzeug für Rapid Prototy ...
|
| In das Form Lisp wechseln |
|
Lisp : Abfrage beim Insert ob Block dynamisch
cadffm am 09.09.2013 um 23:06 Uhr (1)
Zitat:Leider kann ich nicht durchschauen, was passiert beim insert-Aufruf.Ich könnte jetzt nur den Weg gehen, mir den Block blanko einfügen zu lassen und anschliessend die Attribute zu manipulieren. Wieso kannst du das nicht ? Befehl: _Insert .... machen/testen = Wissen. Aus erster Hand.Zudem sind Funktionen rund um Blöcke am meisten diskutiert und auch dokumentiert, man mußsich halt nur mal rann setzen.Wenn man eine DWG als Block einfügt, dann wird zunächst eine Blockdefinition erstellt (oder neu definier ...
|
| In das Form Lisp wechseln |
|
Lisp : kreuzende linien überbrücken - etechnik
marc.scherer am 06.03.2007 um 10:30 Uhr (0)
Zitat:Original erstellt von tappenbeck:...ein tool kenne bei dem zwei sich kreuzende linien gewählt werden und dann die eine "über" die andere durch einen bogen geführt wird.Witzigerweise ist das genau die Aufgabenstellung die ich mit meinem ERSTEN Lisp Programm lösen wollte ;-).Leider finde ich die Originalversion nicht mehr, sondern nur die bereits mit nem Errorhandler versehene "weiterentwickelte"...Code:(defun c:bbog (/ ALT_CMD ALT_COL ALT_ERROR ALT_LAYER ALT_LINEW ALT_LINTYPE ALT_OS BB ...
|
| In das Form Lisp wechseln |
|
Lisp : CADCAL: letzte Betaversion vor Release
archtools am 23.07.2024 um 21:27 Uhr (1)
Hallo,die neue CADCAL Version inkl CALScript ist praktisch fertig. Alle vorgesehenen Funktionen sind implementiert und funktionieren in den bisherigen Tests tadellos. Deshalb beginnt jetzt auch schon die Versionierung mit "Version 1.0 Beta". Noch ein paar Wochen weitere Tests, die ich für ein Manual und den Aufbau einer Website nutzen werde.CADCAL ist kostenfrei, es liegt diesem Beitrag als ZIP Datei bei, oder kann von www.cadcal.de/cadcal.zip herunter geladen werden. Die Installation ist im Grunde so einf ...
|
| In das Form Lisp wechseln |
|
Lisp : Parameter mittels Lisp festlegen
Proxy am 10.07.2007 um 07:43 Uhr (0)
Was genau verstehst du bzw funktioniert für dich an diesem Beitrag nicht ?Es ist sogar ein Syntaxbeispiel zum Starten dabei: Zitat:(setProperty (vlax-ename-vla-object (car (entsel))) "Laenge" 200.0)Wenn du überhaupt nicht damit klar kommst, lade deinen dynamischen Block hoch damit die Namen der Parameter uns bekannt werden.------------------ MfG ProxyBitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigke ...
|
| In das Form Lisp wechseln |
|
Lisp : Dynamische Parameter in Blockdefinitionen ändern
Andreas Kraus am 03.07.2013 um 12:14 Uhr (0)
Nö,da gehts ja darum die dynamischen Parameter eines Inserts zu ändern.Ich möchte (muss) die Parameter und Aktionen in der Blockdefinition ändern.Ein vlax-dump-object mit so einem Parameter hat mir auch nix gebracht.Da steht zwar alles drin was ich so zum Ändern brauche, aber ohne Anklicken find ich die Parameter immer noch nicht.Die Frage ist : wo sind die versteckt ?------------------Geht nicht, gibts nichtGrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
|
AutoLisp : Mal wieder OT...
Tigrar am 30.11.2005 um 13:38 Uhr (0)
Hallo Axel!Lass die Ohren nicht hängen! Heutzutage ist die Medizin recht weit. Und ich hoffe inständig das Du keinen Rollstuhl brauchen wirst weil der Krebs ohne besiegt wird. Wenn ich Deine Addy bekomme gibt es auch eine Karte.GrußTim------------------ Viel Glück!Bei CATIA ist Glück nie verkehrt...Ob V4 oder V5 ist egal P.S.: ProE ist auch nicht besser!
|
| In das Form AutoLisp wechseln |
|
Lisp : Liste
archtools am 09.11.2009 um 22:24 Uhr (0)
Zitat:Original erstellt von CADmium:naja.. den Ansatz finde ich nicht so doll, aber sei es drum :(progn(setq PARAMETER( "M" "Layer2" "FA" "1" "Layer2"))(command ".-Layer")(foreach PAR PARAMETER (command PAR))(while (/= 0 (getvar "CMDACTIVE"))(command)))oder (progn(setq PARAMETER( "M" "Layer4" "FA" "3" "Layer4"))(eval(append (list command) (list ".-Layer")PARAMETER))(while (/= 0 (getvar "CMDACTIVE"))(command)))... oder:(apply command (cons "._layer" PARAMETER))
|
| In das Form Lisp wechseln |
|
Lisp : Ursprünglichen Basispunkt ermitteln
Andreas Kraus am 16.11.2009 um 10:42 Uhr (0)
Hallo zusammen,ich hab einen dynamischen Block mit einem Basispunkt-Parameter. Kann man irgendwie rausbekommen wo der ursprüngliche Basispunkt ist ? Also wo der Basispunkt des Blockes wäre wenn es keinen Basispunkt-Parameter gäbe ?Ach ja - den Basispunkt-Parameter hab ich natürlich schon verschoben.------------------GrußAndreashttp://kraus-cad.de
|
| In das Form Lisp wechseln |
