CONTOUR PLINE 정점 축소관련 LISP은 없나요?

;;;등고선 부드럽게하는 프로그램
;;;명령어-scon

 

;;; 필독사항:
;;;          1.반드시 Autocad Map 의 도면정비(Drawing Cleanup)서
;;;            직선화(Simplify Object)만 실행한다.(공차값 0.5정도)

 

;;;      2.위의 도면정비를 실행한후에는 폴리선의 곡선 부분에 arc가 생기는데 리습을 실행하면
;;;            arc를 삭제한 폴리선(arc 부분에만 버텍스 추가한다)을 다시 생성한다.

 

;;;          3.폴리선 새로운 레이어 생성
;;;                    예)caa001 —> new_caa001
;;;                       caa002 —> new_caa002

 

(defun Get_PolyVtx (EntList / x VtxList AA)
  (setq VtxList ‘())
  (cond
    ((= “LWPOLYLINE” (CDR (ASSOC 0 EntList)))
     (foreach x EntList
       (if (= (car x) 10)
  (setq VtxList (append VtxList (list (cdr x))))
       )
     )
    )
    ((= “POLYLINE” (CDR (ASSOC 0 EntList)))
     (SETQ AA (ENTGET (ENTNEXT (CDR (ASSOC -1 EntList)))))
     (WHILE (/= “SEQEND” (CDR (ASSOC 0 AA)))
       (setq VtxList (append VtxList (list (cdr (ASSOC 10 AA)))))
       (SETQ AA (ENTGET (ENTNEXT (CDR (ASSOC -1 AA)))))
     )
    )
  )
  VtxList
)

 

(defun Get_bulge (EntList / x VtxList AA)
  (setq VtxList ‘())
  (cond
    ((= “LWPOLYLINE” (CDR (ASSOC 0 EntList)))
     (foreach x EntList
       (if (= (car x) 42)
  (setq VtxList (append VtxList (list (cdr x))))
       )
     )
    )
    ((= “POLYLINE” (CDR (ASSOC 0 EntList)))
     (SETQ AA (ENTGET (ENTNEXT (CDR (ASSOC -1 EntList)))))
     (WHILE (/= “SEQEND” (CDR (ASSOC 0 AA)))
       (setq VtxList (append VtxList (list (cdr (ASSOC 42 AA)))))
       (SETQ AA (ENTGET (ENTNEXT (CDR (ASSOC -1 AA)))))
     )
    )
  )
  VtxList
)

 

(defun bulge->arc
       (p1 p2 arc / delta chord direction radius center slength)
  (setq delta   (* (atan arc) 4)
 chord   (distance p1 p2)
 direction (angle p1 p2)
 radius   (/ chord (sin (/ delta 2)) 2)
 center   (polar p1 (+ direction (/ (- pi delta) 2)) radius)
 radius   (abs radius)
 slength   (abs (* delta radius))
  )
  (list center radius slength)
)

 

(defun Get_mid_pt (pt1_xy pt2_xy)
  (setq x_val (/ (+ (car pt1_xy)
      (car pt2_xy)
   )
   2
       )
  )
  (setq y_val (/ (+ (cadr pt1_xy)
      (cadr pt2_xy)
   )
   2
       )
  )
  (list x_val y_val)
)

 

(defun c:scon ()
  (princ “n     도면정비를 하셨나요 ?????”)
  (setq OldVarList (list “OSMODE” “CLAYER”))
  (setq OldVarValue (mapcar ‘getvar OldVarList))
  (setvar “cmdecho” 0)
  (command “undo” “be”)
  (setvar “osmode” 0)

 

  (setq con_ss (ssget))
  (princ ”     Processing……   Please wait !!!!”)
  (terpri)
  (setq rep_no (sslength con_ss))
  (setq count 0)
  (if (/= rep_no nil)
    (progn
      (repeat rep_no
 (setq en (ssname con_ss count))
 (setq 10_value (Get_PolyVtx (entget en)))
 (if (= (cdr (assoc 70 (entget en))) 1)
   (setq 10_value (append 10_value (list (nth 0 10_value))))
 )
 (setq get_layer (cdr (assoc 8 (entget en))))
 (setq get_elev (cdr (assoc 38 (entget en))))
 (setq set_layer (strcat “new_” get_layer))
 (command “layer” “m” set_layer “s” set_layer “”)
 
 
 (setq 42_value (Get_bulge (entget en)))
 (setq chk_no (- (length 10_value) 1))
 (setq chk_count 0
       poly_list ‘()
 )
 (repeat chk_no
   (setq poly_list
   (append poly_list (list (nth chk_count 10_value)))
   )
   (if (/= (nth chk_count 42_value) 0)
     (progn
       (setq p1 (nth chk_count 10_value))
       (setq p2 (nth (+ chk_count 1) 10_value))
       (setq arc (nth chk_count 42_value))
       (setq ret_val (bulge->arc p1 p2 arc))
     ;arc 의 중심점을 구한다.
       (setq center_pt (nth 0 ret_val))
     ;arc 의 반지름을 구한다.
       (setq radius_val (nth 1 ret_val))
     ;직선의 중간점을 구한다.

 

       (setq mid_pt (Get_mid_pt
        (nth chk_count 10_value)
        (nth (+ chk_count 1) 10_value)
      )
       )
       (setq
  mid_pt- (Get_mid_pt (nth chk_count 10_value) mid_pt)
       )
       (setq mid_pt+ (Get_mid_pt
         mid_pt
         (nth (+ chk_count 1) 10_value)
       )
       )

 

 

 

     ;arc의 중심점 에서 직선의 중간점으로의 각도를 구한다.
       (setq add_pt_ang (angle center_pt mid_pt))
;;;       (setq add_pt_ang- (angle center_pt mid_pt-))
;;;       (setq add_pt_ang+ (angle center_pt mid_pt+))

 

     ;arc의 중간점좌표를 구한다.
       (setq add_pt (polar center_pt add_pt_ang radius_val))
;;;       (setq add_pt- (polar center_pt add_pt_ang- radius_val))
;;;       (setq add_pt+ (polar center_pt add_pt_ang+ radius_val))

 

     ;새로운 폴리선의 리스트에 arc의 중간점좌표를 추가한다.
;;;       (setq poly_list
;;;       (append poly_list (list add_pt-))
;;;       )
       (setq poly_list
       (append poly_list (list add_pt))
       )
;;;       (setq poly_list
;;;       (append poly_list (list add_pt+))
;;;       )

 

 

 

     )
   )

 

   (setq chk_count (1+ chk_count))
 )
 (setq poly_list (append poly_list (list (nth chk_no 10_value))))
     ;버텍스를 추가한 폴리선을 새롭게 그린다.
 (command “pline”)
 (foreach n poly_list (command n))
 (command “”)
 (setq last_pl (entlast))
 (command “CHANGE” last_pl  “” “P” “e” get_elev “”)

 

 (setq count (1+ count))
      )
    )
  )
  (mapcar ‘setvar OldVarList OldVarValue)
  (princ)
)