2013-08-05 明经 AutoLISP 编程(102918348) 群聊记录：我遇到一张图，取不出对象名字，是怎么回事 ？

明经快报

[mccad][MCCAD] 17:14:49

它的服务器的概念并非网络服务器

对于软件来讲，有服务端和客户端

明经快报

[逸龙]312205714 18:07:09

请问高手，lisp如何获取尺寸标注精度位数？

明经快报

[XQL]强 18:19:35

LUPREC

[逸龙]312205714 18:21:27

我需要对某几个获取尺寸标注精度位数？

[逸龙]312205714 18:23:03

谢谢，高手帮忙

[逸龙]312205714 18:23:42

如何获取107的群码

[逸龙]312205714 18:25:36

177de

[逸龙]312205714 18:26:25

如何获取177的群码，就可以获取尺寸标注精度位数

[vormittag]桔子 18:26:47

271

DIMDEC和DIMTDEC

[逸龙]312205714 18:28:13

如何获取这个群码

系统变量不能对某几个获取尺寸标注精度位数？

[逸龙]312205714 18:30:02

如何获取177这个群码

[vormittag]桔子 18:30:58

标注样式的177是标注尺寸线的颜色。

[逸龙]312205714 18:31:10

多谢高手指点

哦

[逸龙]312205714 18:32:06

如何获取尺寸标注精度位数这个群码

[vormittag]桔子 18:32:30

(cdr (assoc 271 (entget (tblobjname "DIMSTYLE" (cdr (assoc 3 (entget (car (entsel)))))))))

[逸龙]312205714 18:34:28

谢谢

明经快报

[pzweng][pzweng]路人 18:54:51

各位请注意了，如发现与论坛用户名不符将被请出

[无痕]午夜咖啡 18:56:45

[胆小鬼39] 18:57:16

[qqimg]201308/{67066AE6-770F-F497-7D23-99211F42913C}.gif[/qqimg]

[pzweng][pzweng]路人 18:57:36

[qqimg]201308/{3C0F2DFA-7F69-B05B-FD9F-5BD1F477AAEA}.jpg[/qqimg]

[胆小鬼39] 18:58:04

[qqimg]201308/{719024F2-16B9-C2E4-C3EF-952FC34925D2}.gif[/qqimg]

明经快报

[flytoday]过^-^客 19:27:38

[image=3919A37B8982F10DE7E37D175D78B1EB.jpg]

[yeahyeah]王晓平 19:29:39

各位高手，帮我看看我的这个程序哪个地方错了呗

(defun c:fb()  ;本程序的设计目的是：在某矩形面域内按照均匀分布粘贴某一图元
   (setq pa (getpoint "输入第一点:"))
   (setq pb (getpoint "  输入第二点:"))
   (setq pax (car pa))
   (setq pay (cadr pa))
   (setq pbx (car pb))
   (setq pby (cadr pb))
   (setq a (getdist "  横向布置点数:"));取均匀布置排布数
   (setq b (getdist "  纵向布置点数:"))
   (setq m 1);设置循环变量
   (setq n 1)
   (while (

[yeahyeah]王晓平 19:30:27

今天下午检查了很长时间也没弄明白

[yeahyeah]王晓平 19:32:56

桔子师兄呢？

[yeahyeah]王晓平 19:33:33

各位学长。。。帮忙。。

[pzweng][pzweng]路人 19:33:56

[qqimg]201308/{C51E6753-FB38-9F52-7C7F-DE7A595E5F50}.gif[/qqimg]

[yeahyeah]王晓平 19:34:24

[yeahyeah]王晓平 19:35:13

路人帮我。。

[pzweng][pzweng]路人 19:35:24

我在清人

[yeahyeah]王晓平 19:35:51

清人助我。。

求助啊！！！

[pzweng][pzweng]路人 19:37:16

去论坛发吧，大家都能学得到

[yeahyeah]王晓平 19:37:40

我都编失败了

测试好多遍了，都没成功

[pzweng][pzweng]路人 19:38:16

我知道，你发的话别人也能学得到

[yeahyeah]王晓平 19:38:38

[vormittag]桔子 19:38:47

基本上不会成功

[yeahyeah]王晓平 19:39:05

桔子师哥

帮帮我吧

[lisp-study]jun 19:39:09

[yeahyeah]王晓平 19:39:18

[vormittag]桔子 19:40:37

没看完，不出意外的话，都贴在一个点上了

[vormittag]桔子 19:41:39

[qqimg]201308/{C785EEE4-33AD-6B1C-AB5C-45E3C4ABC105}.jpg[/qqimg]

[yeahyeah]王晓平 19:42:02

为什么不是0.5呢

[vormittag]桔子 19:42:11

两个整型变量的运算结果是整型变量。

[yeahyeah]王晓平 19:42:29

啊……对

[vormittag]桔子 19:42:47

这才是0.5

[yeahyeah]王晓平 19:44:57

还是不行。。。

[pzweng][pzweng]路人 19:45:09

干什么用的

[yeahyeah]王晓平 19:45:47

本程序的设计目的是：在某矩形面域内按照均匀分布粘贴某一图元

[pzweng][pzweng]路人 19:48:43

这边没问题

[yeahyeah]王晓平 19:49:03

你没问题吗

[yeahyeah]王晓平 19:49:54

[qqimg]201308/{4E92E701-F744-CCFD-4526-CAE39774F4B8}.jpg[/qqimg]

我试验完是这样的

没有右侧部分

[pzweng][pzweng]路人 19:50:19

程序没错

只是你的计算出错了

[vormittag]桔子 19:50:37

捕捉关掉

[pzweng][pzweng]路人 19:51:20

不是捕捉问题

[yeahyeah]王晓平 19:51:48

捕捉关掉也是这样

[pzweng][pzweng]路人 19:52:00

嗯

计算错

[yeahyeah]王晓平 19:52:22

只能完成一列

[pzweng][pzweng]路人 19:52:58

你了阵列试试

[pzweng][pzweng]路人 19:54:28

不知道你怎么算的

[yeahyeah]王晓平 19:59:52

x1+((x2-x1)/(a+1))*m,(m=1,……,a)

[yeahyeah]王晓平 20:00:27

y1+((y2-y1)/(b+1))*n,(n=1,……,b)

[yeahyeah]王晓平 20:01:00

(x1,y1)和（x2,y2）是两个点

[pzweng][pzweng]路人 20:01:18

我总感觉你算错了

[yeahyeah]王晓平 20:02:27

哇塞！正确啦！

谢谢路人啊！我看看

[yeahyeah]王晓平 20:03:40

(setq m (+ m 1) n 1)

是这句

[yeahyeah]王晓平 20:05:51

哦，要是C语言好像也是错的哈

明白啦！谢谢！

[pzweng][pzweng]路人 20:06:08

你这个要带基点复制

[yeahyeah]王晓平 20:06:24

是滴!我要画图！

我是做设计的

明经快报

[yeahyeah]王晓平 20:16:50

路人，我发帖了

[yeahyeah]王晓平 20:24:22

怎么样像CAD命令那样设置默认值啊？

[csalh]小帅 20:25:31

if

[yeahyeah]王晓平 20:25:48

嗯？

(setq a (getdist "  横向布置点数:"))        ;取均匀布置排布数
  (setq b (getdist "  纵向布置点数:"))

比如这两句，我想把a、b默认设置为1

[csalh]小帅 20:27:01

（if （null a）（setq a 1））

就是这个意思，我手机上的不好打字

[yeahyeah]王晓平 20:27:45

null没见见过，我看看啊

谢谢啊

[vormittag]桔子 20:28:25

(or (setq a (getdist)) (setq a 1))

[yeahyeah]王晓平 20:31:21

桔子哥，不行

[vormittag]桔子 20:34:39

(or (setq a (getdist)) (setq a 1.0))

[yeahyeah]王晓平 20:39:04

哈哈！橘子哥可以的！

(or (setq a (getdist  "  横向布置点数[默认值1]:")) (setq a 1.0))
(or (setq b (getdist  "  纵向布置点数[默认值1]:")) (setq b 1.0))

[yeahyeah]王晓平 20:42:11

(if (null a)(setq a 1)(setq a (getdist  "  横向布置点数[默认值1]:"))
(if (null b)(setq b 1)(setq b (getdist  "  横向布置点数[默认值1]:"))

哈哈哈！

谢谢大家！

[yeahyeah]王晓平 20:52:09

[yeahyeah]王晓平 20:52:40

咋的了？

[yeahyeah]王晓平 20:53:19

我CAD里试了

[caoyin][caoyin] 20:54:06

[caoyin][caoyin] 20:55:12

[qqimg]201308/{B0580A46-1F6B-5EAA-477B-7723A1313930}.gif[/qqimg]

[yeahyeah]王晓平 20:56:03

我的这个程序缺少了一个要是用户反悔了，不想做了，该咋么退出不执行的程序

比如有些时候想错了，想反悔该怎么办

[yeahyeah]王晓平 21:00:50

我看看

[csalh]小帅 21:01:42

（if （null a）（setq a 1））放到后面 重新起一句

[yeahyeah]王晓平 21:02:21

我刚才调试好好的，关了CAD又重开，怎么说; 错误: 输入的列表有缺陷了

[yeahyeah]王晓平 21:03:02

哦

[csalh]小帅 21:03:21

前面已经给a附值了所以对了

[csalh]小帅 21:04:25

关了重新开CAD后a没有值就不对了呗

[yeahyeah]王晓平 21:05:31

帅哥，你说的是这意思吗？

[csalh]小帅 21:05:50

OK

[csalh]小帅 21:06:32

（if （null a）（setq a 1））

[csalh]小帅 21:07:51

[yeahyeah]王晓平 21:09:01

我按了什么？修改程序的光标变成横的了。。。

[ZZXXQQ] 21:09:32

insert

[yeahyeah]王晓平 21:10:11

哦，谢谢谢谢

[yeahyeah]王晓平 21:13:14

帅哥，不行啊

。。。。。。。。。

笑神马

我才学了八天

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

叫Z版帅哥

[yeahyeah]王晓平 21:16:03

不研究了，采纳桔子哥的吧

[yeahyeah]王晓平 21:17:19

怎么加

[yeahyeah]王晓平 21:18:43

(setq a (getdist "  横向布置点数[默认值1]:")
  (if (null a)(setq a 1)())
  (setq b (getdist "  横向布置点数[默认值1]:")
  (if (null b)(setq b 1)())
_$ 
; 错误: 输入的列表有缺陷
_$

[vormittag]桔子 21:19:05

[qqimg]201308/{56F98472-63B2-D26D-0977-A6A539307057}.jpg[/qqimg]你数数括号匹配么。[qqimg]201308/{F3710241-B851-5EA6-79E8-AAB91970A634}.gif[/qqimg]

[pzweng][pzweng]路人 21:20:22

(setq a (getdist "  横向布置点数[默认值1]:"))
  (if (null a)(setq a 1)())
  (setq b (getdist "  横向布置点数[默认值1]:"))
  (if (null b)(setq b 1)())

[onestonest] 21:27:07

谁有数值取大值的历史片

[yeahyeah]王晓平 21:27:14

是我马虎了。但是按照这么修改，执行后粘贴到第一点的位置了

[ds-limt]-厨师木 21:27:51

[qqimg]201308/{9A882FE4-1B5F-6927-AFCA-7DD65B37CA7B}.jpg[/qqimg]这是N条多段线，一小段的

[onestonest] 21:28:23

不是这个，是重叠在一起

取个大值

[onestonest] 21:28:57

应该有很多成熟的lisp，一下找不到

[yeahyeah]王晓平 21:33:34

(defun c:fb (/ a b)

[yeahyeah]王晓平 21:34:07

全局变量，a,b可能不为空

[yeahyeah]王晓平 21:34:59

不对不对不对，还是错的

[cie0588][cie0588] 21:35:31

要说清楚撒

[onestonest] 21:36:05

两个计算模型，我要取个大值

[cie0588][cie0588] 21:36:38

。。。

[yeahyeah]王晓平 21:37:04

[cie0588][cie0588] 21:37:39

两个计算模型 是啥？

[野狼谷]笨鸟 21:38:50

[qqimg]201308/{1397D912-DBDB-E634-DF45-27A6E1C49374}.jpg[/qqimg]

[qqimg]201308/{78A0025C-E6F3-4280-91AD-4841CE1C27ED}.jpg[/qqimg]

[yeahyeah]王晓平 21:46:47

我国有的设计院也有类似的软件了

比如配管什么的

[野狼谷]笨鸟 21:47:15

差距还是不小

[yeahyeah]王晓平 21:47:28

那是啊

人家那多强啊，世界第一啊

[优先级][oldenn]河马 21:47:57

检查管道碰撞的？

[野狼谷]笨鸟 21:48:17

可操作性

[优先级][oldenn]河马 21:49:10

我一个同学在某核工业设计院的，说他们公司一个管道碰撞检查软件花了1000W+，我怀疑自己有没有听错

[野狼谷]笨鸟 21:49:35

100万美金吧

中国人就喜欢买办

软件买了一大堆，

[优先级][oldenn]河马 21:50:04

1000W当然是人民币了

[yeahyeah]王晓平 21:51:53

比如石化项目，有的地方是很窄的，石化管道，电气配线管，给排水管道等，就需要提前模拟下

[yeahyeah]王晓平 21:52:32

把各个专业的东西输进去，很快的就知道碰不碰了

[野狼谷]笨鸟 21:53:34

这只是一个方面

[yeahyeah]王晓平 21:57:48

举个例子，没想具体的。。

[野狼谷]笨鸟 21:58:18

高点排气，低点放液

[yeahyeah]王晓平 21:58:46

http://bbs.mjtd.com/forum.php?mo ... mp;page=1#pid605056

[yeahyeah]王晓平 22:01:01

谁懂为什么小帅那个为什么不行啊

[yeahyeah]王晓平 22:02:04

谢谢

明经快报

[ZZXXQQ] 22:34:17

加尾病毒

[lisp-study]jun 22:34:27

怎么杀

[ZZXXQQ] 22:35:51

手工挨个删去每个LISP的尾部病毒代码，然后将所有LISP文件只读处理

[ucuc2003][ucuc2003]易水 22:36:02

以前我也遇到过

[lisp-study]jun 22:36:11

[ucuc2003][ucuc2003]易水 22:37:11

那相当可怕，自动写入代码长达半分钟多...

[]Tony 22:39:33

有一个块无法分解，

自己做的，做块时选择了无法分解，现在想分解它

[yeahyeah]王晓平 22:41:45

各位，把整数转成实数有函数吗

[ZZXXQQ] 22:42:51

FLOAT

[why1025][7299969]人生 22:48:13

4个点按这个顺序排序,

[why1025][7299969]人生 22:48:51

这么写对吗

[]Tony 22:54:33

新建个VLX怎么设置呀，有DCL的

[]Tony 22:55:04

我用LISP用可以，用VLX不行

[ZZXXQQ] 23:00:20

直接用专家方式编译

[]Tony 23:00:44

好了，是我选择了错误