lisp 選択と削除

[lattu]

お問い合わせ
私は単純なリスペスを埋めようとしています(私は私が手配できることを知っていました)が、私はいくつかのことをクリアしていません。
ssgetコマンドを使用して選択し、特定の条件を気にせず、オブジェクトや構造線の種類だけでなく、消去のために正しいコマンドではなく、選択を強制しないと思う。
私が来た瞬間に:

(defun c:cancos)
(ssget "_:l" xline)
(コマンド "_.erase")
(プライアンス)
)

ビジュアルエディタで解析しようとしましたが、何もできない

 

[rpor66]

(ファンc:cancos)
(command "_.erase" (ssget "x" (list (cons 0 "xline"))) ")
(代表)
)

1つ以上の選択を通過し、ダブルクォートで確認する必要があります。

 

[Legs]

別のバージョンに興味がある場合は:

(defun c:cancos ( / と sel))
(repeat (setq と (ssslength (setq sel (sget '(0 . "xline")))))))))))))))))))))))))))))))))))
(Ssname sel (1-i)))))))

代わりに、選択のタップコマンドを直接entdel iterandoを使用してください。
それから、もちろん、これらのことをするために常に selerapid コマンドがあります。

 

[lattu]

(ファンc:cancos)
(command "_.erase" (ssget "x" (list (cons 0 "xline"))) ")
(代表)
)

1つ以上の選択を通過し、ダブルクォートで確認する必要があります。

思ったよりもシンプル

 

[lattu]

別のバージョンに興味がある場合は:

(defun c:cancos ( / と sel))
(repeat (setq と (ssslength (setq sel (sget '(0 . "xline")))))))))))))))))))))))))))))))))))
(Ssname sel (1-i)))))))

代わりに、選択のタップコマンドを直接entdel iterandoを使用してください。
それから、もちろん、これらのことをするために常に selerapid コマンドがあります。

二つ目の lisp が何か異なる場合、気づかなかった
目的は、モデルに存在するすべての構造線を削除するコマンドを作成することです

 

[Legs]

私のプログラムは、rpor66と同じことです。
しかし、一度にすべてを消したいと感じています。 そのため、オペレーターに選択するのは役に立ちません。
あなたのために仕事を聞かせて、コードを変更するだけです。

(defun c:cancos ( / と sel))
(repeat (setq と (ssslength (setq sel (sget "x"(0 . "xline")))))))))))))))))))))))))))))))
(Ssname sel (1-i)))))))

ssget コマンドで "x" を追加しました。 練習では、すべてのデザインに関する研究を行うために彼に伝えます。 明らかにxline フィルターが残っている。
このようにして、オペレータはもはや何も選択してはならない。
コマンドバージョンの消去を引き続き使用し、 "x" を置くことを好みます。
結果はまったく同じです。