홈/ 질문/Q 113459
다음
진행 중
Lv.0
등록일: 2021-11-26T14:40:05+09:00 카테고리:

중심선 삭제하는 리습 있을까요?

선 색상의 선택없이 선 종류 ‘center’ 만 선택해서 삭제할 수 있는 리습이 있을까요?

리습을 잘모르는데 문자 삭제하는 리습에 살짝 바꿔서 사용 할수 있나요?
(defun c:SEE(/ ses)
  (setq ses (ssget'((0 . “TEXT,DIMENSION,LEADER,MTEXT”))))
  (if ses (command “erase”  ses “”))
(princ)
)
공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.0
      제가 만든 건 아니고,
      예전에 어디선가 다운받은 리습입니다.
      center 라인만 지우는 리습은 아니고,
      삭제할 선종류를 처음에 선택해야 합니다.
      (defun c:111 (/ en ent color layer ss ssn entn) 
      (defun *error* (msg) (princ) )
      (setq entn nil)
        (while (= entn nil)
      (setq en (car (entsel “삭제할 선종류의 객체를 선택하세요.”)))
          (while ( = en nil)
               (setq en (car (entsel “삭제할 선종류의 객체를 선택하세요.”)))
      ) 
      (setq ent (entget en) entn (cdr (assoc 6 ent)) )
      (if (= entn nil) (progn
        (alert “선택한 객체의 라인타입이 Bylayer 입니다.”)
      ));if end
        );while end
         (princ “nLine-Type : “)
          (princ entn)

        (while (> 1 0)
         (setq ss nil)
          (setq ss (ssget (list (cons 6 entn))))
            (if (= ss nil)  
                (alert “적용 가능한 객체가 없습니다.”)
                (progn
          (setq ssn (itoa (sslength ss)))
                          (command “erase” ss “”)
          (princ (strcat “nErase : ” ssn) )
          (princ)
                );progn end
              );if end
          (princ)
        ) ;while end
      );defun end

      • 0

    3. 필터랑 비슷하네요 감사합니다 잘사용하겠습니다.

      • 0
    4. Lv.11

      엔씨밴딩님의 nck 컴팩트 기능중 see 명령어 중심선 선택시 중심선 삭제 기능이 나옵니다

      • 0