2013-08-30 明经 AutoLISP 编程(102918348) 群聊记录：(defun ssget->list (ss / i ssn );选择

明经快报

[HNFSF](看海) 00:11:48

(defun ssget->list (ss / i ssn );选择集转表
(setq i -1)
  (while (setq ssn (ssname ss (setq i (1+ i))))
    (setq lst (cons ssn lst))
)
lst
)
选择集转表还有哪些写法，哪种效率更高？

[啵浪鼓] 00:15:19

这个已经很效率了

[linshiyin2]大地 00:17:44

绘制网格搞完了

接下来写入内容了

[啵浪鼓] 00:20:04

(* -0.5 pi) 我习惯写成这样 (* pi 1.5)

[啵浪鼓] 00:21:22

0    0度方向
0.25 45度方向
0.5  90度方向
3.0  180度方向
1.5  270度方向

[linshiyin2]大地 00:22:04

都没一个帮忙的

[啵浪鼓] 00:22:47

你已经这么厉害了,还需要帮忙啊,让人分享你的丰硕成果啊

[linshiyin2]大地 00:22:50

明总，付费交易系统有的搞没？

[啵浪鼓] 00:23:17

这么晚了,别喊了,明天看在不在

[linshiyin2]大地 00:24:04

[qqimg]201308/{F2CC6B45-3D19-6C7D-201E-C667C7EB60FE}.jpg[/qqimg]67个在线都是夜猫子

[啵浪鼓] 00:27:35

话说有一个姿态,就挂QQ

睡觉

[啵浪鼓] 00:28:43

今天晚上也是这里逛逛,那里瞅瞅,也是一事无事,虚度了一晚,哎~~~

[lisp-study]jun 00:29:31

[啵浪鼓] 00:30:01

jun不帮我一下,搞的我头大了,程序还烂在这里,继续不了

[lisp-study]jun 00:30:44

没时间 核心的都发你给了 你自己消化一下肯定都搞出来了

[啵浪鼓] 00:30:46

有一种状态,叫义无反顾

[啵浪鼓] 00:31:28

代码不全,搞不定咯

[啵浪鼓] 00:32:51

有一种状态,叫做伤心难眠

明经快报

[linshiyin2]大地 01:03:18

(defun c:tt (/ B H I J LIS M MM N 0 1 2 T ZG)
  (setq lis (cons '(1.0 0.0 0.0) lis))
  (setq lis (cons '(1.0 0.0 0.0) lis))
  (setq lis (cons '(1.0 0.0 0.0 1) lis))
  (setq zg 1;字高
    b 2 ;表格宽度
    h 3);表格高
  (setq n (length lis));表格行数n
  (foreach e lis
    (setq mm (length e))
    (if (> mm m) (setq m mm)));表格列数m
  (setq pt (getpoint "选取表格左上角位置："))
  (setq i 0)
  (repeat (1+ m);绘制竖线
    (setq p1 (polar pt (*  0.0 i) (* i b))
      p2 (polar p1 (* -0.5 i) (* n h))
      i (1+ i))
    
    (command "pline" p1 p2 "")
    )
  (setq i 0)
  (repeat (1+ n) ;绘制横线
    (setq p1 (polar pt (* -0.5 i) (* i h))
      p2 (polar p1 (*  0.0 i) (* m b))
      i (1+ i))
    
    (command "pline" p1 p2 "")
    )
  (setq i 0
    j 0
    p0 (list (+ (car pt) (* 0.5 b)) (- (cadr pt) (* 0.7 h))));定义文字原点
  (foreach e lis  ;填入表内容
    (foreach f e
      (setq p1 (list (+ (car p0) (* j b)) (- (cadr p0) (* i h)))
        j (1+ j))
      (command "text" p1 zg 0 (rtos f 2 2))
      )
    (setq i (1+ i)
      j 0)
   )
  )