| |
| Gut zu wissen: DraftSight - Warum hat ein 2D-CAD System einen solchen Erfolg? |
Autor
|
Thema: LISP funktioniert bei manchen Nutzern nicht mehr (1630 mal gelesen)
|
SNOOP_69 Mitglied Konstrukteur - Innenausbau
Beiträge: 539 Registriert: 25.01.2006 Hardware: - Lenovo-W540 Software: - Win10 Pro 64bit - Autocad 2018-2020 (Vollversion+LT) - BricsCad - DraftSight - SolidWorks 2017-2019 - SWOOD 2019 - MasterCAM 2018-2019
|
erstellt am: 13. Jun. 2016 15:53 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, hat jemand eine Erklärung warum folgendes Werkzeug: Code: (defun C:POLY-BOX (/ AUSWAHL INDEX ELEM XYMIN XYMAX MINX MAXX MINY MAXY DATA A) (vl-load-com) (if(and(or (and (setq AUSWAHL (ssget "I")) (> (sslength AUSWAHL) 0)) (and (setq AUSWAHL (ssget)) (> (sslength AUSWAHL) 0)) ) (or(setq A (getreal "\nRandabstand <0> : ")) (setq A 0.0) ) ) (progn (setq INDEX -1) (repeat (sslength AUSWAHL) (vla-getboundingbox (vlax-ename->vla-object (ssname AUSWAHL (setq INDEX (1+ INDEX))) ) 'XYMIN 'XYMAX ) (setq DATA (cons (list (vlax-safearray->list XYMIN) (vlax-safearray->list XYMAX) ) DATA ) ) ) (setq MINX (-(eval (cons 'min (mapcar 'caar DATA)))A)) (setq MINY (-(eval (cons 'min (mapcar 'cadar DATA)))A)) (setq MAXX (+(eval (cons 'max (mapcar 'caadr DATA)))A)) (setq MAXY (+(eval (cons 'max (mapcar 'cadadr DATA)))A)) (vla-AddLightweightPolyline (if(=(vla-get-activespace(vla-get-activedocument(vlax-get-acad-object))) acModelSpace ) (vla-get-modelspace(vla-get-activedocument(vlax-get-acad-object))) (vla-get-paperspace(vla-get-activedocument(vlax-get-acad-object))) ) (vlax-safearray-fill (vlax-make-safearray vlax-vbdouble (cons 0 9)) (list MINX MINY MAXX MINY MAXX MAXY MINX MAXY MINX MINY ) ) ) ) ) (princ) )
Quelle: unbekannt Das Tool zeichnet das kleinst-mögliche Rechteck um eine Kontur (bei Eingabe auch mit einem Abstand zur Kontur). bei einigen meiner User nicht mehr funktioniert? Es war quasi ein schleichender Prozess (meine erste Vermutung waren Windows-Updates!) aber komischer Weise tritt der Fehler nicht bei allen auf und alle hängen im gleichen Netzwerk mit 64bit Win7 und haben die gleichen Updates installiert!! Das Tool steigt mit folgender Fehlermeldung aus:
Code: ; Fehler: no function definition: VLAX-ENAME ->VLA-OBJECT
Danke für Eure Tips schon im Voraus! PS: diesen Beitrag hier http://forum.cad.de/foren/ubb/Forum54/HTML/032042.shtml hatte ich bereits gesehen...aber am Profil scheint es nicht zu liegen! [Diese Nachricht wurde von SNOOP_69 am 13. Jun. 2016 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2019/2020 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA Quadro P2000
|
erstellt am: 13. Jun. 2016 16:04 <-- editieren / zitieren --> Unities abgeben: Nur für SNOOP_69
|
SNOOP_69 Mitglied Konstrukteur - Innenausbau
Beiträge: 539 Registriert: 25.01.2006 Hardware: - Lenovo-W540 Software: - Win10 Pro 64bit - Autocad 2018-2020 (Vollversion+LT) - BricsCad - DraftSight - SolidWorks 2017-2019 - SWOOD 2019 - MasterCAM 2018-2019
|
erstellt am: 13. Jun. 2016 16:30 <-- editieren / zitieren --> Unities abgeben:
|
scoubie Mitglied Techniker
Beiträge: 384 Registriert: 26.07.2010
|
erstellt am: 13. Jun. 2016 17:20 <-- editieren / zitieren --> Unities abgeben: Nur für SNOOP_69
Servus Bernd, Zitat: Original erstellt von bbernd: ich dachte Lisp geht in DS nicht.
doch, aber nur in der Professional Version .
------------------ Mit freundlichen Grüßen Martin ____________________________ Systeminfo: [Windows 7 64bit, 8GB RAM, NVIDIA Quadro FX2800M 1GB] | [SolidWorks 2014 SP5.0] | [DraftSight Professional 2016 SP1] | [SpaceClaim 2015 SP0] | [SolidEdge ST6] | [Onshape] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
..... Mitglied
Beiträge: 433 Registriert: 01.07.2011
|
erstellt am: 13. Jun. 2016 17:31 <-- editieren / zitieren --> Unities abgeben: Nur für SNOOP_69
>> hier << geht's für die Interessierten weiter PS: Die (vl-load-com)-Anweisung hast Du spaßeshalber bereits voran gestellt? PPS: INTERNETADRESSEHIER bedeutet, dass man dort die URL eintragen soll aber manchmal zickt ja auch die Forensoftware, daher Tipp: benutzt immer die ubb-tags, damit stolpert die automatische Umwandlung nicht so sehr
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bbernd Mitglied Technischer Zeichner / Zimmerermeister
Beiträge: 1467 Registriert: 20.02.2009 AutoCAD 2019/2020 Gimp 2.10 Windows10 64bit 64 GB Arbeitsspeicher NVIDIA Quadro P2000
|
erstellt am: 13. Jun. 2016 17:52 <-- editieren / zitieren --> Unities abgeben: Nur für SNOOP_69
Zitat: Original erstellt von scoubie:
doch, aber nur in der Professional Version .
Hallo Martin, klar in der Por. Ver. aber reden wir hier nicht über die Free Ver. oder über beide? ------------------ Gruß Bernd Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 13. Jun. 2016 18:01 <-- editieren / zitieren --> Unities abgeben: Nur für SNOOP_69
1. redet er von AutoCAD und hat sich vermacht 2. reden wir hier natürlich von beiden Versionen! Oder willst du dafür ein Extra-Forum eröffnen? Sofern nicht anders angegeben gehen wir von der FREE aus ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
scoubie Mitglied Techniker
Beiträge: 384 Registriert: 26.07.2010
|
erstellt am: 13. Jun. 2016 18:52 <-- editieren / zitieren --> Unities abgeben: Nur für SNOOP_69
Zitat: Original erstellt von cadffm: Sofern nicht anders angegeben gehen wir von der FREE aus
Volle Zustimmung!
@Bernd: wollte Nur meine Freude zum Ausdruck bringen. Ein paar Funktionen in der Prof. Version sind schon klasse.
------------------ Mit freundlichen Grüßen Martin ____________________________ Systeminfo: [Windows 7 64bit, 8GB RAM, NVIDIA Quadro FX2800M 1GB] | [SolidWorks 2014 SP5.0] | [DraftSight Professional 2016 SP1] | [SpaceClaim 2015 SP0] | [SolidEdge ST6] | [Onshape] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |