歡迎來到http://www.tljciu.live !
當前位置:六六工程資料網建筑課堂工程資料工程測量圓弧轉多段線

圓弧轉多段線

08-22 13:58:07  瀏覽次數:796次  欄目:工程測量
標簽:工程測量規范,工程測量技術, 圓弧轉多段線,http://www.tljciu.live
圓弧轉多段線 ;圓弧轉多段線
;h為弓高(即弦中心至相對應弧之中心的距離)
;它用來描述以弦代弧的光滑程度,一般化取0.005mm(圖上距離)即可
(defun arc->pline(ent h / xtblm xtblz db r po a0 h n)
   (setq xtblm '("cmdecho" "osmode")
  xtblz (mapcar 'getvar xtblm)
  db (entget ent)  r (cdr (assoc 40 db))
  po (cdr (assoc 10 db))  
  a0 (cdr (assoc 50 db))
  db (- (cdr (assoc 51 db)) a0)
  db (cond ((< db 0) (+ (* 2.0 pi) db))
    (t               db)
     )
  n  (fix (/ db (atan (/ (sqrt (- (* 2.0 r h) (* h h))) (- r h)))))
  db (/ db n)
   )
   (mapcar 'setvar xtblm '(0 0))
   (command "_pline" (polar po a0 r))
   (repeat n (command (polar po (setq a0 (+ a0 db)) r)))
   (command "" "_matchprop" ent (entlast) "" "_erase" ent "" "redraw")
   (mapcar 'setvar xtblm xtblz)(princ)
)
;測試程序
(defun c:cc()
   (setq t0 (getvar "cdate"))
   (arc->pline (car (entsel "\n請選取要轉化多段線的圓弧:")) 0.005)
   (princ (strcat "\n耗時:" (rtos (* 1000000 (- (getvar "cdate") t0) 2 3)) "秒"))
   (princ)
),圓弧轉多段線

++《圓弧轉多段線》相關文章

  • 圓弧轉多段線
  • 在百度中搜索相關文章:圓弧轉多段線
  • tag: 暫無聯系方式, 工程測量,工程測量規范,工程測量技術,工程資料 - 工程測量
22选五的开奖公告