|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 14:03 Uhr (0)
ja sorry ..muss heißen(defun C:LAYSEARCH(/ PATTERN) (setq PATTERN (getstring "
Suchtext: ")) (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 (strcat "*" PATTERN "*"))))))------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : nach bestimmten elem und-color: #FFFF99'>suchen
CADmium am 13.09.2009 um 13:49 Uhr (0)
vielleicht solltest du elem.ObjectName = "AcDbText" und abfragen ob in textstring "Falsch" steht. (code hierfür ist mir bekannt)mit einem and verknüpfen und dann bei positivem Bescheid die Methode delete des Objekts aufrufen ------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
Rund um AutoCAD : block ersetzen
CADmium am 23.01.2005 um 09:45 Uhr (1)
noch ein Hinweis:wenn der User bei (setq nfakt (getreal "
Faktor des neuen Blockes (gleicher Faktor xyz): ")) nur Enter drückt, d.h. nil zurückgegeben wird crasht dein Prog immer noch. D.h. - mit initget nil-Eingaben / 0 nicht zulassen bzw. so:(or(and(setq nfakt (getreal "
Faktor des neuen Blockes 1 : ")) (/= nfakt 0) ) (setq nfakt 1.0))somit: falls nichts, oder 0 eingegeben wird, wird nfakt auf 1.0 gesetzt.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Pr ...
|
| In das Form Rund um AutoCAD wechseln |
|
Lisp : Variablen eines Fremdprogramms und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 11:34 Uhr (0)
(atoms-family ..) in einer DWG aufrufen bevor das Programm geladen wird und dann noch einmal danach un dann die Ergebnisse vergleichen(type(eval SYMBOL)) sagt was über den verknüpften Inhalt aus ..------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Nach Block in Zeichnung und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 07:45 Uhr (0)
mit (setq BL(tblnext "BLOCK" .... durch die Blocktabelle laufen .. dabei mit (tblobjname "BLOCK"(cdr(assoc 2 BL))) das Blockobjekt holen und von diesem mittels (entnext.. die Blockelemente durchlaufen ..diese auf "INSERT" testen und gucken ob der Name mit dem vorgegebenen übereinstimmt..------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Lisp soll nach Blöcken und-color: #FFFF99'>suchen
CADmium am 07.04.2009 um 13:41 Uhr (0)
was haste denn da noch alles zu laufen ?am besten ganz am Ende der acaddoc.lsp die Zeilen einfügen...du kannst sie auch einfach durch Kopieren in die Befehlszeile testen ..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Blöcke und-color: #FFFF99'>suchen mit lisptool von weckes
CADmium am 17.01.2005 um 10:53 Uhr (0)
Ja, solche Fragefragmente hast du schon hier ins Forum gestellt. Damit kann (glaube ich ) keiner was anfangen. Nochmal : Was ist die gestellte Aufgabe? Was willst du machen ? Betrifft es eine Zeichnunge oder mehrere? und ??? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." [Diese Nachricht wurde von CADmium am 17. Jan. 2005 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoCAD VBA : nach Textteilen im Layernamen und-color: #FFFF99'>suchen
CADmium am 22.02.2011 um 13:28 Uhr (0)
(defun C:LAYSEARCH(/ PATTERN) (setq PATTERN (getstring "
Suchtext: ")) (sssetfirst nil (ssget "_x" (list(cons 410 (getvar "CTAB"))(cons 8 (strcat "*"SUCHTEXT"*"))))))in eine Textdatei mit Endung lsp stellt dir nach dem Laden den Befehl LAYSEARCH zur Verfügung ...------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD Mechanical : Block ersetzen durch neuen
CADmium am 22.10.2024 um 07:02 Uhr (1)
-EINFÜGE (Befehl)Mit folgenden Methoden können Sie das Blockeinfügeverhalten steuern:Aufgelöste Blöcke einfügen: Wenn Sie dem Blocknamen ein Sternchen (*) voranstellen, wird der Block aufgelöst, und die einzelnen Teile des Blocks werden eingefügt. In diesem Fall wird die Blockdefinition nicht zur Zeichnung hinzugefügt.Blockpfad aktualisieren: Wenn Sie einen Blocknamen ohne Pfadnamen eingeben, sucht der Befehl EINFÜGE zunächst in den Daten der aktuellen Zeichnung nach einer vorhandenen Blockdefinition mit d ...
|
| In das Form AutoCAD Mechanical wechseln |
|
AutoLisp : und-color: #FFFF99'>suchen und erstzen
CADmium am 27.07.2004 um 11:11 Uhr (0)
im Endeffekt sollte dann so ne Funktion rauskommen : (defun C:Ersetze ( / Kreis Block AUSWAHL OBJEKT INDEX) (if (and(setq BLOCK(getstring
Blockname: )) (tblsearch BLOCK BLOCK) (setq Kreis (car(entsel
Kreis wählen: ))) (setq Kreis (entget KREIS)) (=(cdr(assoc 0 KREIS)) CIRCLE ) (setq Auswahl (ssget _x (list (assoc 0 KREIS) (assoc 8 KREIS) ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Element point durch Element circle ersetzen
CADmium am 04.05.2009 um 21:35 Uhr (0)
Hmm .. IMHO gibt es hier im Forum ein kleines Lisp für sowas... sollte programmtechnisch kein Problem sein .... einfach mal und-color: #FFFF99'>suchen, ansonsten morgen mehr...mal quick and dirty hier reingetippt:(defun c:P2C(/ ss z n) (if(setq ss (ssget((0 . "POINT")))) (progn (setq Z -1) (repeat (sslength ss) (setq ele(ssname ss (setq z (1+ z)))) (command "_.circle" (cdr (assoc 10 (entget ele))) 5.0) (entdel ele) ) ) ))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um AutoCAD : Punkte durch Blöcke ersetzen
CADmium am 11.08.2010 um 15:55 Uhr (0)
ja ... aber imho fehlen da noch ein paar Angaben .. konkretisier malansonsten mal ein Codebsp(defun c:P2BLK( / AWS I BLK) (if (and(setq AWS(ssget ((0 . "POINT")))) (or(and(setq BLK(getstring "
BLOCKNAME von Objekt:")) (tblobjname "BLOCK" BLK) ) (and(setq BLK (car(entsel "
BLOCK wählen: "))) (setq BLK (entget BLK)) (=(cdr(assoc 0 BLK))"INSERT") (setq BLK(cdr(assoc 2 BLK))) (tblobjname "BLOCK" BLK) ) ) ) (progn (setq I -1) (repeat(sslen ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Elementhaufen durch Blöcke ersetzen
CADmium am 19.11.2004 um 20:42 Uhr (0)
"gefüllte Kreisflächen" sollt nicht allzuschwer sein .. auswahlsatz aller kreise ... den sortieren in Grüppchen, die den gleichen GC10 haben - Block draus, oder größten Kreis nehmen und schraffieren "Polyline+Linien" : z.B. alle Linien, deren Endpunkte auf der gleichen Polylinie liegen zusammenfassen (vlax-curve-Funktionen...) evtl. noch gucken , ob alle die gleiche Steigung haben (Y2-y1)/(x2-x1) GC10+GC11 - ich glaube, da findest du unter www.defun.de evtl. was ------------------ - Thomas - " ...
|
| In das Form Rund um Autocad wechseln |
