2013-07-26 明经 AutoLISP 编程(102918348) 群聊记录：[image={AAD26CF6-FD56-D30D-69B7-B5D7FF

明经快报

[夏生生][x_s_s_1]生无可恋 08:53:12

[qqimg]201307/{AAD26CF6-FD56-D30D-69B7-B5D7FFA0DF9C}.gif[/qqimg]

明经快报

[R-BB勇] 09:34:14

把变量存进剪贴板，有人会写不？

[aroom]aroom 09:36:33

会 不难

[R-BB勇] 09:37:25

什么命令呢，我去查下。

[aroom]aroom 09:37:56

没有命令 自己写api

[R-BB勇] 09:38:42

。。。。那算了。。

[不死猫][nonsmall]不死猫 09:38:49

到论坛搜 大把

讨论过N多次了

搜索“剪切板”共搜索到87个帖子

[R-BB勇] 09:39:38

谢谢

明经快报

[卡斯罗][卡斯罗]972499148 09:50:48

[qqimg]201307/{82F7EA2C-9434-3378-1810-B56A11724926}.jpg[/qqimg]

无法从文件加载工程？

怎么回事

哪个晓得

加载不了程序

[卡斯罗][卡斯罗]972499148 09:51:58

这是啥原因造成的

[卡斯罗][卡斯罗]972499148 09:53:28

请教高手

明经快报

[pzweng][pzweng]路人 10:13:05

没见过

明经快报

[500w008]500w008 13:10:08

http://bbs.mjtd.com/thread-106881-1-1.html

明经快报

[500w008]500w008 13:31:32

;;;;;;;按点周围计算书批量写桩和承台
(defun c:a ()
(setvar "cmdecho" 0)
(graphscr)
(setq lss nil ni 0  dx 1700)
(setq lss (ssget '((0 . "point") (8 . "temp"))))
(repeat (sslength lss)
 (progn
    (setq pm (cdr (assoc 10 (entget(ssname lss ni))
                  )
             )
    )
    (setq sss (ssget "c" (mapcar '- pm (list dx dx 0.0))
                 (mapcar '+ pm (list dx dx 0.0))
                '((0 . "text") (8 . "lgj1"))
              )
    );得到字符串表
 (while sss
    (setq i -1)
    (while (setq ent_n (ssname sss (setq i (1+ i))))
      (setq x_lst (cons ent_n x_lst))
    )
    x_lst
 )
(setq g_lst list)
(setq g_lst (cons
               (foreach e x_lst
                   (apply '(lambda (x) ((setq x e) (cdr (assoc 1 x)))
                           ) 
                           x_lst
                   )
               )
               g_lst
            )
)
 (setq ma (apply 'max g_lst))
  (prong
      (if (< ma 1000) (1ct pm))
      (if (< 1000 ma 2000) (2ct pm))
      (if (> ma 2000) (3ct pm))
  )prg
 );prg1
 (setq ni (+ ni 1))
);repeat
(princ)
)

明经快报

[pzweng][pzweng]路人 13:42:12

开源？

[500w008]500w008 13:44:03

不是 我自己凑的

[qianzj]太阳 13:47:32

[qqimg]201307/{0C8823BC-1E02-B5F1-C52B-41EF9B828205}.jpg[/qqimg]看好多程序末尾加这个是什么意思

[500w008]500w008 13:48:18

返回

[qianzj]太阳 13:48:35

返回 lst的值？

[500w008]500w008 13:51:50

我是这样理解的

[pzweng][pzweng]路人 13:51:53

不是

[pzweng][pzweng]路人 13:52:36

对lst操作

[qianzj]太阳 13:54:16

[qqimg]201307/{C30354D7-B8A2-1B44-37D5-3865E41D1266}.jpg[/qqimg]

比如这个 我把最后去掉测试 好像对程序也没啥关系啊

[pzweng][pzweng]路人 13:55:29

你复制，不要抓图

[500w008]500w008 13:56:18

路人帮我看下那段程序

[pzweng][pzweng]路人 13:58:35

那是返回nlst的值

[pzweng][pzweng]路人 13:59:25

你的lst是什么样的表

[pzweng][pzweng]路人 13:59:57

n 与lst是什么样的值

[qianzj]太阳 14:00:29

有什么作用呢 不用nlst 也可以返回值嘛 。。  lst n 随便我就是比较好奇加上这句干嘛

程序是网上的 我看好像好多人都这么写。。

[pzweng][pzweng]路人 14:00:48

那你没理解而已

明经快报

[pzweng][pzweng]路人 14:13:45

(setq g_lst list)?

[500w008]500w008 14:16:39

这句我肯定有错

[pzweng][pzweng]路人 14:18:14

你的目的是干什么

[pzweng][pzweng]路人 14:26:15

自己改了下(8 . "dim")->(8 . "lgj1")

[500w008]500w008 14:35:30

我先试试 谢谢

[500w008]500w008 14:38:36

)
      prg
    )

[500w008]500w008 14:43:17

两段都没反应

[328302216][328302216]小莫 14:45:14

请问一下讲SYM类型的字符转换成实数类型用那个函数了

[pzweng][pzweng]路人 14:45:48

数字不需要转

[328302216][328302216]小莫 14:46:56

我先试试看

明经快报

[leikunlin]老雷 15:07:16

下午好

明经快报

[kewyst]………… 16:54:19

[qqimg]201307/{3ACFB42F-C75A-7BC1-DC37-BED81F36A7B8}.jpg[/qqimg]

[qqimg]201307/{F8193EBD-9942-7058-7203-5024E9C3E56B}.jpg[/qqimg]