Elemente auswählen und erweiterte Dateien hinzufügen

[Angelo2449]

Hallo alle,
Ich habe vor mir ein offenes Design mit verschiedenen Elementen, ich möchte nur die Kreise der roten Farbe und Angriff auf diese verschiedenen wählen, sage ich, Aufzeichnungen jedoch von Datenstrings.

Ich habe gelesen, dass Sie dieses Ergebnis durch erweiterte Dateien bekommen können, ich weiß wenig darüber, ich suche Hilfe!

p.s: Ich begann damit: (setq a (ssget "_x"((0. "circle"))))))

Danke.

 

[Cristallo]

Beginnen Sie damit:
(setq red_circle (ssget "_x" ((0. "circle")(62.1))))))

oder queto, wenn Sie mehr Arten von Element verknüpfen möchten
(setq red_circleorline (ssget "x"(4). "<or") "circle")(0="" "line")(-4="" "or="" (0="" .="">(62.1)</or")>

 

[Angelo2449]

Danke.
aus, wie ich "ssget" verstanden hat, handelt es sich um die Auswahl aller roten Farbe (62.1).
Ich denke, Bildung schafft die Gruppe "red_circle"
Nun, zu den Elementen der Gruppe, muss ich Strings des Typs "Name", "koordiniert", ......
Ich möchte das, indem Sie eine Einheit der erstellten Gruppe auswählen, kann sie die zugehörigen Strings zurück haben.
Dieser zweite Teil ist mir klarer, der erste....
Danke.
.

 

[rpor66]

die Datei <xdata testo.lsp=""> enthält zwei Grundfunktionen, um einen String aus "erweiterten Dateien" oder vorzugsweise xdata einzufügen oder zu lesen.

(wenn nicht (nicht (tblsearch "appid" "miaapp"))
(regapp "miaapp")
)
Dies dient dazu, den Namen der Anwendung zu definieren, auf die sich die beiden Funktionen beziehen; ist auch der Name der App, die in Entitäten gespeichert ist; mehrere Apps können Daten zu derselben Einheit hinzufügen. Denn jetzt vermissen wir nicht zu viel Zeit und Teile von dieser Annahme, mit der Praxis wird einfacher.

(addxdataname Firma stringaditesto)
Erinnern Sie sich an die Funktion und Weitergabe der beiden Parameter, die Sie speichern den String.

(Einzeltext)
speichern Sie im variablen Text den Inhalt von xdata.

Diese Routinen werden gemacht, um nur eine Zeichenfolge zu schreiben oder zu lesen; Sie können die Menge der Daten auf mehrere Zeichenfolgen, Zahlen, Koordinaten usw. erweitern.

Bye</xdata>

 

[Angelo2449]

Danke rpor66,
Ich habe Ihre Akten gelesen, ich hatte gerade diese geschrieben

(Defun c:crext (/)

(seq group)

(Gruppenregapp)

(setq oldlist (entget))

)

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

