Elemente auswählen und erweiterte Dateien hinzufügen

[Angelo2449]

Ich bin immer noch hier.
Ich beantrage:

 (Setq List 1 (Substrate (mit 1000 "ok1") (mit 1000 "1") (mit 1000 "ok2") (mit 1000 "2") Liste
(entmod Listing)

und erhalten die Fehlermeldung: "zu viele Argumente".
Danke.

 

[rpor66]

(setq lista (subst (cons 1000 "ok1") (cons 1000 "1") lista))
(setq lista (subst (cons 1000 "ok2") (cons 1000 "2") lista))
(entmod lista)

Uno alla volta

 

[Angelo2449]

Ich hatte diese Lösung bereits versucht, aber es funktioniert nicht die 4. und 5. gegeben werden nicht geändert, es gibt keinen Fehler.
Dann, wenn ich die drei Anweisungen einfügen, wird der Punktname nicht anders geändert Sie!
Dies ist der Code :

(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")
(vor > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ primed)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ newtext)

(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)

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

(setq listuno (subst (cons 1000 "ok1") (cons 1000 "1") list)
(setq listuno (subst (cons 1000 "ok2") (cons 1000 "2") list)
(anstelle einer Liste)

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

(Alert "Datum des letzten Gipfels gerettet")

) Endverfahren

Es kommt auch vor, dass wenn die Punktauswahl mit einem engen Zoom erfolgt, der Punktname nicht geändert wird.
Ich war in der Ausbildung (setvar "osmode" 0) aber es hat keinen Einfluss, das Problem bleibt.
Danke.

 

[Angelo2449]

Ich habe vergessen zu sagen, dass ich die Anweisungen einfügen

 (setq listauno (subst (cons 1000 "ok1") (cons 1000 "1") lista))
(setq listauno (subst (cons 1000 "ok2") (cons 1000 "2") lista))
(entmod listauno)

Komm!

 (setq lista (subst (cons 1000 "ok1") (cons 1000 "1") lista))
(setq lista (subst (cons 1000 "ok2") (cons 1000 "2") lista))
(entmod lista)

aber das Ergebnis ist identisch.
Ich habe auch die "Liste" Variable aus der ursprünglichen Aussage entfernt, nichts!
Ich schicke Ihnen alle Dateien einschließlich der dwg-Datei.
Danke.

 

[rpor66]

Tut mir leid, ich wusste nicht, dass der Subst es auf die Daten der erweiterten Einheiten angewendet hat.
diese Schritte zu ändern:

- Lesen Sie die Daten und speichern Sie die erweiterten Daten
(Sectq) Liste (Tentget (Treibwagen) '("gruppo"))
(setq) xd_ent (cdr) Liste)

- der Code-Abschnitt
(Setq-Liste (Unterseite (cons 1000 "ok1") (cons 1000 "1")-Liste)
(Setq-Liste (Unterseite (cons 1000 "ok2") (cons 1000 "2")-Liste)

Ersetzen Sie es durch Rekonfiguration erweiterter Daten; Lesen Sie die Daten, ändern Sie die variablen Werte und recompilieren Sie die Liste (es ist ein Beispiel, ich habe nicht Ihren Anteil an Code, wo Sie die Daten lesen):
(Sectq) Die Nist (Liste "gruppo" (cons 1000 txt1) (cons 1000 txt2) (cons 1040 del)))
(setq) Liste (Unterseite) Die Nist) (cons -3 xd_ent) Liste)
(entsprechend Liste)

praktisch ändern in einem Schuss nur die gesamte Subliste der erweiterten Daten, gekennzeichnet durch -3.

 

[Angelo2449]

Danke rpor66,
Ich glaube, ich habe nicht gut verstanden, ich habe auf jeden Fall falsch, Ihre Vorschläge und ich habe Probleme.
Ein bisschen mehr Geduld, bitte.

(defun c:final (/ fc3 control7 check5 list xlist txt1 name 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))))
(setq xd_ent (cdr -3 list))
)

