【炫翔】批量从圆中心到右边画线（源码)

炫翔

1. ;批量从圆中心到右边画线  BY：炫翔
   
2. (defun c:xx ( / i p1 p2 r s1 ss)
   
3.   (setq ss (ssget '((0 . "CIRCLE")));只选取圆
   
4.          i -1;初始化
   
5.   )
   
6.   (while (setq s1 (ssname ss (setq i (1+ i))));循环遍历出每一个图元
   
7.     (setq p1 (cdr (assoc 10 (entget s1)));提取圆心
   
8.              r  (cdr (assoc 40 (entget s1)));提取半径
   
9.            p2 (polar p1 0 r);得出圆右边上的点  
   
10.     )
    
11.   (entmake (list  '(0 . "line") (cons 10 p1) (cons 11 p2)));画线
    
12.   )
    
13. )

;批量从圆中心到右边画线  BY：炫翔<br /> (defun c:xx ( / i p1 p2 r s1 ss)<br />   (setq ss (ssget '((0 . "CIRCLE")));只选取圆<br />          i -1;初始化<br />   )<br />   (while (setq s1 (ssname ss (setq i (1+ i))));循环遍历出每一个图元<br />     (setq p1 (cdr (assoc 10 (entget s1)));提取圆心<br />              r  (cdr (assoc 40 (entget s1)));提取半径<br />            p2 (polar p1 0 r);得出圆右边上的点  <br />     )<br />   (entmake (list  '(0 . "line") (cons 10 p1) (cons 11 p2)));画线<br />   )<br /> )

ysq101

连PI值都用到了。。。我汗·············

/db_自贡黄明儒_

写得不错,就是没有什么实用价值

ysq101

经测试，，反回NIL不知道是什么原因

ysq101

选了圆后不能画出线。。。

ysq101

反回     参数类型错 numberp nil

laibinwu

测试可用{:soso_e100:}

ll_j

程序很容易看懂，就是同ysq101相同疑问，为什么要用pi，(* pi 2)不就是0.0吗？
另：entget还可以上提一步。

liuyun242

还要注意坐标转换，在非世界坐标将显示不正常

liuyun242

ysq101 发表于 2013-5-18 15:22
经测试，，反回NIL不知道是什么原因

while 不返回nil，那就不正常了

zyhandw

真不知道能用来干什么

liuyun242

可能用来求圆的切线

phoevana

虽然用不着，但学习学习写法

sicky111

1. ;批量从圆中心到右边画线  菜鸟的command写法
   
2. (defun c:tt ( / ss i cent r)
   
3.   (setq ss (ssget '((0 . "CIRCLE"))))
   
4.   (setq i 0)
   
5.   (if ss
   
6.     (repeat (sslength ss)
   
7.       (setq cent (cdr (assoc 10 (entget (ssname ss i))))
   
8.             r (cdr (assoc 40 (entget (ssname ss i))))
   
9.       )
   
10.       (command ".line" cent (polar cent 0 r) "")
    
11.       (setq i (1+ i))
    
12.     )
    
13.   )
    
14.   (princ)
    
15. )

;批量从圆中心到右边画线  菜鸟的command写法<br /> (defun c:tt ( / ss i cent r)<br />   (setq ss (ssget '((0 . "CIRCLE"))))<br />   (setq i 0)<br />   (if ss<br />     (repeat (sslength ss)<br />       (setq cent (cdr (assoc 10 (entget (ssname ss i))))<br />             r (cdr (assoc 40 (entget (ssname ss i))))<br />       )<br />       (command ".line" cent (polar cent 0 r) "")<br />       (setq i (1+ i))<br />     )<br />   )<br />   (princ)<br /> )

ysq101

我差不多消化完了............明天再发个贴让大神们指点一下!!!!!!!