2013-05-21 明经 AutoLISP 编程(102918348) 群聊记录：(defun c:txhy() (setq v1 (getvar &qu

明经快报

[328302216][328302216]小莫 09:24:57

(defun c:txhy()
  (setq v1 (getvar "cmdecho"))                  
  (setvar "cmdecho" 0)

  (setq hy (getfiled "图形还原" "" "txt" 2))
  (setq hy1 (open hy "r"))
  (setq hy2 (read (read-line hy1)))
  
   (while hy2
     (entmake hy2)
     (setq hy2 (read (read-line hy1)))
   )
  (close hy1)
  (setvar "cmdecho" v1)
  )
;;我昨天的这个程序把组码里面的410去了也是一样的，在布局里面执行，画出来的还是在模型里面的……不知道什么原因！！

明经快报

[328302216][328302216]小莫 09:48:10

知道原因了   是组码67的问题，布局里面为1 模型里面为0

明经快报

[天财]天财 14:40:00

2000元 找个人帮我去扇一个人耳光 要扇出血

[天财]天财 14:41:05

[【KAIXIN】] [【KAIXIN】]炫翔 14:43:33

[qqimg]oldimg/{1D7EC5AE-0AFA-57DD-8929-00B65DFA7FC7}.gif[/qqimg]

[天财]天财 14:45:40

有个小孩缺教育 

[LC100]建筑设计 14:46:09

是那个领导的儿子

[天财]天财 14:46:46

不是领导的

我自己动手又不好

[阿然][阿然] 14:49:31

跟小孩子有什么好计较的

[天财]天财 14:50:22

这个一定要教育他

[LC100]建筑设计 14:51:07

在那的，我帮你K他。

后面要赔人家的钱，你得赔

[天财]天财 14:51:46

没问题

他家有钱 但是很不像样

明经快报

[linshiyin2]大地 15:33:34

如何解决多行文字显示的问题呢

[LC100]建筑设计 15:33:34

我到现在都搞不明白dcl是怎么引用进来的。

谁有实列工程发一个过来看看。最好就是小的工程。

或者谁帮我做个简单的视频我看一下。

明经快报

[LC100]建筑设计 15:50:50

1.在一组数中找到max值a
2.然后小于max值的数字相加得到数之b

怎么写第二条怎么写?

[VBALISPER]恐龙 15:54:39

最大值有相同的吗?

[LC100]建筑设计 15:54:52

没有

只有一个

[VBALISPER]恐龙 15:54:54

没有的话,就全部加,减去一个最大值

[LC100]建筑设计 15:55:12

哦，good!

我想得太复杂了。

看来用电脑多了，人会变笨。

[小伟jeny]小伟 15:56:02

程序写多了 也会变笨

[LC100]建筑设计 15:56:28

呵呵。估计是这么回事。

明经快报

[LC100]建筑设计 18:10:34

(defun c:cqb ( / ss i sum ssone0 ssone a2)
 (setq ss (ssget '((0 . "TCH_SPACE"))));天正面积
 (setq i 1)
 (setq ent (entget(ssname ss 0)))
  (setq sum (cdr(assoc 41 ent)));天正面积
 (repeat (1- (sslength ss))
  (setq ssone (entget (ssname ss i)))
   (setq a2 (cdr (assoc 41 ssone)))
  (setq sum (+ sum a2));面积总和
  (setq i (1+ i))
 );repeat重复
 (princ (list "\n面积总和为"sum));显示结果
   ;(command "text" "s" "standard"  pause "3" "0" (rtos sum 2 2))
 (princ)
);end

明经快报

[LC100]建筑设计 18:35:05

求框选中数值的最大值，该怎么写

[LC100]建筑设计 18:35:36

求框选中数值的最大值，该怎么写

实在找不到帮助了。

[pzweng]路人 18:36:08

apply

[LC100]建筑设计 18:36:21

这个函数不会用

[LC100]建筑设计 18:37:22

这个lsp是重复的那部分吗？

(repeat (1- (sslength ss));重复次数
    (setq ssone (entget (ssname ss i)))
    (setq a2 (cdr (assoc 41 ssone)))
    (setq max_mz (max a2))
    (setq sum (+ sum a2))        ;面积总和
    (setq i (1+ i))
  )

这一部分中的那个值？

[pzweng]路人 18:38:57

你要做甚

[LC100]建筑设计 18:39:29

我就想求一个我框选中数值的最大值

[pzweng]路人 18:40:01

全是数字吗？

[LC100]建筑设计 18:40:07

是

[pzweng]路人 18:40:12

嗯

[LC100]建筑设计 18:40:24

最大值只有一个

你刚才发的那几个我根本就理解不了。

[LC100]建筑设计 18:41:29

顺便把框选的数值总和求出来。

[kwok][kwok]巭隼 18:47:24

点单线变矩形知道怎么弄，如果是批框选一批直线生成矩形，直线为中线，怎么写？

[LC100]建筑设计 18:54:11

这么快

[LC100]建筑设计 18:57:21

测试了没反应

[pzweng]路人 18:57:45

[qqimg]oldimg/{5A8EB7F2-FDDE-3B9B-A9E1-B334DD1106AC}.jpg[/qqimg]

[tiyi8888]永远痛 18:58:15

我想把聊天记录复制到我的硬盘如何办

[LC100]建筑设计 18:58:34

其怪了

[pzweng]路人 18:58:44

你是什么文字

[tiyi8888]永远痛 18:58:51

所以有的文字

[pzweng]路人 18:58:55

属性文字吗

百度咯

[LC100]建筑设计 18:59:28

行了，是你刚才没设变量

[pzweng]路人 18:59:36

老在这里刷屏

[tiyi8888]永远痛 18:59:57

[qqimg]oldimg/{63CB4492-53E8-DDCB-1208-7A4E809D4BAB}.jpg[/qqimg]

这么多呀

[pzweng]路人 19:01:59

[qqimg]oldimg/{0D70AFF1-DE2B-AAC6-CDF4-38CEE9140909}.jpg[/qqimg]

[LC100]建筑设计 19:02:52

路人兄，你这个里面只用到一个text的组码吧？
我改了为什么用不了呢。

刚才测试，你的代码可以用。

[LC100]建筑设计 19:03:37

((-1 . ) (0 . "TCH_SPACE") (330 . ) (5 . 
"1242BD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "SPACE") (100 . 
"TDbEntity") (46 . 0.0) (47 . 150.0) (68 . 0) (100 . "TDbSpace") (70 . 21) (10 
935543.0 -482582.0 0.0) (1 . "房间") (2 . "1001") (7 . "_TCH_SPACE") (40 . 5.0) 
(41 . 460.537) (42 . 90052.3) (43 . 120.0) (50 . 0.0) (90 . 0))

这个是我要用的组码表，我要组码41的值来计算

我直接改了用不了，什么呢？

[pzweng]路人 19:04:18

把1改成41

[LC100]建筑设计 19:04:27

改了但用不了。

也换成了 (0 . "TCH_SPACE")

[pzweng]路人 19:04:59

41是什么东西

[LC100]建筑设计 19:05:25

41是面积

[pzweng]路人 19:06:51

试试

[LC100]建筑设计 19:07:09

不用管变量的吗？

[pzweng]路人 19:07:45

等下

[LC100]建筑设计 19:08:17

我的图元不是text是(0 . "TCH_SPACE")

[pzweng]路人 19:10:08

试试

[LC100]建筑设计 19:11:02

可以了，刚才是那里出了问题？

我刚才自己也加了变量上去。

[pzweng]路人 19:11:20

41后面是实数

不是str

[LC100]建筑设计 19:11:39

这个是怎么知道是实数？

数学都不得得了。

[pzweng]路人 19:12:28

(41 . 460.537)

[LC100]建筑设计 19:12:56

不会分。

明经快报

[byxs]齐天大圣 19:32:53

明经快报

[weiqi]weiqi 20:41:26

[qqimg]oldimg/{4B064E40-7A3A-617F-9E19-CCDD8548421D}.jpg[/qqimg]

明经快报

[mccad][MCCAD] 21:45:24

复制聊天记录，可以到论坛去复制

[tiyi8888]永远痛 21:49:02

好，谢谢