Moin !
ich habe mal wieder die Sonnenbrille auf und verstehe folgendes überhaupt nicht:
Es wurde vorweg ein geometrisches Objekt in einem Block mit NENTSEL abgefragt und nun soll etwas abgeprüft werden. Dazu möchte ich zunächste feststellen ob NENTSEL eine Liste mit 4 Elementen zurückgibt und wenn dieses der Fall ist, dann soll der GC0 ermittelt werden.
Code:
(if (= (length elem) 4)
(
(setq parent_ename (car (nth 3 elem))
parent_ename_gc0 (cdr (assoc 0(entget (car (nth 3 elem)))))
)
(print "\nparent_ename_gc0: ") (princ parent_ename_gc0)(print "\nelem: ")(princ elem)
(print "\nnth: ")(princ (nth 3 elem))
(print "\ncar: ")(princ (car (nth 3 elem)))
(print "\nentget: ")(princ (entget (car (nth 3 elem))))
(print "\nassoc: ")(princ (assoc 0(entget (car (nth 3 elem)))))
(print "\ncdr: ")(princ (cdr (assoc 0(entget (car (nth 3 elem))))))
(if (= parent_ename_gc0 "INSERT")
(setq flag_parent_is_block T)
(setq flag_parent_is_block nil)
);endif - parent_check
)
);endif - length
Jetzt zu meinen Fragen:
Warum wird parent_ename_gc0 mit nil dokumentiert obwohl der setq-Ausdruck oben derselbe ist wie in der Ausgabezeile mit cdr
Zitat:
"\nparent_ename_gc0: " nil
"\nelem: " (<Objektname: 7ffffb14590> (27277.1 -10569.3 0.0) ((1.83 0.0 0.0) (0.0 2.06391 0.0) (0.0 0.0 1.83) (27571.7 -7680.74 0.0)) (<Objektname: 7ffffb14710>:nozwinker
"\nnth: " (<Objektname: 7ffffb14710>)
"\ncar: " <Objektname: 7ffffb14710>
"\nentget: " ((-1 . <Objektname: 7ffffb14710>) (0 . INSERT) (330 . <Objektname: 7ffffb119f0>) (5 . 381) (100 . AcDbEntity) (67 . 0) (410 . Model) (8 . 0) (100 . AcDbBlockReference) (66 . 1) (2 . test) (10 27571.7 -7680.74 0.0) (41 . 1.83) (42 . 2.06391) (43 . 1.83) (50 . 0.0) (70 . 0) (71 . 0) (44 . 0.0) (45 . 0.0) (210 0.0 0.0 1.0))
"\nassoc: " (0 . INSERT)
"\ncdr: " INSERT
... und noch eines - einen Folgefehler schließe ich weitestgehend aus:
Wie kann es im letzten If-Block zu einer Fehlermeldung:
Zitat:
Fehler: Fehlerhafte Funktion: "INSERT"
Kommen - INSERT wird doch in Hochkomma an das IF-Statement übergeben ?
Nun bin ich aber mal gespannt !
Gruß Jan
------------------
jan :-)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP