2013-05-18 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

炫翔

炫翔(2363673534)于2013-05-18 14-49-28：
有的人一辈子在学 有的...

CCarch

真爱一生(848758009)于2013-05-18 14-49-38：
[face76.gif]

ysq101

平凡  淡定(120389613)于2013-05-18 14-50-07：
命令用不到，，，反回NIL

CCarch

落墨花-骉！找(226361689)于2013-05-18 14-50-11：
[face76.gif]

CCarch

文涛秦时明月(455867816)于2013-05-18 14-52-54：
[qqimg]{EF48CAB0-70A3-D4F9-7D72-05012E9D0212}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 14-55-08：
[qqimg]{C6A17AA5-3E70-72C0-A1A6-6D1B7CC79096}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 14-55-26：
[qqimg]{F414D51C-1845-5402-32A9-B51E52231ABB}.gif[/qqimg]录的太快了

ysq101

平凡  淡定(120389613)于2013-05-18 14-55-31：
汗~~~~~~~~高手啊！！！！

ysq101

平凡  淡定(120389613)于2013-05-18 14-55-42：
发原码来学习一下[face13.gif]

炫翔

炫翔(2363673534)于2013-05-18 14-56-01：
[qqimg]{171ED301-8C72-D21C-4D8B-06A54F303B63}.gif[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 14-56-14：
入门的玩意

ysq101

平凡  淡定(120389613)于2013-05-18 14-56-28：
还没入门呢······

炫翔

炫翔(2363673534)于2013-05-18 14-56-46：
[qqimg]{ADA5ACEF-F3EF-76E2-4DDC-4654E0D3D4B5}.jpg[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 14-56-52：
(defun c:xx ( / p1 po r s1)
  (setq s1 (entget (car (entsel))))
  (setq po (cdr (assoc 10 s1)))
  (setq r (cdr (assoc 40 s1)))
  (setq p1 (list (+ (car po) r) (cadr po)))
  (command "_.line" "non" po "non" p1 "")
)

(defun c:xx ( / 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)))
  )
)

ysq101

平凡  淡定(120389613)于2013-05-18 14-57-01：
(command "_.line" "non" po "non" p1 "")