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

炫翔

炫翔(2363673534)于2013-05-18 14-57-09：
仔细研究下  看看你收获了多少

ysq101

平凡  淡定(120389613)于2013-05-18 14-57-22：
解释一下“NON”是什么意思？？？

ysq101

平凡  淡定(120389613)于2013-05-18 14-57-26：
好的。。。

炫翔

炫翔(2363673534)于2013-05-18 14-57-36：
临时关闭捕捉

ysq101

平凡  淡定(120389613)于2013-05-18 14-58-38：
如果要临时打开端点捕捉是不是可以+“END”？？？

炫翔

炫翔(2363673534)于2013-05-18 14-59-50：
p2 (list (+ (car p1) r) (cadr p1))
用

p2(polar p1 pi r)

也许会好些

炫翔

炫翔(2363673534)于2013-05-18 14-59-59：
不可以

ysq101

平凡  淡定(120389613)于2013-05-18 15-00-23：
我研究一下！！！谢谢

炫翔

炫翔(2363673534)于2013-05-18 15-01-49：
[qqimg]{057C8FEC-B307-1703-F219-A66E47282B1C}.jpg[/qqimg]

炫翔

炫翔(2363673534)于2013-05-18 15-01-59：
;批量从圆中心到右边画线  BY：炫翔
(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 (polar p1 (* pi 2) r)
    )
  (entmake (list  '(0 . "line") (cons 10 p1) (cons 11 p2)))
  )
)

炫翔

炫翔(2363673534)于2013-05-18 15-02-09：
你研究后面这个吧

ysq101

平凡  淡定(120389613)于2013-05-18 15-02-30：
好的。。。谢了啊！！！！

炫翔

炫翔(2363673534)于2013-05-18 15-02-40：
[qqimg]{21D9A6C2-40C3-63D2-33AA-DCA15FE04FA3}.gif[/qqimg]

CCarch

落墨花-骉！找(226361689)于2013-05-18 15-05-36：
想通过LISP编制一个程序：设计轴线，批量偏置以后自动实现偏置后的线型、图层、颜色等，还想做一个批量快速指定角度插入块的东西。。。请问LISP编制的话，简单么

炫翔

炫翔(2363673534)于2013-05-18 15-05-56：
简单