| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: dimaligned mit Lisp-Erstellen (1567 mal gelesen)
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Sep. 2009 17:16 <-- editieren / zitieren --> Unities abgeben:
Moin ! ich möchte mit Lisp ein Bemassungselement erstellen - leider bisher ohne Erfolgt. Wenn ich (command "_dimaligned" p1 p2 p_ausr) absetze kommt nichts. Wenn ich mit Setq p1, p2 und P_ausr mit Koord. belege dann funktioniert das an der Befehlszeile. Liegt hier ein Sonderfall der Anwendung vor und kann mir jemand helfen ?? PS: Bevor einer nörgelt - die Suche funktioniert derzeit nicht ! Gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 19. Sep. 2009 17:30 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hi Jan, Keine Ahnung wo das Problem liegen soll... (defun c:test (/ p1 p2 p3) (setq p1 (getpoint)) (setq p2 (getpoint)) (setq p3 (getpoint)) (command "_dimaligned" p1 p2 p3) )
------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Cadzia Ehrenmitglied V.I.P. h.c. CAD/Grafik-Dienstleister
Beiträge: 2917 Registriert: 02.07.2004
|
erstellt am: 19. Sep. 2009 18:55 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 19. Sep. 2009 19:12 <-- editieren / zitieren --> Unities abgeben:
hi ! danke - ich hatte es wie gesagt über eine Zeile am Prompt erfolglos versucht. Gut so und recht herzlichen dank ! @Karin: die habe ich gar nicht mehr auf dem Zettel ! Gruß Jan :-) ------------------ jan :-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 22. Sep. 2009 08:11 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hallo Jan, und wenn du es wirklich in Lisp mach möchtest ohne auf ein Command zurückzugreifen, dann sollte es hiermit gehen:
Code: (defun entmakeDimLinear (p1 p2 TXT EBENE STIL LAYER COLOR) ;(entmakeDimLinear (getpoint"\nErster Punkt: ")(getpoint"\nZweiter Punkt: ") "MAß: <>" '(0.7 . 1)"STANDARD" "0" nil) ;RETURN Bemaßungsobjekt [ENAME] ; nil, wenn nicht erzeugt ;p1 Bempunkt 1 [POINT-3D] ;p2 Bempunkt 2 [POINT-3D] ;txt Bemaßungstext Text [STRING] ;EBENE '(ABSTAND . POSITIONSEBENE) '([REAL] . [INTEGER]) ;STIL Bemaßungsstil [STRING] ;LAYER BEMA?UNGSLAYER [STRING] ;COLOR Farbe [INT] (defun Is3DPoint? (P) (and P (= 'LIST (type P)) (or (= 'REAL (type (car P))) (= 'INT (type (car P))) ) (or (= 'REAL (type (cadr P))) (= 'INT (type (cadr P))) ) (or (= 'REAL (type (caddr P))) (= 'INT (type (caddr P))) ) ) ) (if (and (Is3DPoint? p1)(Is3DPoint? p2) (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (cons 8 (if (and LAYER (= 'STR(type LAYER))(tblobjname "LAYER" LAYER))LAYER (getvar "CLAYER")));sonst CLAYER (cons 62 (if (and COLOR (= 'INT (type COLOR)))COLOR 256));sonst VONLAYER '(100 . "AcDbDimension") (if (and EBENE (= 'LIST (type EBENE)) (car EBENE)(or (= 'REAL (type (car EBENE)))(= 'INT (type (car EBENE))))(/= (car EBENE) 0.0) (cdr EBENE)(or (= 'REAL (type (cdr EBENE)))(= 'INT (type (cdr EBENE))))(/= (cdr EBENE) 0.0) ) (cons 10 (polar p2 (+ (angle p1 p2) (/ pi 2.0)) (* (car EBENE) (cdr EBENE)))) (cons 10 p2) ) '(12 0.0 0.0 0.0) '(70 . 33) (cons 1 (if (and TXT (= 'STR(type TXT)))TXT "")) '(71 . 5) '(72 . 1) '(41 . 1.0) '(73 . 0) '(74 . 0) '(75 . 0) '(52 . 0.0) '(53 . 0.0) '(54 . 0.0) '(51 . 0.0) '(210 0.0 0.0 1.0) (cons 3 (if (and STIL (= 'STR(type STIL))(tblobjname "DIMSTYLE" STIL))STIL (getvar "DIMSTYLE"))) '(100 . "AcDbAlignedDimension") (cons 13 p1) (cons 14 p2) '(15 0.0 0.0 0.0) '(16 0.0 0.0 0.0) '(40 . 0.0) '(50 . 0.0) ) ) ) (entlast) ) )
Noch ein Hinweis: Wenn man nicht weiß welche Elemente die Entmake-Liste enthalten soll, dann erzeugt man sich einfach mit den bekannten AutoCAD-Befehlen ein solches Element und analysiert die Zusammensetzung mit (entget(car(entsel))). Die Rückgabe entspricht der entmake-Liste, welche dann wie im obigen Beispiel zu sehen variabel gestaltet werden kann. Die einem Element festzugeordneten Elemente mit den Gruppencode -1(Elementname) und 5(Handle) müssen immer entfernt werden, da AutoCAD diese bei der Erzeugung vergibt. Bei Fragen ...
Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tappenbeck Mitglied Vermessungsingenieur
Beiträge: 1217 Registriert: 30.05.2002 AutoCAD (Map)2019, Topobase, MapEdit, Lisp, .vb.net
|
erstellt am: 22. Sep. 2009 08:27 <-- editieren / zitieren --> Unities abgeben:
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Sep. 2009 08:39 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Zitat: Original erstellt von tappenbeck: hallo holger,vielen dank für das ausführliche beispiel - aber assoz. ist die bemassung damit sicherlich nicht ?!?! Gruß Jan .-)
nein.. dafür müßte sie mit dem Objekt verknüft sein ... da reicht eine Koordinate als Parameter nicht aus .... mach dir mal ne assoc-Bemaßung und guck dir die GC liste mit (entget(car(entsel))'("*"))an ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Moderator CAD on demand GmbH
Beiträge: 4187 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools (d-tools.eu)
|
erstellt am: 22. Sep. 2009 12:11 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Zitat: Original erstellt von tappenbeck: ...aber assoz. ist die bemassung damit sicherlich nicht ?!?!
... das ist in deiner Aufgabenstellung auch so nicht ersichtlich, dass dies der Fall hätte sein sollen. Assoziativ ist die Bemaßung jedoch in dem Sinne, dass die Maßzahl die exakte Länge der Bemaßten Strecke ausgibt, sofern als Text "" oder "...<>..." angegeben wird. Bei Fragen ... Grüße Holger ------------------ Holger Brischke CAD on demand GmbH Individuelle Lösungen von Heute auf Morgen. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
gerhard123 Mitglied techn.Angestellter
Beiträge: 151 Registriert: 29.11.2007
|
erstellt am: 22. Sep. 2009 12:47 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Hallo, ich hab es jetzt mit Lisp versucht (set p1 (list 0 0 0)) ;1.Punkt für Bemassung (set p2 (list 100 0 0)) ;2.Punkt für Bemassung (set p3 (list 50 50 0)) ;3.Punkt Wo die Bemassungslinie leigen soll (command "_dimaligned" p1 p2 p3) mfg Gerhard Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
archtools Mitglied
Beiträge: 965 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 22. Sep. 2009 13:35 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
|
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 .
|
erstellt am: 22. Sep. 2009 13:46 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
na ok , wenn wir schon bei Feinheiten sind : (defun DT:IS-POINT? ( PKT ) (if(=(type PKT)'VARIANT) (setq PKT (vlax-variant-value PKT))) (if(=(type PKT)'SAFEARRAY)(setq PKT (vlax-safearray->list PKT))) (if(and(=(type PKT)'LIST) (vl-every 'numberp PKT) ) (cond ((= 2 (vl-list-length PKT)) (list(car PKT)(cadr PKT) 0.0)) ((= 3 (vl-list-length PKT)) PKT) ) ) ) Das mit dem Variant und safearray erübrigt sich hier zwar , aber der Vollständigkeit halber .. ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
archtools Mitglied
Beiträge: 965 Registriert: 09.10.2004 Entwickler für AutoCAD, BricsCAD u.a., alle Systeme
|
erstellt am: 22. Sep. 2009 14:07 <-- editieren / zitieren --> Unities abgeben: Nur für tappenbeck
Zitat:
(vl-every 'numberp PKT)
Das bringt mich auf ein interessantes Thema. Autodesk hatte vor gut 10 Jahren nach dem Ankauf von VitalLISP und der Umbenennung in VisualLISP mal öffentlich verlautbart, dass man VisualLISP in Richtung Common Lisp weiter entwickeln würde. Das einzige, was daraus geworden ist, ist die Implementierung einiger in Common Lisp vorhandener Funktionen wie EVERY, SOME usw., die garantiert auch schon damals jeder halbwegs professionelle Programmierer in seiner Funktionsbibliothek hatte. Beispielsweise mein EVERY sah und sieht noch immer so aus:
Code:
(defun every (proc lst ) (apply 'and (mapcar (function (lambda (x) (apply proc (list x)))) lst)) )
Hat Autodesk tatsächlich geglaubt, mit diesen paar Winzfunktionen VisualLISP an Common Lisp angepasst zu haben? Es vergeht fast kein Tag, an dem ich beispielswiese nicht schmerzlich vermisse, dass ich in VisualLISP Funktionen nicht überladen kann (das bedeutet, Funktionen mit gleichem Namen aber unterschiedlicher Parameterzahl definieren zu können, so wie man (* 2 3) oder (* 2 3 4) aufrufen kann). Und diese Möglichkeit des Überladens wäre wirklich absolut simpel im LISP Interpreter integrierbar. Hat Autodesk überhaupt noch Leute beschäftigt, die den Quellcode von VisualLISP lesen können? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |