新手可以来看看，大侠来指点一下

ysq101

;注明：以下源码为炫版主写出来的，感谢原作者
;我也是新手，我只是想分享我的学习的方式，希望新手同学一起进步，和得更多高手指点



[pcode=lisp,true]
;源码如下

;---------圆心到象限点直线-----------
(defun c:ll ( / i p1 p2 r s1 ss)
    (setq ss (ssget  '((0 . "CIRCLE")))
          i -1  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq p1 (cdr (assoc 10 (entget s1)))
          r (cdr (assoc 40 (entget s1)))
          p2 (list (+ (car p1) r) (cadr p1))
    )
  (entmake (list  '(0 . "line") (cons 10 p1) (cons 11 p2)))
  )
)

[/pcode]
;测试图如下：
;图中  只  有一个圆，圆心座标为10,20  半径R=6




;源码解读过程如下
;第一行     ( / i p1 p2 r s1 ss)这些看不懂-------------烦请高手指点一下
;第二行     过滤其它对象，只选择圆
;第三行     第三行   I -1 )   炫版主只作简单注释，还是不明白
;第四行     用的参数while太高级，本人菜鸟，实在看不懂  请高手指点一下

;第五行   赋予P1为：在选择集S1中搜索并提取10组码（去掉第一个组码《10》的圆心座标）
;反回P1结果 10,20,0

;第六行      ：在选择集S1中搜索并提取40组码（圆半径值）去掉40组码
;一开始还真看不懂为什么要这R值，后来才明白是为了运算直线的座标点
;反回R结果  6

;第七行      赋予P2为：表  取P1中的第一个值，即10+6   取P1中的第二个值，20
;反回P2结果  16,20

;最后一行，用entmake函数以表的方式创建一条直线，表头加组码10（即起点）和11（即终点）
;结果可以这样理解：(COMMAND: "line" "10,20" "16,20" "")


;还是最主要的一点没看懂，可能是因为我看不懂第四行while函数的因原，
;为什么第二行多选了圆后可以各自的P1和P2座标点。万望高手指点

Lispboy

(while (setq s1 (ssname ss (setq i (1+ i))))

----

这行是把选择集的每个实体拿出来赋给变量S1，当选择集所有实体都完毕后，结束循环。

既然可以拿出来每个园，那循环体里面就是得到的每个园的数据啊。

炫翔

(SETQ  i -1 )为初始值，
在 (ssname ss (setq i (1+ i) 1+ （-1） 等于0
也就是会返回选择集中的第一个图元

继续循环 当I等0是  会返回第二个图元

ysq101

Lispboy 发表于 2013-5-19 17:18
(while (setq s1 (ssname ss (setq i (1+ i))))

----

原来是这样的啊！~！！明白一点了，还少一点实战经验，谢谢你的解答

ysq101

炫翔 发表于 2013-5-19 17:28
(SETQ  i -1 )为初始值，
在 (ssname ss (setq i (1+ i) 1+ （-1） 等于0
也就是会返回选择集中的第一个 ...

还是你答得更详细点。。。 以后要多练练了。。。

ysq101

炫翔 发表于 2013-5-19 17:28
(SETQ  i -1 )为初始值，
在 (ssname ss (setq i (1+ i) 1+ （-1） 等于0
也就是会返回选择集中的第一个 ...

追问：
;第一行     ( / i p1 p2 r s1 ss)这些看不懂------------这是什么意思，我看很多程序都有这些，
猜测是 ：各赋值的局部变量，，，
如果是局部变量的话，那是跟全局变量又有什么区别？？？

炫翔

ysq101 发表于 2013-5-19 18:06
追问：
;第一行     ( / i p1 p2 r s1 ss)这些看不懂------------这是什么意思，我看很多程序都有这些， ...

第一行括号里面的为局部变量

全局变量是
多个程序引用同一个变量
或
被一个程序多次运行是引用
局部变量就是在一个程序运行结束后清零：
(defun X1 () (setq a 1));;;a是全局变量
(defun X2 () (if a (setq a (1+ a))));;a是全局变量
(defun X3 (/ a) (setq a 2));;;a是局部变量

ysq101

炫翔 发表于 2013-5-19 18:15
第一行括号里面的为局部变量

全局变量是

谢谢你的解答，，，实践一下！！！！！

phoevana

同为新人，前来学习，支持一下

xtdwynij

还是用表生成的快一点。用command 生成的慢！而且变量太多了·！同为新手支持一下 ( / ) 斜杠后面如果不把变量写上去就是全局变量。反之则为局部变量 斜杠前面为传出去的参数！用作子函数时需要！

cy956

上面这种情况，repeat的写法通常会快一些，可能快0.000001秒，呵呵。
当实体多的时候，就比较可观。while和repeat的写法都要学。

ll_j

xtdwynij 发表于 2013-5-19 23:48
还是用表生成的快一点。用command 生成的慢！而且变量太多了·！同为新手支持一下 ( / ) 斜杠后面如果不把 ...

不仅仅是快慢的问题，command函数不仅受捕捉的影响，而且在使用有些命令时，参数的数目还受另一些设置有关，比如，text命令受style的字高设置影响，设置和不设置固定字高，text的参数是不同的。

ysq101

phoevana 发表于 2013-5-19 22:40
同为新人，前来学习，支持一下

谢谢支持！！！！！！推荐买炫版主的视频学习一下！！！

ysq101

xtdwynij 发表于 2013-5-19 23:48
还是用表生成的快一点。用command 生成的慢！而且变量太多了·！同为新手支持一下 ( / ) 斜杠后面如果不把 ...

原来是这么回事。。。谢谢解答

ysq101

cy956 发表于 2013-5-20 00:58
上面这种情况，repeat的写法通常会快一些，可能快0.000001秒，呵呵。
当实体多的时候，就比较可观。while ...

这两个参数还没学到。。。谢谢你的解答