(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")
(vor > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ primed)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ newtext)

(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)

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

(setq nlist (list "group" (cons 1000 "undefiniert") (cons 1000 point name))))
(setq list (subst (cons -3 nlist) (cons -3 xd_ent) list)
(Entfernungsliste)

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

(Alert "Datum des letzten Gipfels gerettet")

) Endverfahren

Ich will wirklich wissen, wo das Problem ist, danke.

 

[Angelo2449]

Ich glaube, ich habe es repariert, es sieht so aus, als ob es funktioniert!
Ich werde dich morgen informieren.

 

[Angelo2449]

Hallo rpor66,
das endgültige Verfahren < endlich funktioniert, jetzt schreibe ich diesen Code:

 (defunc c:aripo (/ Pointa puntob ray string gb gaussboaga np point)

(setq Punkt (Auto (entsel "\nselect the point")))

(setq string (entget point))
(setq np (assoc 1 string)
(setq gb (assoc 10 string))

(setq gaussboaga (cdr gb)
(Satzname (cdr np))

(Setq Radius 1.00)

(setq ecef "44444444444.444,555555555555.666666666666")
(Setq Station "2000")

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

(setq xd_ent (cdr -3 string))

(setq xlist (list "group" (cons 1000 point name) (cons 1000 ecef) (cons 1000 gaussboaga)))
(setq list (subst (cons -3 xlist) (cons -3 xd_ent) list)

(Entfernungsliste)

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

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

> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ string)
(princ "\n")

> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ gaussboaga)
(princ "\n")

> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Bezugsname)
(princ "\n")

(bitte)
(Befehl "_erase" gaussboaga ")
(Befehl "_circle" gaussboaga ray)

(setq postratt (vl-string-search "-" Punktname))
(Eingabeq Vorname (Unterpunktname (+ Postratt 3)))
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(erster Punkt)
(princ "\n")

(Befehl "_text" gaussboaga 0.40 Vorname)
)

Ich möchte den Punkt, der ausgewählt wird, zur "Gruppe" gehören und die in xlist aufgeführten Elemente zuordnen.
Ich würde, weil der Code nicht funktioniert!
Danke.

 

[rpor66]

(setq xd_ent (cdr) Streichung))

(setq xlist (list "gruppo" (cons 1000 nomepunto) (cons 1000 ecef) (cons 1000 gaussboaga) (cons 1000 stazione) (cons 1000 "non-definito"))))
(setq lista (subst (cons -3 xlist))) (cons -3 xd_ent) Liste)

1) Extrahieren Sie die Liste der erweiterten Daten aus String (die Originalliste ist)
2) Neue Liste erstellen
3) ersetzen Sie die Liste der erweiterten Daten in der Liste (die nil ist); Ersetzen Sie sie mit String.

 

[Angelo2449]

Danke.
Nun dreht sich das Programm ohne Fehler, aber was dann extrahiert die Daten nicht funktioniert, einfach zu verstehen, warum aber ich kann es nicht beheben:

(defun c:estraiext (/ fc3 Listenname ecef gaussboaga controltz controllerpt)

(setq fc3 (findfile "c:\\\\\autocadsupport\\\extended.dat"))

(falls fc)
(vl-file-delete "c:\\\autocadsupport\'esteso.dat")
)

(Setq-Liste (entget (entsel))))
(setq xlist (assoc -3 list)

(wenn (= xlist nil)
(Alert "der ausgewählte String ist nicht geeignet, keine erweiterten Daten sind zugeordnet!")
)

(setq ylist (assoc 1 list)
(setq txtdata (car))

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ xlist)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ ylist)
(princ "\n")
(princ > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txtdata)
(princ "\n")

(Satzname (cdr ylist)
(setq ecef (nth 2 txtdata)))
(setq gaussboaga (nth 3 txtdata)))
(Setq Controllerstz (nth 4 txtdata)))
(setq controlpt (cdr (nth 5 txtdata)))

