|
Lisp : Zeichnung als Block einfügen
CADwiesel am 06.11.2013 um 07:14 Uhr (1)
Ohne mal weiter auf den Kot einzugehen....ergänze deine Variablen am Anfang mit:Code: ""zaehler 1Blockname"Kanalbogen"Ersetze dann die Zeile am Ende:Code:(COMMAND "_rotate" L-elem "" "_non" l005p00 "")durch die Zeilen:Code:(command "_-block"(progn(while(tblobjname"block" Blockname)(setq blockname(strcat Blockname (itoa zaehler)) zaehler (1+ zaehler)) )Blockname)l005p00 L-elem "")(command "_insert" Blockname l005p00 "1" "1" "0")(COMMAND "_rotate" "_l" "" "_non" l005p00 pause)------------------GrußCADwiese ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Polylinien vereinfachen und Linien zu Bögen
CADwiesel am 25.09.2015 um 09:55 Uhr (1)
Ich denke nicht, das es programmtechnisch funktioniert diese kurzen linien durch einen Bogen zu ersetzen, aber vielleicht habe ich aber dazu einen zu geringen Horizont. Ich wüsste jetzt nicht, wie ich es technisch anstellen würde festzustellen, welche Liniensegmente alle zu einem Bogenteil gehören.Was Anderes sind die Liniensegmente, die eine Gerade bilden - das ist Technisch relativ einfach lösbar, diese einzelnen durch nur eine Linie zu ersetzen.Vielleicht hat CADmium dazu ja eine Idee------------------G ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : nächsten Nachbarn finden
CADwiesel am 09.01.2007 um 12:51 Uhr (0)
Programmtechnisch könntest du es zb so angehen:du bildest einen Auswahlsatz aller Punkte (setq aw1(ssget "_X" ((0 . "POINT"))))dann durchläufst du alle Punkte und suchst dir für jeden Punkt in einem Rechteck (weils einfacher ist) um den Punkt herum alle Textelemente. Dazu musst du ein Fenster berechnen, welches die Punktkoordinate als Mittelpunkt hat, und bsplw. mal 10 groß ist.Im besten Fall erhältst du einen Auswahlsatz in dem nur ein Element drin ist. Das ist dann dein Text, den du suchst. Im schlechter ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um AutoCAD : Alle Schraffuren löschen!
CADwiesel am 24.06.2004 um 13:06 Uhr (0)
hier mal ein bischen was extra für dich ausgedactes.der Code ist public free macht damit was ihr wollt. wenn ihr euch was zerschießt, seid ihr selber schuld.(Ähnlichkeiten mit existierenden Programmen oder Programmteilen sind rein Zufällig und nicht beabsichtigt)(ich denke sowas in der Art sollten wir uns in die Signatur schreiben)(defun c:hatch-del (/ helems x Bname)(vl-load-com) (if (setq helems (ssget "_X" ((0 . "HATCH")))) (repeat (sslength helems) (entdel (ssname helems 0)) (setq helems (ssdel (s ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Koordinatenexport
CADwiesel am 12.07.2006 um 08:19 Uhr (0)
Hier das was du brauchst - denke ichCode:(defun C:test (/ clay OSM ASN TG DEZ MD_ERR);;;Errorhandler (defun M:FEHLER (S) (print (strcat "M:fehler " S)) (close DAT_ID) (command) (command "_UNDO" "_BACK") (setq *ERROR* MD_ERR) (command "LAYER" "SE" clay "") (command "osmode" OSM) (command "autosnap" ASN) (princ) ) ;_ end of defun (command "_UNDO" "_MARK") ;Marke für Zurück nach Abbruch setzen (setq MD_ERR *ERROR* *ERROR* M:FEHLER clay (getvar "CLAYER") OSM (getvar "osmode") ASN ...
|
| In das Form Lisp wechseln |
|
Lisp : Attributhöhen in 2008 ändern!?!
CADwiesel am 23.08.2007 um 07:59 Uhr (0)
wie wär n das?Code:(if(and(setq obj (car (entsel "
Bitte wählen Sie ein Teil aus:")))(setq hoehe(getreal "
Bitte geben Sie die neue Höhe für das Teil ein:")))(command "_move" obj "" "0,0,0" (append (0.0 0.0)(list hoehe))))------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Böschungsschraffur
CADwiesel am 04.06.2002 um 12:35 Uhr (0)
@Ines Du musst die Lisp s vorher laden mit werkzeuge/Anwendung oder appload in der Befehlszeile ------------------ Gruß CADwiesel
|
| In das Form Rund um Autocad wechseln |
|
Lisp : dwg einfügen
CADwiesel am 19.12.2006 um 16:25 Uhr (0)
mach dir eben einen Button, auf den du dann den _insert befehl legst:hier habe ich mal eben die Suche für dich bemüht: ------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Flächenauswertung
CADwiesel am 26.09.2007 um 07:50 Uhr (0)
das kenn mann nicht unter den Begriff installieren fallen lassen. Lisp Programme sind bei deinem Acad ebenfalls dabei. Es ist also nichts, was besonders behandelt werden müsste. Du kannst solche Programme sogar selber schreiben, es gibt dazu genug Anleitungen. Wenn du aber doch keinerlei weitere Arbeitsunterstützung verwenden darfst, gibt es für dich keine Rettung und du musst so weitermachen wie bisher.------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Blöcke nachträglich ändern
CADwiesel am 28.08.2007 um 10:53 Uhr (0)
zu 1 http://ww3.cad.de/foren/ubb/Forum145/HTML/000438.shtml#000007 ok wenn du nur LT hast, wirds damit nix werden. Wollts nur mal wieder rauskramen...------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Speichern in Autocad 2000 Format
CADwiesel am 08.08.2008 um 07:49 Uhr (0)
wie wäre der Befehl _saveas denn?den gibts sogar, wenn wmnn filedia auf 0 stellt als Befehlszeilenversion.ok, er kann nicht mehrere Dateien auf einmal speichern, aber wer oder was kann sowas schon?------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Rund um Autocad : Layerauflistung
CADwiesel am 28.06.2001 um 17:16 Uhr (0)
Hi Du kannst mich auch mal besuchen www.CADwiesel.de unter "Layer" ist was ------------------ Gruß CADwiesel
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : =Geistericon=
CADwiesel am 12.12.2002 um 13:50 Uhr (0)
------------------ Gruß CADwiesel [Diese Nachricht wurde von CADwiesel am 12. Dezember 2002 editiert.]
|
| In das Form Rund um Autocad wechseln |
