Block mit entmake, was stimmt hier nicht ? (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Block mit entmake, was stimmt hier nicht ? (707 mal gelesen)
Juergen55 Mitglied Elektrotechniker Beiträge: 282 Registriert: 08.03.2001	erstellt am: 06. Sep. 2005 13:51 <-- editieren / zitieren --> Unities abgeben: Hallo, wollte mir gerade einen Block mit entmake erstellen, jetzt verhält sich ACAD etwas seltsam, stimmt das so nicht ? Fehlt da noch was ? ACAD meldet in der Befehlzeile Drücken sie exit.... Das Fadenkreuz ändert sich wie für eine Fenterauswahl (defun c:MBLK (/) (entmake (list (cons 0 "BLOCK") (cons 70 3) (cons 2 "UUUU") (cons 10 (list 0 0 0)) ) ) (entmake (list '(0 . "LAYER") '(100 . "AcDbSymbolTableRecord") '(100 . "AcDbLayerTableRecord") '(2 . "0") '(70 . 0) '(62 . 7) '(6 . "Continuous") '(290 . 1) )) (entmake (list '(0 . "SOLID") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(62 . 0) '(6 . "ByBlock") '(100 . "AcDbTrace") '(10 -24.0 -4.0 0.0) '(11 -24.0 4.0 0.0) '(12 0.0 0.0 0.0) '(13 0.0 0.0 0.0) '(39 . 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 0.0 0.0) '(11 0.0 25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 0.0 0.0) '(11 0.0 -25.0 0.0) '(210 0.0 0.0 1.0) )) (setq nblk (entmake (list (cons 0 "endblk")))) ) Liegts vielleicht an einer Systemvariablen ? Gruß, Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Juergen55 Mitglied Elektrotechniker Beiträge: 282 Registriert: 08.03.2001 Microstation V8i, TriCAD, AutoCAD2014, EPlan P8 2.2, Core I5, 16GB Arbeitsspeicher	erstellt am: 06. Sep. 2005 14:01 <-- editieren / zitieren --> Unities abgeben: Hallo, konnte das Problem selber lösen, war ein etwas blöder Fehler. Das obige besser vergessen ! Trotzdem Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
CADmium Moderator Maschinenbaukonstrukteur Beiträge: 13508 Registriert: 30.11.2003 .	erstellt am: 06. Sep. 2005 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für Juergen55 ein Beispiel ------------------ - 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
fuchsi Mitglied Programmierer c#.net Datawarehouse Beiträge: 1201 Registriert: 14.10.2003 AutoCad Version 2012 deu/enu <P>Windows 7 64bit	erstellt am: 08. Sep. 2005 13:07 <-- editieren / zitieren --> Unities abgeben: Nur für Juergen55 ohne es zu testen. ich tippe mal auf das (cons 70 3) ------------------ Ing. Anton Fuchs WWW.FFZELL.AT.TC Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
Juergen55 Mitglied Elektrotechniker Beiträge: 282 Registriert: 08.03.2001	erstellt am: 09. Sep. 2005 09:30 <-- editieren / zitieren --> Unities abgeben: Hallo fuchsi, zur Info ich habs jetzt so gelöst: (defun c:BEntmake (/) (entmake (list ;Beginn Block P-GR1 '(0 . "BLOCK") '(2 . "P-GR1") '(70 . 0) '(4 . "") '(10 0.0 0.0 0.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 14.1421 14.1421 0.0) '(11 -14.1421 -14.1421 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 1.13687e-013 0.0) '(11 0.0 -25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 1.13687e-013 0.0) '(11 0.0 25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list (cons 0 "endblk")));entmake (entmake (list ;Beginn Block P-GR2 '(0 . "BLOCK") '(2 . "P-GR2") '(70 . 0) '(4 . "") '(10 0.0 0.0 0.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 -14.1421 -14.1421 0.0) '(11 14.1421 14.1421 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 0.0 0.0) '(11 0.0 -25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 0.0 0.0) '(11 0.0 25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "SOLID") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(62 . 0) '(6 . "ByBlock") '(100 . "AcDbTrace") '(10 -24.0 -4.0 0.0) '(11 -24.0 4.0 0.0) '(12 0.0 0.0 0.0) '(13 0.0 0.0 0.0) '(39 . 0.0) '(210 0.0 0.0 1.0) )) (entmake (list (cons 0 "endblk")));entmake (entmake (list ;Beginn Block P-GR3 '(0 . "BLOCK") '(2 . "P-GR3") '(70 . 0) '(4 . "") '(10 0.0 0.0 0.0) )) (entmake (list '(0 . "SOLID") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(62 . 0) '(6 . "ByBlock") '(100 . "AcDbTrace") '(10 -24.0 -4.0 0.0) '(11 -24.0 4.0 0.0) '(12 0.0 0.0 0.0) '(13 0.0 0.0 0.0) '(39 . 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 0.0 0.0) '(11 0.0 25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list '(0 . "LINE") '(100 . "AcDbEntity") '(67 . 0) '(8 . "0") '(100 . "AcDbLine") '(10 0.0 0.0 0.0) '(11 0.0 -25.0 0.0) '(210 0.0 0.0 1.0) )) (entmake (list (cons 0 "endblk")));entmake ) Gruß, Jürgen Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)