• Dieses Forum ist die maschinengenerierte Übersetzung von www.cad3d.it/forum1 - der italienischen Design-Community. Einige Begriffe sind nicht korrekt übersetzt.

lisp vergleicht zwei Dateien

  • Ersteller Ersteller camilla72
  • Erstellt am Erstellt am

camilla72

Guest
Guten Abend, alle!
i autocad 2016, wo kein Befehl verglichen wird.
wissen Sie, ob es eine Lispe gibt, die zwei Dateien vergleicht?
oder dass die Überlappungslinien gelöscht werden, so dass die endgültige Datei nur die Unterschiede zwischen den beiden Dateien ist? ?
 
Hallo.
der dos fc-Befehl vergleicht zwei Dateien und unterstreicht die Unterschiede; Es gibt zahlreiche Mini-Tutorials und/oder Beschreibungen im Netzwerk.
Ich kann nicht glauben
 
für die einfachen Linien, die ich verwenden, nicht autocad, das Problem aber für mich ist ein anderes, und ich möchte verstehen, ob in nativem Autocad gelöst wird.
Durch die Reinigung eines Designs kann ich die tatsächlich gleichen Linien nur löschen, auch wenn mit entgegengesetztem Träger, und ich habe noch Linienbrüche, wenn diese enthalten und zu anderen längeren Segmenten überlappt sind.
das gleiche mit den passenden Flächen, wo der Vergleich noch langsamer ist, weil er noch mehr Vergleiche in der Reihenfolge der Wirbel erfordert, und daher bin ich nicht in der Post. Ich benutze es nur auf kleinen Teilen des gesamten Designs, und es ist den gleichen Defekt wert, wenn eine Oberfläche in einem anderen enthalten ist nicht identifizieren..





Code:
(defun deletelinecopy)
(prompt "\ndelete line copy new: ") (setq selez(ssget))) (setq tot 0 spy 0)
(falls (/= nil selez)
(Progn)
(setq max (länge selez) Contasel 0)
(Während)
(setq en (ssname selez contasel) alist (entget en)
(falls (oder (= "3dline" (cdr(assoc 0 alist))))))))
(Progn)
(setq tot 0)
(setq pnta (cdr(assoc 10 alist))) pntb (cdr(assoc 11 alist))
(Sectq spying 1)
(d.h. (- max contasel ) (/= tot) 1)
(setq en2 (ssname selez (+ Gegenwire spy)) alist2 (entget en2))
(setq pnta2 (cdr(assoc 10 alist2)) pntb2 (cdr(assoc 11 alist2))
(wenn (und (gleich pnta2)(gleich pntb pntb2))
(setq tot 1)
)
(wenn (und (gleich pntb2)(gleich pntb pnta2))
(setq tot 1)
)
(setq Flatness (+ Flatness) 1)
)
) enden, wenn
;wend geschachtelt

(wenn (= tot 1)(entdel en))
(setq tot 0 spy 0)

;(princ (rtos contasel))
(princ)
(setq contasel (+ 1 Buchhalter))
)
) enden, wenn
)
)
 
.... vielleicht bin ich etwas aus der Zeit, um zu antworten... aber Winmergetest:
 

Statistik des Forums

Themen
58.521
Beiträge
499.056
Mitglieder
104.110
Neuestes Mitglied
ChristianR

Zurzeit aktive Besucher

Keine Mitglieder online.
Zurück
Oben