vl-remove 사용 법 좀 여쭤봅니다..

Question

닐스몹Lv.1

등록일: 2020-06-042020-06-04T16:31:16+09:00 2020-06-04T16:31:16+09:00카테고리: AutoCAD & CADian

vl-remove 사용 법 좀 여쭤봅니다..

( (1 2 3) (4 5 6) (7 8 9) ) 이런 리스트가 존재할 때

4(임의의 숫자임)가 포함되어있는 리스트를 지우고 싶을 때 어떻게 해야할까요?

4 답변

캐드플러스 · Answer 1 · 2020-06-08T13:47:17+09:00

4를 포함하는 리스트 (4 5 6)전체를 지우는지 4만 지우는지 명확하게 구분이 안됩니다.

4만 지울때는 vl-remove을 사용하여 일딴 4만 지웠습니다.

(4 5 6)를 지울때는 vl-remove 사용안함.

(defun num_del (/ atm_def list-del i list-3)
(if (= atm nil) (setq atm 4))
(setq atm_def atm)
(if (= (setq atm(getint (strcat “숫자입력<“(itoa atm)”>”))) nil)
(setq atm atm_def)
)
(setq list-del nil)
(setq i 0)

(repeat (length (setq list-3 (list ‘(1 2 3) ‘(4 5 6) ‘(7 8 9))))
    (setq list-del (cons (vl-remove atm (nth i list-3)) list-del))
    (setq i(1+ i))
    )
(setq list-del(reverse list-del))
)

캐드플러스 · Answer 2 · 2020-06-08T14:16:50+09:00

(defun num_del (/ atm_def list-del i list-3)
(if (= atm nil) (setq atm 4))
(setq atm_def atm)
(if (= (setq atm(getint (strcat “숫자입력<“(itoa atm)”>”))) nil)
(setq atm atm_def)
)
(setq list-del nil)
(setq i 0)

(repeat (length (setq list-3 (list ‘(1 2 3) ‘(4 5 6) ‘(7 8 9))))
    (if (= (vl-position atm (nth i list-3))nil)
      (setq list-del (cons (nth i list-3) list-del))
      )
    (setq i(1+ i))
    )
(setq list-del(reverse list-del))
)