Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  DraftSight 2D
  LISP funktioniert bei manchen Nutzern nicht mehr

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von SNOOP_69 an!   Senden Sie eine Private Message an SNOOP_69  Schreiben Sie einen Gästebucheintrag für SNOOP_69

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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


Sehen Sie sich das Profil von bbernd an!   Senden Sie eine Private Message an bbernd  Schreiben Sie einen Gästebucheintrag für bbernd

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für SNOOP_69 10 Unities + Antwort hilfreich

Hallo SNOOP_69,

ich dachte Lisp geht in DS nicht.

------------------
Gruß Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

SNOOP_69
Mitglied
Konstrukteur - Innenausbau


Sehen Sie sich das Profil von SNOOP_69 an!   Senden Sie eine Private Message an SNOOP_69  Schreiben Sie einen Gästebucheintrag für SNOOP_69

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

aaaaaaaaaaahhhhhhhhhhhh.............falsches Forum...........sorry!     

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

scoubie
Mitglied
Techniker


Sehen Sie sich das Profil von scoubie an!   Senden Sie eine Private Message an scoubie  Schreiben Sie einen Gästebucheintrag für scoubie

Beiträge: 384
Registriert: 26.07.2010

erstellt am: 13. Jun. 2016 17:20    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für SNOOP_69 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von ..... an!   Senden Sie eine Private Message an .....  Schreiben Sie einen Gästebucheintrag für .....

Beiträge: 433
Registriert: 01.07.2011

erstellt am: 13. Jun. 2016 17:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für SNOOP_69 10 Unities + Antwort hilfreich

>> 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


Sehen Sie sich das Profil von bbernd an!   Senden Sie eine Private Message an bbernd  Schreiben Sie einen Gästebucheintrag für bbernd

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für SNOOP_69 10 Unities + Antwort hilfreich

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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

System: F1
und Google

erstellt am: 13. Jun. 2016 18:01    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für SNOOP_69 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von scoubie an!   Senden Sie eine Private Message an scoubie  Schreiben Sie einen Gästebucheintrag für scoubie

Beiträge: 384
Registriert: 26.07.2010

erstellt am: 13. Jun. 2016 18:52    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für SNOOP_69 10 Unities + Antwort hilfreich

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz