2013-07-27 明经 AutoLISP 编程(102918348) 群聊记录：(defun trccs () (setq win_b2 (strcat

明经快报

[LC100]建筑设计 00:25:59

(defun trccs ()
  (setq win_b2 (strcat  "双扇窗最大宽度[" (rtos win_b2) "]:")
    win_b4 (strcat  "三扇窗最大宽度[" (rtos win_b4) "]:")
    )
  ;(setq win_b2 (getdist "\n窗宽度"))
  ;(setq win_b4 (getdist "\n窗宽度"))
  )


win_b2 win_b4都是全局变量，一开始就设定好了
但这个子程序却不可以操作。

明经快报

[无痕]午夜咖啡 02:11:03

http://bbs.mjtd.com/thread-102409-5-1.html

[500w008]500w008 02:18:53

[qqimg]201307/{BCC8121D-0015-B15B-6783-997E14CE95FB}.gif[/qqimg]

明经快报

[mmh1][mmh1]漫步地球 08:32:59

(defun mmh-tj (ss / n en endata )
  (setq n 0)
  (repeat (sslength ss)
    (setq en (ssname ss n))
    (setq endata (entget en))
    (setq p1 (cdr (assoc 10 endata)))
    (setq p2 (cdr (assoc 11 endata)))
    (if(> (abs (sin (angle p1 p2))) 0.1)
      (setq ss (ssdel en ss))
    )
    (setq n (1+ n))
  )
)

[mmh1][mmh1]漫步地球 08:34:17

ss为空

明经快报

[flytoday]过^-^客 09:05:02

[qqimg]201307/{6F6D58BB-940D-65A7-532A-933D5013533E}.gif[/qqimg]

明经快报

[野狼谷]笨鸟 09:45:54

(vl-list-length ss1) 这个是不是不是实体类型 需要转换一下？

[mmh1][mmh1]漫步地球 09:51:13

不可以吗？我以为组成表就可以用

[野狼谷]笨鸟 09:51:30

如果是空，最好是一步步测试

看看从哪里就不行了

[野狼谷]笨鸟 09:52:22

自己定义一个：
（setq ss  ‘（。。。。））

然后一步步测试

[mmh1][mmh1]漫步地球 09:59:34

一步一步测试，好像没问题，可能其他子程序出错了在这里纠结了这么久

[pzweng][pzweng]路人 10:01:00

自己看函数说明

明经快报

[zk2140]Kevin 13:38:54

求教，这个是将第二个文字替换成第一个文字。。。如何改变下，使之能够第一个文字与第二个文字交换

[500w008]500w008 13:40:51

网上有现成的 没这么长

[pzweng][pzweng]路人 13:43:13

第二个文字换成第一个是什么意思

[zk2140]Kevin 13:44:02

就是选择第一个文字后，再选择第二个文字，第二个文字内容就改成了第一个文字的内容

如何改变下，使之能够第一个文字与第二个文字交换

内容

[zk2140]Kevin 13:47:08

@[500w008]500w008 网上没找到

[pzweng][pzweng]路人 13:47:16

相互对换？

[500w008]500w008 13:47:45

文字刷

[zk2140]Kevin 13:48:00

嗯

[pzweng][pzweng]路人 13:49:08

怎么操作的

先选一个文字

[lisp-study]jun 13:49:22

有没有方法可以直接操作块内的对象或者块外的对象

[pzweng][pzweng]路人 13:49:26

然后再选一个文字？

明经快报

[品茗新秀] 14:17:22

图中若干A=100M2  A=150M2 A=158M2等,如何将这些数字求和

[vormittag]桔子 14:17:47

加法

[品茗新秀] 14:18:17

搞个程序看看

[500w008]500w008 14:20:36

发个贴

[小伟jeny]小伟 14:24:02

做选择集

[品茗新秀] 14:24:43

搞个看看,实在想不起来如何搞

[小伟jeny]小伟 14:25:49

把含有文字a的选出来

[vormittag]桔子 14:26:06

atof 相加就结了。

[500w008]500w008 14:26:29

然后去除后面的M2  mapcar +

[500w008]500w008 14:27:03

品茗新秀 你是谁 发现你每次都给我发贴

[品茗新秀] 14:28:52

初学LISP,还是有点不懂

明经快报

[品茗新秀] 14:49:55

看到的小数点是这个,如何改

[qqimg]201307/{5DCAE47D-3C04-E35F-3C60-18AC7F87499B}.jpg[/qqimg]

[flytoday]过^-^客 14:50:24

[品茗新秀] 14:52:52

过客,整天看你游手好闲,什么程序也不会编,还版主,真的想不通

[why1025][7299969]人生 14:53:22

符合中国国情

[品茗新秀] 14:53:35

[qqimg]201307/{C44BBA20-5EDB-965B-E3AE-CFDDD084ED63}.jpg[/qqimg]

[flytoday]过^-^客 14:56:53

大家别上这人的当。。上次被C版踢走过。严哥可证明此人人品不行

[why1025][7299969]人生 14:58:31

你帮我编个程序证明他是错的

[野狼谷]笨鸟 14:58:55

（if

[flytoday]过^-^客 14:58:55

原来你有两个在这

[VBALISPER]恐龙 14:59:12

啥子图?说的是哪个？

[flytoday]过^-^客 14:59:13

好象不是

T了

明经快报

[pzweng][pzweng]路人 15:20:35

明经快报

[weiqi]weiqi 16:20:18

_refedit ** 无法 REFEDIT 非统一比例缩放的块 **

这个怎么解决