(defun c:definisciext (/)

(setq oldlist (entget))

;(Setq die Daten '(-3 ("afralisp" (1000 . "kenny is handsome")))))))))
(Datensatz '(((-3 (Gruppe (1000 "erste") (1000 "zweite"))))))))

(entmod newlist)

)

-----------------------------------------------------------------------------------------------------------------------------------------------------------------

(Defun c:estraiext)

(setq elist (entget (entsel)))

)

Mein Problem ist, alle Wesen (rote Kreise) im dwg mit dem Programm "definisciext" zu wählen.
Danke.

 

[Angelo2449]

Ich vernachlässigte zu sagen, dass die Strings zu assoziieren (definierte erste und zweite im Programm) im dwg neben den roten Kreisen vorhanden sind (sie wurden durch einen "dxf") definiert.
Also sollte ich aus dem String, den Substrings, extrahieren.
Ich denke, das Beste ist, in den String die Koordinaten des Kreises einzubeziehen, dann wählen Sie die Strings anstelle der Kreise.
oder die Koordinaten des Kreises, die seine Position in Bezug auf den String oder das Gegenteil kennen, extrahieren.
wenn ich bei der Mehrfachauswahl von Einheiten ankomme, denke ich, es ist dann ganz einfach (!).
Danke.

 

[Angelo2449]

die Datei <xdata testo.lsp=""> enthält zwei Grundfunktionen, um einen String aus "erweiterten Dateien" oder vorzugsweise xdata einzufügen oder zu lesen.

(wenn nicht (nicht (tblsearch "appid" "miaapp"))
(regapp "miaapp")
)
Dies dient dazu, den Namen der Anwendung zu definieren, auf die sich die beiden Funktionen beziehen; ist auch der Name der App, die in Entitäten gespeichert ist; mehrere Apps können Daten zu derselben Einheit hinzufügen. Denn jetzt vermissen wir nicht zu viel Zeit und Teile von dieser Annahme, mit der Praxis wird einfacher.

(addxdataname Firma stringaditesto)
Erinnern Sie sich an die Funktion und Weitergabe der beiden Parameter, die Sie speichern den String.

(Einzeltext)
speichern Sie im variablen Text den Inhalt von xdata.

Diese Routinen werden gemacht, um nur eine Zeichenfolge zu schreiben oder zu lesen; Sie können die Menge der Daten auf mehrere Zeichenfolgen, Zahlen, Koordinaten usw. erweitern.

Bye</xdata>

Danke rpor66,
Ich habe weiterhin versucht, den richtigen Code zu schreiben und kam dazu:

 (defun c:creaextgruppo (/ tt)

(setvar "osmode" 0)

(setq oggetto "gruppo")
(regapp oggetto)
(setq tt (ssget "_x" '((0 . "text,mtext")(1 . "p*")))))

(Repeat (setq n (sslength tt))
(setq tt (ssname tt (setq n (1- n))))

(setq string (entget tt))
(setq txt1 (assoc 1 string))
(setq txt1 (cdr txt1)
(setq lungh (- (strlen txt1) 60)

(setq cxy (assoc 10 string))
(setq cox (cadr cxy))
(setq coy (cadddr cxy))
;(Befehl "_erase" tt "")
(setq coox (rtos cox))
(setq cooy (rtos coy))
(setq indirizzo (strcat coox "," cooy))

(setq nomepunto (substr txt1 2 lungh))
(setq ecef (substr txt1 (+ 3 lungh) 34)
(setq gaussboaga (substr txt1 (+ 38 lungh) 23)
(setq oldlist (entget tt))

(Datensatz '((-3 (oggetto (1000 . nomepunto) (1000 . ecef)))))

(setq newlist (alte Liste angeben)
(entmod newlist)
— Wiederholung
); defun

Es ist etwas falsch, denn wenn es um Bildung geht "(entmod newlist)" Ich bekomme die Fehlermeldung: "; Fehler: falsch dxf group: (-3 (1000 . Punktname) (1000 . ecef) (1000 . gaussboaga))"

Danke.

 

[rpor66]

(Datensatz (Liste -3 (cons 1000 point name) (cons 1000 ecef) (cons 1000 gaussboaga)))

Also sollte es gehen.

die Variablennamen zuordnen, die den Inhalt identifizieren:
(setq tt (ssname tt (setq n (1- n)))) ssname gibt den Namen der Einheit zurück, nomeentita ist bevorzugt
(setq string (entget tt)) vielleicht wäre es besser (setq unitta (entget tt)), String scheint Text enthalten

Gute Arbeit

 

[Angelo2449]

Ich habe Ihre Vorschläge angewendet, es ist in Ordnung bis zur letzten Zeile (entmod newlist)

(defun c:creaextgruppo (/ tt)

(setvar "osmode" 0)

(setq oggetto "gruppo")
(regapp oggetto)
(setq stringa (ssget "_x" '((0 . "text,mtext")(1 . "p*"))))

(Repeat (setq n (sslength stringa))
(setq entita (ssname stringa (setq n (1- n)))

(setq str (entget entita))
(setq txt1 (assoc 1 str))
(setq txt1 (cdr txt1)
(setq lungh (- (strlen txt1) 60)

(setq cxy (assoc 10 str))
(setq cox (cadr cxy))
(setq coy (cadddr cxy))
;(Befehl "_erase" entita "")
(setq coox (rtos cox))
(setq cooy (rtos coy))
(setq indirizzo (strcat coox "," cooy))

(setq nomepunto (substr txt1 2 lungh))
(setq ecef (substr txt1 (+ 3 lungh) 34)
(setq gaussboaga (substr txt1 (+ 38 lungh) 23)
(setq oldlist (entget entita))

(Datensatz (Liste -3 (Liste oggetto (cons 1000 nomepunto) (cons 1000 ecef))))

(setq newlist (alte Liste angeben)
(entmod newlist)
— Wiederholung
); defun

Danke noch mal.

 

[rpor66]

(setq newlist) (Liste) die Daten))

 

[Angelo2449]

Der Präsident. — Die Aussprache ist geschlossen.

(Defun c:estraiext)

(setq elist (entget))

)

gibt dies zurück:

Wählen Sie Objekt: ((-1). <nome 18a2e4fde90="" entità:="">) (0 . "Text") (330. <nome 18a2e4fcef0="" entità:="">(i) (i) (i) (i) (i) (i)

wie Sie sehen, Artikel 1000 erscheint nicht, viel weniger "Gruppe".
</nome></nome>

(defunc c:creaextgroup (/ tt)

(Setvar "osmode" 0)

(Seq Objekt "Gruppe")
(Entfernungsobjekt)
(setq string (ssget "_x"(0 . "text,mtext")(1 . "p*")))))

(Repeat (setq n (sslength stringa))
(setq unitta (ssname stringa (setq n (1-n))))

(setq str (entget entita))
(setq txt1 (assoc 1 str))
(setq txt1 (cdr txt1)
(setq lungh (- (strlen txt1) 60)

(setq cxy (assoc 10 str))
(setq cox)
(setq coy (cadddr cxy)
;(Befehl "_erase" set)
(setq coox (rtos cox)
(setq cooy (rtos coy)
(setq Adresse (strcat coox "," cooy))

(Satzpunktname (Substr txt1 2 lungh))
(setq ecef (substr txt1 (+ 3 lungh) 34)
(setq gaussboaga (substr txt1 (+ 38 lungh) 23)
(setq oldlist (entget entita))

(Datensatz (Liste -3 (cons 1000 point name) (cons 1000 ecef) (cons 1000 gaussboaga)))

(Setq neue Liste)
(entmod newlist)
— Wiederholung
;

Ich werde nie aufhören, dir zu danken!

 

[rpor66]

Tut mir leid für die Abwesenheit, das Chaos mit neuem PC, ein bisschen Verlierer nie versagt.
um die Gültigkeit der Routine zu bewerten, müssen Sie einen Zweig des Dwg, den Sie verwenden, befestigen.
Bye

 

[Angelo2449]

Hier ist die Datei, danke

 

[Angelo2449]

Tut mir leid rpor66,
die genaue Datei ist dies

 

[Angelo2449]

Hallo rpor66 und hallo zu allen,
Lesen und Weiterlesen des Codes und immer etwas mehr lernen, korrigierte ich die Programme, und jetzt scheint alles zu funktionieren, wie ich wollte.
Gruppenerstellungscode > > :

(defun c:creaextgruppo (/ tt)

(setvar "osmode" 0)

(setq oggetto "gruppo")
(regapp oggetto)
(setq stringa (ssget "_x" '((0 . "text,mtext")(1 . "p*"))))

(Repeat (setq n (sslength stringa))
(setq entita (ssname stringa (setq n (1- n)))

(setq testo (entget entita))
(setq txt1 (assoc 1 testo))
(setq txt1 (cdr txt1)
(setq lungh (- (strlen txt1) 60)

(setq nomepunto (substr txt1 2 lungh))
(setq ecef (substr txt1 (+ 3 lungh) 34)
(setq gaussboaga (substr txt1 (+ 38 lungh) 23)
(setq oldlist (entget entita))

(Datensatz (Liste -3 (Liste oggetto (cons 1000 nomepunto) (cons 1000 ecef))))

(setq newlist (append testo (list thedata)))
(entmod newlist)
— Wiederholung
); defun

Datenextraktionscode der Gruppe >>

(Defun c:estraiext)

(setq lista (entget (car (entsel)) '("group"))
(setq xlist (assoc -3 lista))
(setq txtdata (car (cdr xlist)))
(setq nomepunto (cdr (nth 1 txtdata))
(setq ecef (cdr (nth 2 txtdata))
(setq gaussboaga (cdr (nth 3 txtdata))

(princ "\n")
(princ nomepunto)
(princ "\n")
(princ ecef)
(princ "\n")
(princ gaussboaga)
(princ "\n")

)

Ich bin sicher, dass ich euch immer noch brauche, danke.

 

[rpor66]

Ich habe mit dwg und lisp von Ihnen erstellt überprüft, es funktioniert.
Ich habe jedoch nicht verstanden, die Bedeutung, mit dem Text der bereits im Text enthaltenen Informationen zu verknüpfen; Müssen Sie sie mit den Kreisen verbinden?
Speichern von Koordinaten als Strings, mit dem 1011 können Sie es als Koordinaten speichern.
Dies ist eine Zusammenfassung der nutzbaren Codes:Beschreibung des Datentyps
;string 1000 eine Zeichenfolge von bis zu 255 Zeichen.
;Anwendungsname 1001 ein Anwendungsname.
;Schichtname 1003 der Name einer Schicht.
;Datenbankhandling 1005 der Griff eines Unternehmens.
;3d Punkt 1010 ein 3d Koordinatenwert.
;real 1040 ein echter Wert.
;integer 1070 eine 16-Bit-Integer (signiert oder unbesigniert).
;long 1071 ein 32 Bit signiert (lang) ganze Zahl.
;control string 1002 ein Steuercode, um die geschachtelte Liste einzustellen.
;Weltraumposition 1011 a 3d Koordinatenpunkt, der bewegt, skaliert gedreht, gestreckt und mit der Einheit verspiegelt wird.
;Weltraumverlagerung 1012 ein 3d-Koordinatenpunkt, der zusammen mit der Einheit skaliert, gedreht oder gespiegelt wird. es kann nicht gestreckt werden.
;Weltraumrichtung 1013 ein 3d-Koordinatenpunkt, der mit der Einheit gedreht oder gespiegelt wird. es kann nicht skaliert, gestreckt oder bewegt werden.
; Entfernung 1041 einen realen Wert, der zusammen mit der Einheit skaliert wird. für Distanz verwendet.
; Skalenfaktor 1042 ein realer Wert, der zusammen mit der Einheit skaliert wird. als Skalenfaktor verwendet.

Bye

 

[Angelo2449]

Ich habe Ihrem Vorschlag gefolgt, jetzt extrahiere ich die flachen Koordinaten aus der Auswahl, aber ich kann den ausgewählten Text nicht ändern:

(defun c:puntogp (/ Object string n entita lxt1 lungh thedata newlist np)

(Setvar "osmode" 0)
(Abschnitt 0)

(Seq Objekt "Gruppe")
(Entfernungsobjekt)
(setq string (ssget "_x"(0 . "text,mtext")(1 . "p*")))))

(Repeat (setq n (sslength stringa))
(setq unitta (ssname stringa (setq n (1-n))))

(Sectq-Text)
(setq txt1 (assoc 1 text))
(setq txt1 (cdr txt1)
(setq lungh (- (strlen txt1) 36)
(setq xyz (assoc 10 text)
?

> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ text)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txt)

(setq gaussboaga (strcat (rtos (cadr xyz)) "," (rtos (caddr xyz)))
(princ gaussboaga)
(princ "\n")
(princ text)
(princ "\n")

(eingestellter Punktname (substr txt1 2 (- lungh 1)))
(Bezugsname)
(princ "\n")
(setq ecef (substr txt1 (+ 2 lungh) 35))
(princ ecef)
(princ "\n")
(Setq Controllerstz.)
(Setq Controllerpt.)

(setq oldlist (entget entita))
(Datensatz (Liste -3 (cons 1000 point name) (cons 1000 ecef) (cons 1000 gaussboaga)))
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ thedata)
(princ "\n")
(princ "------------------------)
(princ "\n")

(Setq neue Liste)
(entmod newlist)

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
);Repeat

(Abschnitt 1
(Befehl "_style" "arial" "arial.tf" 0 1 0 ")
(alert "Relief-Einstellung durchgeführt")

;

Ich habe Fragen gestellt, wo ich lehren kann.
Danke.

 

[Angelo2449]

Problem gelöst!
Dies ist der neue Code:

(defun c:puntogp (/ Object string n entita lxt1 txt2 lungh thedata newlist np)

(Setvar "osmode" 0)
(Abschnitt 0)

(Seq Objekt "Gruppe")
(Entfernungsobjekt)
(setq string (ssget "_x"(0 . "text,mtext")(1 . "p*")))))

(Repeat (setq n (sslength stringa))
(setq unitta (ssname stringa (setq n (1-n))))

(Sectq-Text)
(setq txt1 (assoc 1 text))
(setq txt2 (cdr txt1)
(Sectq lungh (- (strlen txt2) 36)
(setq xyz (assoc 10 text)

> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ text)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txt)

(setq gaussboaga (strcat (rtos (cadr xyz)) "," (rtos (caddr xyz)))
(princ "\n")
(princ gaussboaga)
(princ "\n")
(princ text)
(princ "\n")

(Einsatz-Punkt-Name (Substr txt2 2 (- lungh 1)))
(Bezugsname)
(princ "\n")
(setq ecef (substr txt2 (+ 2 lungh) 35))
(princ ecef)
(princ "\n")
(Setq cstz "1")
(Setq cpt "2")

(setq oldlist (entget entita))
(Datensatz (Liste -3 (cons 1000 point name) (cons 1000 ecef) (cons 1000 gaussboaga)))
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ thedata)
(princ "\n")
(princ "------------------------)
(princ "\n")

(Setq neue Liste)
(entmod newlist)

""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""""
);Repeat

(Abschnitt 1
(Befehl "_style" "arial" "arial.tf" 0 1 0 ")
(alert "Relief-Einstellung durchgeführt")

;

Jetzt habe ich eine neue Frage:
Ich möchte das 4. und 5. Element der Liste ersetzen, jetzt als "1" und "2" in "ok1" und "ok2" definiert.
Ich habe diese Anweisung versucht (und viele andere), aber es funktioniert nicht:

(defun c:final (/ fc3 control7 check5 list txt1 xlist primed txtdata point ecef gaussboaga control2 fp2)

(wenn (= Primariga nil)
(Progn)
(Alert "Sie müssen zuerst den ersten Gipfel definieren (Basislinie)")
(Auszug)
)
)

(setq fc3 (findfile "c:\\\\\autocadsupporto\\note\\\\\\\\\\nota.dat"))

(falls fc)
(vl-file-delete "c:\\\autocadsupport\\\note\\\nota.dat")
)

;---------------------------------------------------------------------------------------------------------------------------------------------------

(setq control7 nil)
(setq control7 (findfile "c:\\\autocadsupport\\\contatori\\counter.dat"))

(wenn (= Scheck 7 "c:\\autocadsupport\\contatori\\counter.dat")
(Progn)
(setq fp4 (open "c:\\\\\\autocadsupport\\\contatori\\counter.dat" "r"))
(setq count (read line fp4))
(setq Schritt (read-line fp4))
(Schließe fp)
)
)

;---------------------------------------------------------------------------------------------------------------------------------------------------

(setq control5 nil)

(setq control5 (findfile "c:\\\autocadsupport\\\dati\\\datirilievo.dat"))

(falls (= Scheck5 "c:\\autocadsupport\dati\datirilievo.dat")
(Progn)
(setq fp3 (open "c:\\\autocadsupport\\\dati\datirilievo.dat" "r"))
(setq aktuelles Datum (read-line fp3))
(setq ora1 (read line fp3))
(setq ora2 (read line fp3))
(setq pdop (read-line fp3))
(Schließe fp)
)
)

(startapp "c:\\autocadsupporto\liberty\\point.exe "c:\autocadsupport\\\\\\\\\\\point.tkn")

(Setq-Liste nil)
(sing)
(= Liste nil)
(Setq-Liste (entget (entsel))))
)

(princ "\n")
(vorher "Liste > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ list)

(setq txt1 (assoc 1 list)
(princ "\n")
(princ txt)
(princ "\n")

(setq nomeentita (assoc -1 list)
(princ "\n")
(princ nomeentita)
(princ "\n")

(setq xlist (assoc -3 list)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ xlist)
(princ "\n")

(setq primed (car txt1))
(setq txtdata (car))
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txtdata)
(princ "\n")

(Satzname (nth 1 txtdata))
(setq ecef (nth 2 txtdata)))
(setq gaussboaga (nth 3 txtdata)))
(Setq Controllerstz (nth 4 txtdata)))
(Setq-Controller)

(princ "\n")
(Bezugsname)
(princ "\n")
(princ ecef)
(princ "\n")
(princ gaussboaga)
(princ "\n")

(Sectq-Punkt nil)
(setq notay nil)

(seq control2 nil)

(while (= Steuerung 2 nil)
(setq control2 (findfile "c:\\\autocadsupporto\\note\\\\\\\nota.dat"))
)

(setq fp2 (open "c:\\\\\\autocadsupporto\note\\\\nota.dat" "r"))
(Satzpunkt (Leselinie fp2))
(setq notay (readline fp2))
(Schließe fp)

(princ "\n")
(Punkt)
(princ "\n")
(princ notay)
(princ "\n")

(Satzq cxp (Substr. Ecef 1 11)
(setq cyp (substr ecef 13 11) ; hier 11
(Satzq czp (Unterstrich Ecef 24 11)
(setq cxpp (atof cxp)
(setq cypp (atof cyp)
(setq czpp (atof czp))

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ "\n")
(princ cxp)
(princ "\n")
(princ)
(princ "\n")
(princ cyp)
(princ "\n")
(princ)
(princ "\n")
(princ czp)
(princ "\n")

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ "\n")
(princ cxbb)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ "\n")
(princ cybb)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ "\n")
(princ czbb)

(setq diffx (* -1 (- cxbb cxpp)))
(setq diffy (* -1 (- Cybb cypp)))
(setq diffz (* -1 (- czbb czpp)))

(setq diffxx (rtos diffx)
(setq diffyyy (rtos diffy)
(setq diffzz (rtos diffz)
(setq xxyzz (strcat diffxx "," diffyyy "," diffzz))

(setq note2 (strcat name " - " notay " - " point))
(setq line (strcat "2|" point "0.000" xxyzz "0,00,0,0,0,0,0|pdop=" pdop "0.0000,000" note2 "|"))

(setq fp1 (open "c:\\\autocadsupport\\\\librettopregeo.dat" "a"))
(Schreiblinie fp1)
(Schließe fp)

---------------------------------------------------------------------------------------------------------------

(Befehl "_circle" gaussboaga "0.15")
(setq newtext (strcat " Punkt " - " Punktname))
(Befehl "_change" primiert """" """ """ Newtext)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ count)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ step)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Punkt)
(princ "\n")

(setq count1)
(setq pointn)

(wenn (= Punkt (+ Graf1)))
(Progn)
(setq count2 (+ count1 10))
(setq count3 (itoa count2)
)
(setq count3 count)
)

(setq fp4 (open "c:\\\\\autocadsupport\\\contatori\\counter.dat" "w"))
(writ-line count3 fp4)
(Schreib-Linie Schritt fp4)
(Schließe fp)

(Satzq-Index)

;---------------------------------------------------------------------------------------------------------------------------------------------------

(subst "ok" xlist control)
(subst "ok" xlist control)
(Entfernungsliste)

;---------------------------------------------------------------------------------------------------------------------------------------------------

(Alert "Datum des letzten Gipfels gerettet")

) Endverfahren

die Leitungen (subst "ok" controltz xlist) und (subst "ok" xlist control) wurden unzähligen Variationen unterworfen, keine Änderung des 4. bzw. 5. Elements (1000.1) und (1000 . 2).
Danke.

 

[rpor66]

(setq list (subst (cons 10 newpt) (cons 10 oldpt) list)
Dies ist die Syntax, um im Austausch zu verwenden.
Sobald ich einen Moment habe, sehe ich, dass du deinen Programmcode postest.

 

[Angelo2449]

Danke rpot66,
wie immer!
im letzten Code, den ich geschrieben habe, gibt es die Funktion

 (setq newtext (strcat " Punkt " - " Punktname))
(Befehl "_change" primiert """" """ """ Newtext)

die den bestehenden String-Inhalt mit dem neuen ändern sollte, sollte, weil, nach einer Periode, in der es funktioniert, jetzt nicht mehr funktioniert, ich habe den Code nicht geändert!
Ich möchte den String-Inhalt ändern und ihn nicht ersetzen, um die damit verbundenen erweiterten Daten nicht zu verlieren,
Alternativ könnte ich sie durch die neue ersetzen und mit den erweiterten Daten verknüpfen.
Ich finde, wenn es funktioniert, einfacher zu ändern und zu pflegen.
Danke, Engel2449.