---

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

---

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

---

Hi Jan,

Zitat:

---

PS: Bevor einer nörgelt - die Suche funktioniert derzeit nicht !

---

stimmt, aber glücklicherweise gibt es die alte Suchfunktion noch  )

------------------
Grüße Karin

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

---

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

---

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

---

hallo holger,

vielen dank für das ausführliche beispiel - aber assoz. ist die bemassung damit sicherlich nicht ?!?!

Gruß Jan .-)

------------------
jan :-)

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

---

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

---

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

---

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

---

Zitat:

---

Original erstellt von Brischke:

[code]
           (or (= 'REAL (type (car P)))
               (= 'INT (type (car P)))
               )

---

Hallo Holger,

für diese Menge Code gibt's eine nette Abkürzung: (numberp (car P))

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

---

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

---

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