(setq fp2 (open "c:\\\\\\autocadsupporto\esteso.dat" "w"))
(Schreibpunktname fp2)
(writ-line ecef fp2)
(writ-line gaussboaga fp2)
(write-line-Controller fp2)
(writing line controlpt fp2)
(Schließe fp)

(setq control8 nil)
(while)
(setq control8 (findfile "c:\\\autocadsupport\extend\\\'esteso.dat"))
)

(falls control8
(Start "c:\autocadsupporto\liberty\estesi.exe "c:\\autocadsupporto\\liberty\estesi.tkn")
)


)

grazie.

 

[Angelo2449]

Hier bin ich wieder,
Ich habe Ihre wertvollen Vorschläge mit großen Ergebnissen angewendet, aber das will nicht wissen, wie man richtig arbeitet!
Ich schrieb die Routine, es funktioniert, dann habe ich den Teil zwischen die beiden Doppelzeilen der Bindestriche eingefügt und das vierte Element der Daten funktioniert nicht:

(defun c:acelerimetrico2dinput (/ fc2 fp1 control1 fp5 fp1 name puntoone notion dotted cx cy xyz comment dist Winkelstr lung Winkelstr gaussboaga oldlist np name thedata newlist)

(falls)
(Progn)
(setq fp1 (open "c:\\\autocadsupporto\help\datihelp.dat" "w"))
(writ-line "celerimetric2dinput" fp1)
(Schließe fp)
(startapp "c:\autocadsupporto\liberty\\helpgen.exe "c:\\autocadsupport\\\liberty\\\helpgen.tkn")
(Auszug)
)
)

(setq fc2 (findfile "c:\\\\\\autocadsupporto\celerimetric\\\datiori.dat"))

(falls fc)
(vl-file-delete "c:\\\autocadsupport\\celerimetric\\\\\datiori.dat")
)

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

