Lisp wählt und löscht

[lattu]

Hallo alle
Ich versuche eine einfache Lispe auszufüllen (ich wusste, dass ich arrangieren könnte), aber ich bin nicht klar ein paar Dinge:
zu wählen, verwenden Sie den ssget-Befehl und ich kümmern mich nicht um bestimmte Bedingungen, sondern nur die Art von Objekt- oder Konstruktionslinien, während für die Löschung ich denke, es ist der richtige Befehl, aber nicht zwingen die Auswahl ich nicht wissen..
im Moment bin ich gekommen:

(defun c:cancos ()
(ssget "_:l" xline)
(Befehl "_.erase")
(princ)
)

Ich versuchte es mit dem visuellen Editor Lisp zu analysieren, aber ich konnte nichts tun

 

[rpor66]

(Stimme c:cancos)
(Befehl "_.erase" (Verzeichnis "x" (Liste "xline"))")
(principal)
)

Sie müssen eine oder mehrere Auswahlen bestehen und diese durch doppelte Zitate bestätigen.

 

[Legs]

wenn Sie eine andere Version interessieren können:

(defun c:cancos ( / und sel)
(Repeat (setq und (ssslength (setq sel (ssget '(0 . "xline")))))))))))))
(Ssname sel (setq und (1-i)))))

anstatt den Tap-Befehl direkt iterando auf der Auswahl zu verwenden.
Dann gibt es natürlich immer selerapid Befehl, diese Dinge zu tun.

 

[lattu]

(Stimme c:cancos)
(Befehl "_.erase" (Verzeichnis "x" (Liste "xline"))")
(principal)
)

Sie müssen eine oder mehrere Auswahlen bestehen und diese durch doppelte Zitate bestätigen.

einfacher als ich dachte

 

[lattu]

wenn Sie eine andere Version interessieren können:

(defun c:cancos ( / und sel)
(Repeat (setq und (ssslength (setq sel (ssget '(0 . "xline")))))))))))))
(Ssname sel (setq und (1-i)))))

anstatt den Tap-Befehl direkt iterando auf der Auswahl zu verwenden.
Dann gibt es natürlich immer selerapid Befehl, diese Dinge zu tun.

Ich wusste nicht, ob der zweite Deckel etwas anderes tut.
Ziel ist es, einen Befehl zu erstellen, der alle im Modell vorhandenen Baulinien entfernt

 

[Legs]

Mein Programm macht genau dasselbe wie rpor66.
Aber Sie wollen sie auf einmal löschen. Daher ist es nutzlos, die Auswahl an den Bediener vorzunehmen.
Ändern Sie einfach den Code, indem Sie die Arbeit für Sie auslassen.

(defun c:cancos ( / und sel)
(Repeat (setq und (ssslength (setq sel (ssget "x"(0 . "xline")))))))))))
(Ssname sel (setq und (1-i)))))

wie Sie sehen, habe ich im Ssget-Befehl eine "x" hinzugefügt. in der Praxis sagt ihm, die Forschung über alles Design zu tun. offensichtlich bleibt der xline Filter.
Auf diese Weise darf der Bediener nichts mehr auswählen.
wenn Sie es vorziehen, die Befehlsversion weiter zu verwenden und die "x" zu setzen.
das Ergebnis ist genau das gleiche.