선택한 사각형 객체 내부를 자동트림해주는 리습이 있을까요?

Question

eogusLv.0

등록일: 2018-03-092018-03-09T22:07:48+09:00 2018-03-09T22:07:48+09:00카테고리: AutoCAD & CADian

선택한 사각형 객체 내부를 자동트림해주는 리습이 있을까요?

안녕하세요?

도면내에 사각형(pline)을 선택하여 그 내부를 자동으로 트림하려고합니다.
걸쳐있는 글자나 블록은 제외하고 트림하는 lisp을 구합니다.

이것은 기존에 외부 트림이라고 나온것인데

저는 내부를 좀 없애고 싶은데 영 이런 리습방면에 무지라… 좀 수정해주실분 있을까여?

기존 내부 자동트림

(defun c:mp ( / Os_Md Et_pLo Lt_vtx Min_rX Min_rY Max_rX Max_rY
                 _tmp01 _tmp02 _tmp03 _tmp04 _tmL01 _tmAdd _tmRpt)
(setq olderr *error* *error* errchck)
(setq Os_md (getvar “Osmode”))
(setvar “cmdecho” 0)
(setvar “Osmode” 0)
(setq Et_pLo (car (entseL “n 테두리 요소를 선택하세요 “)) ) ;
(redraw Et_pLo 3)
(setq Lt_vtx niL)
(foreach f_e (entget Et_pLo)
    (if (= (car f_e) 10) (setq Lt_vtx (append Lt_vtx (List (cdr f_e))) ) ) ; i
) ; r
(setq Min_rX (min (car (car Lt_vtx)) (car (cadr Lt_vtx)) (car (caddr Lt_vtx)) (car (cadddr Lt_vtx)))
        Max_rX (max (car (car Lt_vtx)) (car (cadr Lt_vtx)) (car (caddr Lt_vtx)) (car (cadddr Lt_vtx)))
        Min_rY (min (cadr (car Lt_vtx)) (cadr (cadr Lt_vtx)) (cadr (caddr Lt_vtx)) (cadr (cadddr Lt_vtx)))
        Max_rY (max (cadr (car Lt_vtx)) (cadr (cadr Lt_vtx)) (cadr (caddr Lt_vtx)) (cadr (cadddr Lt_vtx))) )
(setq _tmp01 (list Min_rX Min_rY)
        _tmp02 (list Max_rX Min_rY)
        _tmp03 (list Max_rX Max_rY)
        _tmp04 (list Min_rX Max_rY) ) ;
(setq _tmL01 1 ; … 최초 이격거리
        _tmAdd 1   ; … 거리 증분
        _tmRpt 150) ; … 반복 횟수
(Command “Erase” “ALL” “R” “C” _tmp01 _tmp03 “”)
(Command “Trim” Et_pLo “”)
(repeat _tmRpt
    (Command “F” (polar _tmp01 (dtr 225) _tmL01) (polar _tmp02 (dtr 315) _tmL01) “”)
    (Command “F” (polar _tmp02 (dtr 315) _tmL01) (polar _tmp03 (dtr 45) _tmL01) “”)
    (Command “F” (polar _tmp03 (dtr 45) _tmL01) (polar _tmp04 (dtr 135) _tmL01) “”)
    (Command “F” (polar _tmp04 (dtr 135) _tmL01) (polar _tmp01 (dtr 225) _tmL01) “”)
    (setq _tmL01 (+ _tmL01 _tmAdd))
) ; r
(Command)
(setq Min_tX (car (getvar “ExtMin”))
        Min_tY (cadr (getvar “ExtMin”))
        Max_tX (car (getvar “ExtMax”))
        Max_tY (cadr (getvar “ExtMax”)) ) ;
(Command “ERASE” “W” (list Min_tX Min_tY) (list Min_rX Max_tY) “”)
(Command “ERASE” “W” (list Min_tX Min_tY) (list Max_tX Min_rY) “”)
(Command “ERASE” “W” (list Min_tX Max_rY) (list Max_tX Max_tY) “”)
(Command “ERASE” “W” (list Max_rX Min_tY) (list Max_tX Max_tY) “”)
(setq Et_List (list (ssget “C” _tmp01 _tmp02 ‘((0 . “TEXT,INSERT”)))
                      (ssget “C” _tmp02 _tmp03 ‘((0 . “TEXT,INSERT”)))
                      (ssget “C” _tmp03 _tmp04 ‘((0 . “TEXT,INSERT”)))
                      (ssget “C” _tmp04 _tmp01 ‘((0 . “TEXT,INSERT”)))) ) ;
(foreach f_e Et_List
    (if f_e
      (progn
        (setq _ij1 0)
        (repeat (sslength f_e)
          (entdel (ssname f_e _ij1))
          (setq _ij1 (1+ _ij1))
        ) ; r
      ) ; p
    ) ; i
) ; f
(setVar “Osmode” Os_Md)
(princ)
) ; de_fun
(defun dtr (_a / ) (/ (* _a pi) 180.) )