(startapp "c:\autocadsupport\\liberty\2dceloriinput.exe "c:\\autocadsupport\\liberty\\2dceloriinput.tkn")

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

(setq gefleckt (getpoint "\nclick point"))

(seq control1 nil)
(while (= Steuerung 1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\celerimetric\\\\\ datiori.dat"))
)

(wenn (= Steuerung 1 "c:\\autocadsupport\\celerimetric\\datiori.dat")
(Progn)
(setq fp5 (offen "c:\\\\\\autocadsupporto\celerimetric\\\\\datiori.dat" "r"))
(setq name puntoone (read-line fp5))
(setq notaone (read-line fp5))
(Schließe fp)
)
)

(Befehl "_circle" Punkt 0,15)

(Setq cx)
(setq cy)

(setq cxx (+ cx 0.00))
(setq cyyy (+ cy 0.25))

(setq xyz (list cxx cyy 0.0)

(Druck xyz)
(Druck "\n")

(Befehl "_text" xyz 0.40 0 (Strcat "name))
(Befehl "_change" "_last" "_p" "_c" "_red"")

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

(setq Namensgebung (entlast))
(Seq Objekt "Gruppe")

(wenn nicht (tblsearch "appid" object)
(Entfernungsobjekt)
)

(setq oldlist (entget nomeentita)
(setq gaussboaga (strcat (rtos cx) "," (rtos cy)

(Eingabe der Daten (Liste -3 (cons 1000 nomepuntoone) (cons 1000 "---------") (cons 1000 gaussboaga) (cons 1000 "-------------") (cons 1000 "definite")))

(Setq neue Liste)
(entmod newlist)

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

(Befehl "_line" Punkt1 ")
(setq dist (Punkt 1 Punkt))

(Einstellwinkel (- oder Gangwinkel (Winkelpunkt 1 Punkt)))
(falls (< Winkel 0 ) (Querwinkel (+* 2 Pi))))
(Setq Winkelstr (Winkel 2 4))
(setq lung) (- (starke Winkelstr) 1)
(Setq Winkelstr (Substr Winkelstr 1 Lunge))

(setq Kommentar notary)

(setq fp2 (offene "c:\\\\autocadsupport\\\\librettopregeo.dat" "a"))

(falls)
(setq txtoutldue (strcat "2|" name "|" Eckestr "|" (rtos dist 2 3) "")")
(setq txtoutldue (strcat "2|" name "|" Eckestr "|" (rtos dist 2 3) "|" Kommentar "|")
)

(writ-line txtoutldue fp2)
(Schließe fp)

(Alert "horizontale Daten gespeichert")
(princ "\n")

)

Ich bekomme diese Fehlermeldung:

Befehl: ; fehler: falsch dxf group: (-3 ("group" (1000 . "1060") (1000 . "---------") (1000 . "1498792.8525.50429.7398") (1000 . "definite"))

wo das vierte Element, anstatt "----------------," nichts ist!
Lisp = Verzweiflung!
Danke.

 

[Angelo2449]

Hier bin ich wieder,
Ich habe Ihre wertvollen Vorschläge mit großen Ergebnissen angewendet, aber das will nicht wissen, wie man richtig arbeitet!
Ich schrieb die Routine, es funktioniert, dann habe ich den Teil zwischen die beiden Doppelzeilen der Bindestriche eingefügt und das vierte Element der Daten funktioniert nicht:

(defun c:acelerimetrico2dinput (/ fc2 fp1 control1 fp5 fp1 name puntoone notion dotted cx cy xyz comment dist Winkelstr lung Winkelstr gaussboaga oldlist np name thedata newlist)

(falls)
(Progn)
(setq fp1 (open "c:\\\autocadsupporto\help\datihelp.dat" "w"))
(writ-line "celerimetric2dinput" fp1)
(Schließe fp)
(startapp "c:\autocadsupporto\liberty\\helpgen.exe "c:\\autocadsupport\\\liberty\\\helpgen.tkn")
(Auszug)
)
)

(setq fc2 (findfile "c:\\\\\\autocadsupporto\celerimetric\\\datiori.dat"))

(falls fc)
(vl-file-delete "c:\\\autocadsupport\\celerimetric\\\\\datiori.dat")
)

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

(startapp "c:\autocadsupport\\liberty\2dceloriinput.exe "c:\\autocadsupport\\liberty\\2dceloriinput.tkn")

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

(setq gefleckt (getpoint "\nclick point"))

(seq control1 nil)
(while (= Steuerung 1 nil)
(setq control1 (findfile "c:\\\autocadsupport\\celerimetric\\\\\ datiori.dat"))
)

(wenn (= Steuerung 1 "c:\\autocadsupport\\celerimetric\\datiori.dat")
(Progn)
(setq fp5 (offen "c:\\\\\\autocadsupporto\celerimetric\\\\\datiori.dat" "r"))
(setq name puntoone (read-line fp5))
(setq notaone (read-line fp5))
(Schließe fp)
)
)

(Befehl "_circle" Punkt 0,15)

(Setq cx)
(setq cy)

(setq cxx (+ cx 0.00))
(setq cyyy (+ cy 0.25))

(setq xyz (list cxx cyy 0.0)

(Druck xyz)
(Druck "\n")

(Befehl "_text" xyz 0.40 0 (Strcat "name))
(Befehl "_change" "_last" "_p" "_c" "_red"")

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

(setq Namensgebung (entlast))
(Seq Objekt "Gruppe")

(wenn nicht (tblsearch "appid" object)
(Entfernungsobjekt)
)

(setq oldlist (entget nomeentita)
(setq gaussboaga (strcat (rtos cx) "," (rtos cy)

(Eingabe der Daten (Liste -3 (cons 1000 nomepuntoone) (cons 1000 "---------") (cons 1000 gaussboaga) (cons 1000 "-------------") (cons 1000 "definite")))

(Setq neue Liste)
(entmod newlist)

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

(Befehl "_line" Punkt1 ")
(setq dist (Punkt 1 Punkt))

(Einstellwinkel (- oder Gangwinkel (Winkelpunkt 1 Punkt)))
(falls (< Winkel 0 ) (Querwinkel (+* 2 Pi))))
(Setq Winkelstr (Winkel 2 4))
(setq lung) (- (starke Winkelstr) 1)
(Setq Winkelstr (Substr Winkelstr 1 Lunge))

(setq Kommentar notary)

(setq fp2 (offene "c:\\\\autocadsupport\\\\librettopregeo.dat" "a"))

(falls)
(setq txtoutldue (strcat "2|" name "|" Eckestr "|" (rtos dist 2 3) "")")
(setq txtoutldue (strcat "2|" name "|" Eckestr "|" (rtos dist 2 3) "|" Kommentar "|")
)

(writ-line txtoutldue fp2)
(Schließe fp)

(Alert "horizontale Daten gespeichert")
(princ "\n")

)

Ich bekomme diese Fehlermeldung:

Befehl: ; fehler: falsch dxf group: (-3 ("group" (1000 . "1060") (1000 . "---------") (1000 . "1498792.8525.50429.7398") (1000 . "definite"))

wo das vierte Element, anstatt "----------------," nichts ist!
Lisp = Verzweiflung!
Danke.

 

[rpor66]

Hast du versucht, das Osnap abzuschalten? verwendet, um zu überprüfen, wann immer Sie etwas auf dem Bildschirm zeichnen, die Notwendigkeit aktiviert Osnap.

 

[Angelo2449]

Danke rpor,
muss ich "osnap" auf Null setzen oder was?
Eine weitere Frage, ich kann diese Routinearbeit nicht machen, ich bekomme immer die Nachricht "falsches Thema" :

(defun c:estraiext (/ fc3 Listenname ecef gaussboaga checktz controlpt nomex)

(wenn (= Primariga nil)
(Progn)
(Alert "Sie müssen zuerst die Erleichterung mit > Vorbereitungsstellen vorbereiten <")
;(Ausgang)
)
)

(setq fc3 (findfile "c:\\\\\autocadsupport\\\extended.dat"))

(falls fc)
(vl-file-delete "c:\\\autocadsupport\'esteso.dat")
)

(Setq-Liste (entget (entsel))))

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

(setq xlist (assoc -3 list)

(wenn (= xlist nil)
(Alert "der ausgewählte String ist nicht geeignet, keine erweiterten Daten sind zugeordnet!")
)

(setq ylist (assoc 1 list)
(setq txtdata (car))

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ xlist)
(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ ylist)
(princ "\n")
(princ > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txtdata)
(princ "\n")

(setq nomex (cdr)
(Satzart des Punktes (nth 2 txtdata))
(Satzanteil (cdr (nth 3 txtdata)))
(setq ecef (nth 4 txtdata))
(setq gaussboaga (cdr 5 txtdata))
(Setq Controllerstz (nth 6 txtdata)))
(setq controlpt (nth 7 txtdata)))

(setq fp2 (open "c:\\\\\\autocadsupporto\esteso.dat" "w"))
(writ-line namex fp2)
(Schreibpunkttyp fp2)
(Schreibquote fp2)
(writ-line ecef fp2)
(writ-line gaussboaga fp2)
(write-line-Controller fp2)
(writing line controlpt fp2)
(Schließe fp)

(setq control8 nil)
(while)
(setq control8 (findfile "c:\\\autocadsupport\extend\\\'esteso.dat"))
)

(falls control8
(Start "c:\autocadsupporto\liberty\estesi.exe "c:\\autocadsupporto\\liberty\estesi.tkn")
)


)

das Problem liegt definitiv in der Definition der 7 Parameter von "txtdata" nicht verstehen den Grund.
Ich nutze diese Routine, nachdem ich diese andere durchgeführt habe:

(defun c:preparapunti (/ Objektstring n Entitätenta text txt1 txt2 lungh thedata newlist namepoint typepoint zitateslm nomex)

(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))

(Satzname (cdr txt1))

(setq pospar (vl-string-search)
(setq nomex (substr point 1 (- pospar 1)))

(princ "\n")
(Prinzip "nomex > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ nomex)
(princ "\n")

(setq Quote (substr point name (+ pospar) 2) 6)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Hauptzollkontingent)
(princ "\n")

(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")

(princ "\n")
(setq ecef (substr txt2 (+ 2 lungh) 35))
(princ ecef)
(princ "\n")
(Setq-Typ "generischer" Punkt)
(Setq cstz "nicht enthalten")
(setq cpt "undefiniert")

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

(Setq neue Liste)
(entmod newlist)

(Befehl "_change" entita "" "" """ """ "" nomex)
);Repeat

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

;

Grazie!

 

[Angelo2449]

Ich schaffte es, die "extraiext" Routine zu reparieren, jetzt funktioniert es, das ist der Code:

(defun c:estraiext (/ fc3 Listenname ecef gaussboaga checktz controlpt nomex)

(wenn (= Primariga nil)
(Progn)
(Alert "Sie müssen zuerst die Erleichterung mit > Vorbereitungsstellen vorbereiten <")
;(Ausgang)
)
)

(setq fc3 (findfile "c:\\\\\autocadsupport\\\extended.dat"))

(falls fc)
(vl-file-delete "c:\\\autocadsupport\'esteso.dat")
)

(Setq-Liste (entget (entsel))))

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

(setq xlist (assoc -3 list)
(setq txtdata (car))

(princ "\n")
(princ > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ txtdata)

(wenn (= xlist nil)
(Alert "der ausgewählte String ist nicht geeignet, keine erweiterten Daten sind zugeordnet!")
)

(setq string)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ string)

(setq nomex (cdr)
(setq nomex (substr nomex 2))
(Satzart des Punktes (nth 2 txtdata))
(Satzanteil (cdr (nth 3 txtdata)))
(setq ecef (nth 4 txtdata))
(setq gaussboaga (cdr 5 txtdata))
(Setq Controllerstz (nth 6 txtdata)))
(setq controlpt (nth 7 txtdata)))

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ nomex)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ type-point)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Hauptzollkontingent)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ ecef)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(princ gaussboaga)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Princ Controllerstz)

(princ "\n")
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > >
(Princ Controllerpt)
(princ "\n")

(setq fp2 (open "c:\\\\\\autocadsupporto\esteso.dat" "w"))
(writ-line namex fp2)
(Schreibpunkttyp fp2)
(Schreibquote fp2)
(writ-line ecef fp2)
(writ-line gaussboaga fp2)
(write-line-Controller fp2)
(writing line controlpt fp2)
(Schließe fp)

(setq control8 nil)
(while)
(setq control8 (findfile "c:\\\autocadsupport\extend\\\'esteso.dat"))
)

(falls control8
(Start "c:\autocadsupporto\liberty\estesi.exe "c:\\autocadsupporto\\liberty\estesi.tkn")
)

)

bleibt die Frage nach "osnap", danke.

 

[rpor66]

in der vorherigen Diskussion hatte ich eine Funktion eingefügt:
(defun setosnaponoff(mode/osmode)
(setq osmode (getvar "osmode")
(falls)
(falls) osmode 16384)
(Setvar "osmode" (- osmode 16384))
)
(falls) osmode 16384)
(setvar "osmode" (+ osmode 16384))
)
)
)

Fügen Sie es in die Datei lisp ein oder erstellen Sie eine Datei, die Sie von Ihrem zurückruft, wenn Sie das Osnap ausschalten möchten, fügen Sie den Befehl (setosnaponoff "off") hinzu und wenn Sie es einschalten möchten (setosnaponoff "on").
Dies hat den Vorteil gegenüber osmode=0, dass, wenn Sie die Osnap setzen nicht verlieren.

 

[Angelo2449]

Danke. Ich habe es direkt in die Routine gesetzt.