求半圆变整圆的程序，谁有施舍一个，谢谢！

king3d

相当简单：输入J ，选择半圆，输入L， Enter

AMTONNY

偶打酱油的哟

【KAIXIN】

2. ;圆弧转圆
   
3. (defun C:XX( / i s1 ss)
   
4. (KX-COMA)   
   
5.   (KX-princA "圆弧转圆")
   
6.   (KX-princ "圆弧对象对象")
   
7.    (while (setq ss  (ssget":s" '((0 . "ARC"))))
   
8.              (setq  i   -1)
   
9.     (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.      (kx-mk-CIRCLE (KX-GET-DXF 10 S1) (KX-GET-DXF 40 S1))
    
11.     )
    
12.     (KX-E SS)
    
13.    )
    
14. (KX-COMB)
    
15. )  

;圆弧转圆<br /> (defun C:XX( / i s1 ss) <br /> (KX-COMA)    <br />   (KX-princA "圆弧转圆")<br />   (KX-princ "圆弧对象对象")<br />    (while (setq ss  (ssget":s" '((0 . "ARC"))))<br />              (setq  i   -1)<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />      (kx-mk-CIRCLE (KX-GET-DXF 10 S1) (KX-GET-DXF 40 S1))<br />     )<br />     (KX-E SS)<br />    )<br /> (KX-COMB)<br /> )  

zyhandw

kaixin准备学院长吗？也放伪源码

langjs

那就来个不一样的

(defun C:ZZ (/ i ss)
  (setq ss (ssget' ((0 . "ARC"))))
  (repeat (setq i (sslength ss))
    (entmake (cons '(0 . "CIRCLE") (cddr (reverse (cdddr (reverse (entget (ssname ss (setq i (1- i))))))))))
  )
  (command "erase" ss "")
  (princ)
)

1993063

【KAIXIN】 发表于 2012-11-4 22:54

杯具,学院长了

前生

这个似乎啰嗦很多，但是对于3D图档转过来的ARc的Z坐标以及什么平面
有问题的似乎好用一些，
(DEFUN C:aC (/ ss1 emax count en ed ls ename)
  (SETQ SS1 NIL)
  (setq ss1 (ssget (list (cons 0 "circle,arc"))))
  (if ss1
    (PROGN
      (SETQ EMAX NIL
            COUNT 0
      )
      (setq emax (sslength ss1))
      (while (< count emax)
        (setq EN (ssname ss1 COUNT)
              ED (ENTGET EN)
        )
        (if (= (setq ls (last (assoc 210 ed))) 1)
          (SETQ
            LS
             (list (cons 0 "circle")
                   (cons 8 "ok")
                   (list 10 (cadr (assoc 10 ed)) (caddr (assoc 10 ed)))
                   (CONS 62 222)
                   (CONS 40 (CDR (assoc 40 ed)))
             )
          )
          (SETQ
            LS (list (cons 0 "circle")
                     (cons 8 "ok")
                     (list 10
                           (- 0 (cadr (assoc 10 ed)))
                           (caddr (assoc 10 ed))
                     )
                     (CONS 62 222)
                     (CONS 40 (CDR (assoc 40 ed)))
               )
          )
        )
        (ENTMAKE LS)
        (entdel en)
        (SETQ COUNT (1+ COUNT))
        (setq ename nil)
        (setq ls nil)
      )                                        ;WHILE
    )                                        ;FIRST OF PROGN
    (PROMPT "\n 未选取到 Arc实体,请重新选择!<circle>")
  )
  (setq en nil)
  (prompt "     ___CIRCLE.lsp")
  (princ)
)

xieling888

谢谢各位的奉献！

c735023723

这个不难啊，用半圆求出圆心和两个端点