|
Rund um Autocad : Z Werte anschreiben lassen
Schachinger am 18.09.2003 um 18:48 Uhr (0)
so guckst du hier: (defun c:hkote () (if (not (tblsearch BLOCK HKOTE )) (exit)) (setq attdia-s (getvar attdia )) (setq dimzin-s (getvar dimzin )) (setvar attdia 0) (setvar dimzin 0) (command _-insert hkote (setq p1 (getpoint
Punkt wählen: )) (rtos (caddr p1) 2 2)) (setvar attdia attdia-s) (setvar dimzin dimzin-s) ) wenn in der zeichnung ein block hkote existiert wird er an dem geklickten punkt eingefügt und z-wert wird auf 2 kommastellen in das attribut gesc ...
|
|
Rund um Autocad : Layer blockieren!
Schachinger am 22.11.2002 um 15:45 Uhr (0)
Ich möchte in meiner Zeichnung einzelne Layer blockieren können. Also das sie angezeigt werden - ich die Objekte auf diesen Layern nicht verändern kann (wie bei Layer sperren) und aber auch keine neuen Objekte auf diesen Layer legen kann. Über Block oder Xref funktionert das nicht weil ich laufend mit diesen Layern jonglieren muss und laufend andere Layer blockieren will. Hatt jemand eine Idee wie man so etwas realisieren kann?? ------------------ mfg Siegfried Schachinger
|
|
Rund um Autocad : Block bearbeiten mit Befehl
Schachinger am 21.06.2003 um 12:19 Uhr (0)
was für einen befehl führst du denn aus um den block zu bearbeiten? wenn du den block doppelklickst wird wenn keine attribute enthalten sind der befehl "refedit" bzw. "refbearb" aufgerufen. wenn attribute enthalten sind der befehl "attedit"... gehts nicht wenn du "refedit" vor der bearbeitung in die befehlszeile eingibst?! ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : Attribute löschen
Schachinger am 08.07.2003 um 10:24 Uhr (0)
ob wer ein autom. lisp dazu geschrieben hab weis ich nicht aber CADwiesel ist immer ein heißer kandidat bei sowas http://www.cadwiesel.de/ ansonsten den block mit refedit editieren und einfach die attribute löschen..... ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : äußersten Punkt einer gedrehten Elipse fangen?
Schachinger am 03.09.2003 um 16:16 Uhr (0)
der workaround mit dem "als block einfügen" ist des rätsels lösung! manchmal ist die lösung zu nah für mich anscheinend *G* danke ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : Z Werte anschreiben lassen
Schachinger am 18.09.2003 um 11:26 Uhr (0)
mal was ganz simples dazu (höhe wird als text am ausgewählten punkt geschrieben mit aktuellem textstil und texhöhe - aktueller textstil mus höhe 0 haben ^c^c(command text (setq p1 (getpoint)) (caddr p1)) bei eingetragener höhe im texstil ^c^c(command text (setq p1 (getpoint)) (caddr p1)) mit block dürfte auch kein problem sein nur müsste ich mehr informationen haben (wiviele kommastellen etc?)... aber ich schätz mal das cadwiesel schon was im baukasten hat *G* ------------------ mfg Siegfried S ...
|
|
Rund um Autocad : schnelle Blockerstellung
Schachinger am 18.09.2003 um 18:00 Uhr (0)
ganz genau hab ich nicht verstanden was du meinst aber ich glaube dort: http://ww3.cad.de/foren/ubb/Forum54/HTML/004690.shtml findest du etwas das du brauchen kannst. das lisp dort erstellt aus den objekten die du gewählt hast automatisch einen block der auch an der richtigen stelle eingefügt wird. falls du was anderes gemeint hast --- einfach melden. lg ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : filter nach winkel
Schachinger am 07.10.2003 um 10:37 Uhr (0)
(defun c:filter45 () (setq ss (ssget ((0 . "LINE")))) (setq ssnew (ssadd)) (setq indx -1) (repeat (sslength ss) (setq indx (1+ indx)) (setq en (ssname ss indx)) (setq ang (/ (* (angle (reverse (cdr (reverse (cdr (assoc 10 (entget en)))))) (reverse (cdr (reverse (cdr (assoc 11 (entget en))))))) 180) PI)) (if (= ang 45.0) (ssadd en ssnew)) (if (= ang 225.0) (ssadd en ssnew)) ) (command "_-block" "ss45" "0,0,0" ssnew "" "_-insert" "ss45" "0,0,0" "" "" "") ) ansonsten mal damit ...
|
|
Rund um Autocad : filter nach winkel
Schachinger am 07.10.2003 um 12:21 Uhr (0)
hi britt! liegt wohl nicht an der schraffur sondern an meinem lisp *G* das problem ist das bei manchen linien warscheinlich ein winkel von 45.000001 oder 49.99999 oder ähnliches rauskommt.... daher: (defun c:filter45 () (setq ss (ssget ((0 . "LINE")))) (setq ssnew (ssadd)) (setq indx -1) (repeat (sslength ss) (setq indx (1+ indx)) (setq en (ssname ss indx)) (setq ang (/ (* (angle (reverse (cdr (reverse (cdr (assoc 10 (entget en)))))) (reverse (cdr (reverse (cdr (assoc 11 (entget en))))))) 18 ...
|
|
Rund um Autocad : Problem mit: Ausschneiden + als Block einfügen
Schachinger am 13.08.2003 um 10:18 Uhr (0)
wenn du das mit auschneiden und als block einfügen machst setzt acad einfach einen rahmen um all deine gewählten objekte und setzt den basispunkt auf die untere linke ecke (zumindest ACAD2002 - 2000i würd wohl auch so machen schätz ich). aber warum erstellst du nicht ganz normal einen block mit dem dafür vorgesehenen befehl _block ohne dieses ausschneiden/einfügen?? wär doch logischer? ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : Problem mit: Ausschneiden + als Block einfügen
Schachinger am 14.08.2003 um 09:44 Uhr (0)
(defun c:automaticb () (setq ss (ssget)) (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0)))))) (setq l (strlen ent1)) (setq ent1 (strcat automaticblock (substr ent1 14 (- l 14)))) (command _-block ent1 0,0,0 ss _-insert ent1 0,0,0 ) ) erstellt blocke mit den namen automaticblock +objektnamen es ersten objektes im auswahlsazt ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : Problem mit: Ausschneiden + als Block einfügen
Schachinger am 19.08.2003 um 11:24 Uhr (0)
(defun c:automaticb () (setq ss (ssget)) (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0)))))) (setq l (strlen ent1)) (setq ent1 (strcat automaticblock (substr ent1 14 (- l 14)))) (command _-block ent1 (setq p1 (getpoint)) ss _-insert ent1 p1 ) ) so jetzt mit der Abfrage für den Blockbasisipunkt. hat etwas gedauert weil ich kaum Zeit hatte um ins Forum zu schaun. Hoffe geholfen zu haben ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
|
Rund um Autocad : Problem mit: Ausschneiden + als Block einfügen
Schachinger am 03.09.2003 um 13:57 Uhr (0)
Zitat: Original erstellt von Schachinger: (defun c:automaticb () (setq ss (ssget)) (setq ent1 (vl-prin1-to-string (cdr (assoc -1 (entget (ssname ss 0)))))) (setq l (strlen ent1)) (setq ent1 (strcat automaticblock (substr ent1 14 (- l 14)))) (command _-block ent1 (setq p1 (getpoint)) ss _-insert ent1 p1 ) ) ist ganz einfach! wie ein lispbefehl benannt wird hat absolut nichts damit zu tun wie die lsp-datei benannt ist in der er steht. in einer lsp-datei können ja auch me ...
|
