UG倒出2D圆变样条解决方案

xiangzanyang

ug三维中的圆，在制图投影导出到CAD中总是变成了样条线，每次标直径尺寸都要用三点描圆，很是麻烦，我做了个小程序，分享给大家，可以在CAD中把样条变成圆，比三点描圆快多了，且可以一次多选！ 样条成圆.rar (768 Bytes, 下载次数: 6, 售价: 1 G币)

2016-5-12 22:58 上传

点击文件名下载附件
lisp
阅读权限: 10

; F) F+ D% F5 C' \% M7 ^( |AUTO CAD加载解压后的LISP程序，CAD命令行输入：YY启动命令！
程序如下：
8 Z) @  a( t, f4 Q% w
(defun c:yy (/     ss    object oname  fitplt spt1 spt2 spt3
4 j/ T' x6 Z4 u" p9 U& J' s, _. U      spen   object2   clo  i dd     linw   lint
# @0 ^2 {1 L9 l! M      lay    a    b   fixpoint jj     colo
. a0 D' ?$ b2 \2 D8 Z9 W     )
& O0 t9 W5 a# o  (vl-load-com)
  (setq ss (ssget '((0 . "SPLINE"))))
3 c' l! Y& i# L3 Q+ ]: p2 _0 s- t  (repeat (setq i (sslength ss))
# r, m9 q  o" z, t3 K( ^- H+ H: f    (setq object (vlax-ename->vla-object (ssname ss (setq i (1- i)))))
    (setq clo (vla-get-closed object))
    (setq colo (vla-get-color object))
    (setq lay (vla-get-layer object))
3 @' U3 N; j8 g) k( W    (setq lint (vla-get-linetype object))
- H+ M+ u$ X1 |# g- m0 H; ~& |    (setq linw (vla-get-lineweight object))
    (if (= (vla-get-splinemethod object) 1)
      (vla-put-splinemethod object 0)
# y1 {# z; r/ J: v* P+ o8 m( V6 X    )
, x: ~& a1 P3 s/ \9 ]    (setq fixpoint (vla-get-numberoffitpoints object))
    (setq fitplt (vlax-safearray->list
% B! \* B1 B/ Y. }  T5 I9 Q. L: A     (vlax-variant-value (vla-get-fitpoints object))
" e% p: p. L7 c1 Y+ z7 D1 I   )
    )
    (repeat fixpoint
      (setq b nil)
      (repeat 3
(setq b      (append b (list (car fitplt)))
$ Q1 G- `0 x5 ^# Y       fitplt (cdr fitplt)
)
      )
4 N* M8 k+ K0 v  d      (setq a (append a (list b)))
1 E1 O% l& j  ?1 R    )
# [3 b1 d# U& t( f) b3 I    (cond ((= clo :vlax-true)
3 V, j% ~) P4 W/ |    (progn
      (setq jj (fix (+ (/ fixpoint 3) 0.5)))
      (setq spt1 (3dpoint->2dpoint(car a)))
. r5 {: k7 ~( W9 f& J, h      (setq spt2 (3dpoint->2dpoint(nth jj a)))
1 w; u# }& i4 G* D7 Y4 |5 A      (setq spt3 (3dpoint->2dpoint(nth (* jj 2) a)))
      (vl-cmdf "circle" "3p" spt1 spt2 spt3)
    )
" t: W! Z6 W# ~( S! ]   )
   ((= clo :vlax-false)
8 r" z* c6 E7 Y( E6 n    (progn
      (setq dd (fix (+ (/ fixpoint 2) 0.5)))
' `) r: Y/ D. H: t- x      (setq spt1 (3dpoint->2dpoint(car a)))
2 Z- |% `* i+ g  x$ c5 d3 U  l% ]      (setq spt2 (3dpoint->2dpoint(nth dd a)))
7 d& X8 ~9 @( G) m4 `      (setq spt3 (3dpoint->2dpoint(nth (- fixpoint 1) a)))
      (vl-cmdf "arc" spt1 spt2 spt3)
    )
- g* _: `, M' {# K0 ^   )
    )
    (setq a nil)
" a/ u- ^) B. e, j    (setq fitplt nil)
( X) I5 Z2 Y6 Z. d    (setq fixpoint nil)
1 }. U9 i) K# e! P, u    (setq b nil)
1 \6 B0 `" Q2 G8 V/ g0 ^+ @    (setq spen (entlast))
    (setq object2 (vlax-ename->vla-object spen))
    (vla-put-layer object2 lay)
    (vla-put-linetype object2 lint)
    (vla-put-lineweight object2 linw)
$ ^! C% `" C2 E    (vla-put-color object2 colo)
- T$ f$ H* O! k& M! u& o    (vla-delete object)
$ u  y$ G- k# [' y! g3 G  )
)
(defun 3dpoint->2dpoint (3dpt)
  (if (apply 'and (mapcar 'numberp 3dpt))
( _6 D* {' T+ J7 T' K% v# W    (mapcar '+ 3dpt '(0.00 0.00))
  )
, W' O9 x3 E. |# N% C& I)

jgym

yyyyyyyy     ok