2013-07-11 明经 AutoLISP 编程(102918348) 群聊记录：(defun c:cc(/ ss ssarea p);找形心 (setq

明经快报

[500w008]500w008 00:01:06

(defun c:cc(/ ss ssarea p);找形心
  (setq ss(ssget))
  (setq i 0)
  (setq len (length ss))
  (repeat len
  (setq s_x (ssname ss i))
  (command "_.region" s_x "")
  (setq p(vlax-get (vlax-ename->vla-object s_x)"centroid"))
  (command "_.explode" "L")
 (entmake
    (list (cons 0 "point") (cons 8 "temp") (cons 10 cep))
  )
  (setq i (+ i 1))
)
  (princ)
)

把形心也打印出来 有错

(defun c:cc(/ ss ssarea p);找形心
  (setq ss(ssget))
  (setq i 0)
  (setq len (length ss))
  (repeat len
  (setq s_x (ssname ss i))
  (command "_.region" s_x "")
  (setq p(vlax-get (vlax-ename->vla-object s_x)"centroid"))
  (command "_.explode" "L")
 (entmake
    (list (cons 0 "point") (cons 8 "temp") (cons 10 p))
  )
  (setq i (+ i 1))
)
  (princ)
)

[500w008]500w008 00:08:03

(defun c:cc(/ ss s_x p);找形心
  (setq ss(ssget))
  (setq i 0)
  (setq len (length ss))
  (repeat len
(progn
  (setq s_x (ssname ss i))
  (command "_.region" s_x "")
  (setq p(vlax-get (vlax-ename->vla-object s_x)"centroid"))
  (command "_.explode" "L")
  (entmake
    (list (cons 0 "point") (cons 8 "temp") (cons 10 p))
  )
  (setq i (+ i 1))
)
)
  (princ)
)

明经快报

[500w008]500w008 07:52:14

[qqimg]201307/{C0E7A7F8-DBF9-EC9E-235E-BE3D93915467}.jpg[/qqimg]

[pzweng][pzweng]路人 07:55:35

[qqimg]201307/{EA4B8AD7-244B-9A96-079E-C0015D1B06C6}.gif[/qqimg]咪咪？

明经快报

[500w008]500w008 08:20:31

(defun c:cc(/ ss s_x p);找形心
  (setq ss(ssget))
  (setq i 0)
  (setq len (length ss))
  (repeat len
(progn
  (setq s_x (ssname ss i))
  (command "_.region" s_x "")
  (setq p(vlax-get (vlax-ename->vla-object s_x)"centroid"))
  (command "_.explode" "L")
  (setq p (car (entget )))
  (setq p_x (car p)
        p_y (cadr p)
        lpp (list p_x p_y)
  )
  (entmake
    (list (cons 0 "point") (cons 8 "temp") (cons 10 lpp))
  )
  (setq i (+ i 1))
)
)
(princ)
)

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

晕死

[500w008]500w008 08:20:48

点不出来 怎么办哥

[pzweng][pzweng]路人 08:21:23

(list (cons 0 "point") (cons 8 "temp") (cons 10 lpp))
这句有行不行

temp有没有

[500w008]500w008 08:22:04

哦 我试试

[500w008]500w008 08:26:57

(defun c:cc(/ ss s_x p);找形心
  (COMMAND "LAYER" "M" "pt" "C" "4" "pt" "LT" "continuous" "pt" "")
  (setq ss(ssget))
  (setq i 0)
  (setq len (length ss))
  (repeat len
(progn
  (setq s_x (ssname ss i))
  (command "_.region" s_x "")
  (setq p(vlax-get (vlax-ename->vla-object s_x)"centroid"))
  (command "_.explode" "L")
  (setq p (car (entget )))
  (setq p_x (car p)
        p_y (cadr p)
        lpp (list p_x p_y)
  )
  (entmake
    (list (cons 0 "point") (cons 8 "pt") (cons 10 lpp))
  )
  (setq i (+ i 1))
)
)
(princ)
)

[500w008]500w008 08:28:26

仍然不行

(setq p (car (entget )))

[pzweng][pzweng]路人 08:35:52

你的图层名是pt?

[pzweng][pzweng]路人 08:37:50

错误太多

[500w008]500w008 08:38:30

是

[仲文玉][仲文玉]wygjx 08:39:08

自己逐条调试，发了n遍

[pzweng][pzweng]路人 08:39:18

是啊。烦死人了

[仲文玉][仲文玉]wygjx 08:39:20

看看变量对不对

[pzweng][pzweng]路人 08:39:26

昨晚12点还在发

[仲文玉][仲文玉]wygjx 08:39:40

[qqimg]201307/{C800B82C-7281-8437-A617-D7415D67D960}.jpg[/qqimg]

[pzweng][pzweng]路人 08:39:51

这句没错

前面错了很多

[500w008]500w008 08:40:53

帮忙看下

[pzweng][pzweng]路人 08:41:05

你的目的是什么

[仲文玉][仲文玉]wygjx 08:41:11

论坛不是有么

形心

[pzweng][pzweng]路人 08:41:24

这肯定是论坛里找的

[500w008]500w008 08:41:28

论坛上 都是单个的

是

[仲文玉][仲文玉]wygjx 08:41:49

加上循环不就是了

[pzweng][pzweng]路人 08:41:50

你要选多线段

[500w008]500w008 08:42:17

选了的

[qqimg]201307/{B7B4CA93-3ECF-F23A-17FC-D9B3223B8E29}.jpg[/qqimg]

[pzweng][pzweng]路人 08:42:43

你要确定是封闭的多线段

[雨的节奏][雨的节奏] 08:42:48

局长最喜欢的一位女秘书，工作上毫无过错，却被局长炒鱿鱼了。
有朋友问是何缘由？局长说：“前几天我过生日，她邀请我去她家过，她还特别告诉我她老公出差了。进门后她让我呆在客厅，然后神秘地说她先去卧室，让我五分钟后再进去。”
朋友急切地问到“然后呢……？”
局长愤愤地说“我推开卧室门后，顿时被吓晕了，单位里的同事都挤在卧室里点着蜡烛，齐声唱起生日快乐歌”。
朋友舒了口气说 “那有什么了不得？这创意不错啊！”
局长怒火中烧，骂道：“他妈的，还不错呢，老子是光着身子进去的！”

[500w008]500w008 08:43:41

[qqimg]201307/{740CAECF-D919-B89F-F026-2AEC60436832}.GIF[/qqimg]

[pzweng][pzweng]路人 08:44:21

(defun c:test (/ ss s_x p)        ;找形心
  (COMMAND "LAYER" "M" "pt" "C"    "4" "pt" "LT" "continuous" "pt"    "")
  (setq ss (ssget))
  (setq i 0)
  (setq len (sslength ss))
  (repeat len
    (progn
      (setq s_x (ssname ss i))
      (command "_.region" s_x "")
      (setq p (vlax-get (vlax-ename->vla-object (entlast)) "centroid"))
      (entmake
    (list (cons 0 "point") (cons 8 "pt") (cons 10 p))
      )
      (setq i (+ i 1))
    )
  )
  (princ)
)

[onandoff] 08:44:34

海天盛筵啊

[500w008]500w008 08:46:41

可以了

[pzweng][pzweng]路人 08:47:09

在论坛混这么久了，这种简单的都不会

[500w008]500w008 08:47:39

我一般是凑起来的 没有怎么思考 用脑 太伤神经

[pzweng][pzweng]路人 08:47:42

下次有问题在论坛里发，别在群里无止尽的发

[500w008]500w008 08:47:43

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[pzweng][pzweng]路人 08:48:03

再这样找T

[500w008]500w008 08:48:22

差不多可以T掉我了

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

呵呵，那不止，要封论坛帐号的

[500w008]500w008 08:55:36

[qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]准备凑个一键出地下室

[pzweng][pzweng]路人 08:59:33

你这水平凑毛线

别来烦大家就行

[500w008]500w008 09:00:02

我凑了几个好用的 共享了

[500w008]500w008 09:01:06

我们这个专业 只要会凑就行了 不像机械 模具

[pzweng][pzweng]路人 09:01:21

你连凑都不会

[vormittag]桔子 09:01:32

胶水的本事谁都有，有什么可共享的。

[pzweng][pzweng]路人 09:02:22

就知道使劲在群里发来发去

[500w008]500w008 09:03:33

[qqimg]201307/{B0665973-2E4D-0A15-254E-CFC74BB22072}.gif[/qqimg]

[pzweng][pzweng]路人 09:04:53

这有何难

雕虫小技

[csc123456]顽强 09:06:01

会则不难，隔行如隔山

[500w008]500w008 09:06:43

洗洗睡

[pzweng][pzweng]路人 09:07:18

发了几遍了

[onandoff] 09:07:26

[lisp-study]jun 09:07:32

这个没啥用处

[csc123456]顽强 09:07:44

[lisp-study]jun 09:08:14

一般都用生成的图纸修改 生成的都是画好了的

[pzweng][pzweng]路人 09:08:18

我看这个也不是他自己凑的

也是别人给他弄好的

[500w008]500w008 09:09:27

好咯 都是你们贡献

[500w008]500w008 09:12:58

[qqimg]201307/{C0E7A7F8-DBF9-EC9E-235E-BE3D93915467}.jpg[/qqimg]

明经快报

[500w008]500w008 09:28:30

路人 帮我纠正一个错误 就以导师自居 [qqimg]201307/{91AE7D65-5E97-C37F-47D1-1C543EFD8A1D}.gif[/qqimg]

[pzweng][pzweng]路人 09:28:50

你不止一两次

你自己知道

[500w008]500w008 09:30:03

我个脑都没你们发达 所以得请教你们

 你们有一个机器般的脑袋

[onandoff] 09:32:55

  人家也是学出来的 熟能生巧

[kwok][ww5w]行舟月下 09:33:29

每次看到帮助那些car就眼困，汗

还是要多写，光看没用，一会就忘了

[雨的节奏][雨的节奏] 09:34:34

[qqimg]201307/{DB849334-E3C3-0FD0-41CA-615D0522D0ED}.GIF[/qqimg]

[VBALISPER]恐龙 09:41:49

各位高手,麻烦帮我看一下这个进位的程序.怎么总是进位不全.

[VBALISPER]恐龙 09:42:22

结果中还有某位数为10的(3 1 3 8 2 5 9 3 2 9 5 1 5 5 9 0 5 6 7 9 2 3 3 8 8 1 10 8 3 4 10)

[500w008]500w008 09:44:51

[qqimg]201307/{9E344B5C-E11E-60D0-CB02-A306142436B3}.jpg[/qqimg]

[500w008]500w008 09:45:44

[qqimg]201307/{4395DECD-3E51-0EA4-5DE2-1415901EA0B9}.jpg[/qqimg]

[tiyi8888]永远D痛 09:51:41

什么东东

他不逃吗

这么巧

[pzweng][pzweng]路人 09:58:27

他不信别人会压他

[夏生生][x_s_s_1]生无可恋 10:02:07

[qqimg]201307/{E691469D-7DE6-955E-1C95-EABA3130B74B}.jpg[/qqimg]不要侮辱结构专业

[冷面修罗][冷面修罗] 10:02:32

这个是那里的？这么强悍

[VBALISPER]恐龙 10:04:29

XSSL,有空没有,帮我看看进位的问题好吗

[夏生生][x_s_s_1]生无可恋 10:04:47

我看看，不一定会

[500w008]500w008 10:05:03

[qqimg]201307/{740CAECF-D919-B89F-F026-2AEC60436832}.GIF[/qqimg] 你也有不会时候

[VBALISPER]恐龙 10:05:18

代码就在前面.修改表中某一位值,用的你昨天写的函数.

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

是我的吧

[VBALISPER]恐龙 10:07:03

你的和XSSL类似,但确是他的

[x_s_s_1]生无可恋(381164857) 22:08:33 
()(defun change_n(lst n change / lst1)
  (repeat (1- n)(setq lst1(cons (car lst)lst1)lst(cdr lst)))
  (append(reverse lst1)(cons change(cdr lst)))
  )

[pzweng][pzweng]路人 10:07:23

他用的是mapcar

[pzweng][pzweng]路人 10:08:14

差不多

[VBALISPER]恐龙 10:09:08

我刚从昨天聊天记录复制过来的呀.桔子和雨中漫建议的是用mapcar

[pzweng][pzweng]路人 10:09:26

这样啊

呵呵，我只看到mapcar

[夏生生][x_s_s_1]生无可恋 10:09:46

出个变更先

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

恐龙

如果是-143呢

应该是什么值

[VBALISPER]恐龙 10:14:04

借前一位150.本位=7

[pzweng][pzweng]路人 10:14:20

不太懂

[VBALISPER]恐龙 10:14:29

每个元素值=0

[pzweng][pzweng]路人 10:14:57

(3 2 -6 3 -56 85 5 41 22 15 -50 -52 33 22 37 17 36 -4 13 -56 44 81 19 
51 -23 13 -14 47 11 31 -60)
这个表的结果应该是什么样的

[VBALISPER]恐龙 10:15:18

不是

[pzweng][pzweng]路人 10:15:28

(3 2 -6 3 -56 85 5 41 22 15 -50 -52 33 22 37 17 36 -4 13 -56 44 81 19 51 -23 13 -14 47 11 31 -60)

这个表的结果应该是什么样的

[VBALISPER]恐龙 10:16:03

就相当于每个元素是一位数.0-9的数.>9了要进位.

[lisp-study]jun 10:16:32

不懂

你直接举例说明

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

-60进位是多少

[VBALISPER]恐龙 10:16:49

(3 1 3 8 2 5 9 3 2 9 5 1 5 5 9 0 5 6 7 9 2 3 3 8 8 1 10 8 3 4 10)可能是这个结果吧.只是还有两个10没有进位.

[pzweng][pzweng]路人 10:17:02

-60借位后是多少

[VBALISPER]恐龙 10:17:15

要在前面借60.这位为0,前位-6

[pzweng][pzweng]路人 10:17:31

那应该是7?

[VBALISPER]恐龙 10:17:44

所以这个程序不知道错在哪里.我也没检查出来错误.

[pzweng][pzweng]路人 10:17:52

是不是返回7?

[VBALISPER]恐龙 10:17:57

不是7

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

是多少

6?

[VBALISPER]恐龙 10:18:29

-60,要在前面借6个,在本位就是60.结果是这位为0,前位-6

就和数学加减法进位借位一样.

[VBALISPER]恐龙 10:20:10

假设是(1 9 34)那么34,就要向前一位进3,本位变成4,9得到后面进来的3,变成12,又向前进1,本位变成2.最后结果就是(2 2 4)

[328302216][328302216]小莫 10:21:05

谁有画门、窗、柱、樑的小程序，可以分享弄来玩玩吗！！

[pzweng][pzweng]路人 10:21:33

明白了

134呢

（1 9 134） -> (3 2 4)

是不

[VBALISPER]恐龙 10:22:12

(9 -60)就从前一位借6个过来.把-60变成0,前面减6,得(3 0)

134就要向前 一位进13

[pzweng][pzweng]路人 10:22:26

明白了

好

我看看

[VBALISPER]恐龙 10:22:46

多谢各位出手相助.

[lisp-study]jun 10:23:17

这样说一下子就明白了

[pzweng][pzweng]路人 10:23:27

9494

[VBALISPER]恐龙 10:23:40

[pzweng][pzweng]路人 10:23:48

干脆重写得了

[VBALISPER]恐龙 10:25:10

哦.写得不好哈.我感觉程序没问题,用了昨天你们写的修改某个元素值的函数.但结果却不对.用了两次进位函数还是有个别出现10的情况.

[夏生生][x_s_s_1]生无可恋 10:25:15

（11 31 -60）返回(14 7 0)?

[VBALISPER]恐龙 10:25:59

31被借6个,变成25.第二位就为5,向前进2

(1 3 5 0)

第1个11+2,=13,就又向前进1.

[夏生生][x_s_s_1]生无可恋 10:26:50

那就是说明你的表要变长的

[VBALISPER]恐龙 10:26:58

不会.

最前面的数字小,不会再进位

[VBALISPER]恐龙 10:28:33

这是求PI的程序的一部分.最前面的3.14这些不会再进位了.

[VBALISPER]恐龙 10:29:56

只是目前精度还不够,结果不是(3 1 4 1 5 9 2 6....)后面几位有错.但每个元素只能是0-9的数.要进位或借位.

[pzweng][pzweng]路人 10:30:11

前面是(0 3 -6)->会是什么

[VBALISPER]恐龙 10:30:33

(0 2 4)

[夏生生][x_s_s_1]生无可恋 10:30:33

你那个表最后6唯是不是(2 0 8 3 5 0)

[pzweng][pzweng]路人 10:30:51

怎么来的

[VBALISPER]恐龙 10:31:01

我看看

[夏生生][x_s_s_1]生无可恋 10:31:23

[pzweng][pzweng]路人 10:31:37

哦

[500w008]500w008 10:31:53

那个形心程序怎么把 选择的多义性也变成了ETMAKE的图层了

[VBALISPER]恐龙 10:32:02

13 -14 47 11 31 -60)                  1 2 0 8 3 5 0

对的208350,前面还要进一个1

13 -14 47 11 31 -60)            1 2 0 8 3 5 0

[夏生生][x_s_s_1]生无可恋 10:32:32

明白了

[仲文玉][仲文玉]wygjx 10:33:05

这东东有啥用哈

有点意思

[pzweng][pzweng]路人 10:33:43

那不是表长了？

[仲文玉][仲文玉]wygjx 10:34:11

表长度会因为首位数字大小改变

[pzweng][pzweng]路人 10:35:06

是呀

[仲文玉][仲文玉]wygjx 10:35:26

首先判断首位数字

[仲文玉][仲文玉]wygjx 10:36:00

如果>8就要看第二位了

[xiaomm250][lisp_](car (entsel)) 10:36:47

[qqimg]201307/{162009BA-D4CD-F36C-1E0C-4F65F843BBC0}.jpg[/qqimg] ,如何把这儿加载的插件的记录都导出来,然后导到另一台电脑上?

[pzweng][pzweng]路人 10:36:54

第二会是3位数怎么办

[VBALISPER]恐龙 10:37:01

这是由很多表单位相加得到的.每个元素代表一个数字,只能是0-9的.这个程序计算PI值的一部分,前几位定了,只能是3 1 4 ...

前面不会再进位了.

[仲文玉][仲文玉]wygjx 10:37:40

啊，不进位？

[VBALISPER]恐龙 10:38:02

嗯.应该是从后面往前进位

第一位是3,

[仲文玉][仲文玉]wygjx 10:38:41

第2位是3位数，就要吧3位数的前两位进入第一位

3位数，不是3

[仲文玉][仲文玉]wygjx 10:39:19

是3的就保持原数不变了

[pzweng][pzweng]路人 10:39:20

3位数怎么办

[VBALISPER]恐龙 10:39:24

第3位如果>9了,就向第2位进1.和数学加法一样.

0-9的都不变.

[pzweng][pzweng]路人 10:39:56

(3 155) -> (3+15 5)->(1 8 5)

[仲文玉][仲文玉]wygjx 10:40:04

就要把 3位数的前两位 并入第一位后，计算第一位

[VBALISPER]恐龙 10:40:06

哦.我明白了.我的程序就错在这里.

[pzweng][pzweng]路人 10:40:29

错哪里了

[VBALISPER]恐龙 10:41:04

0-9的也进位或借位了.

[仲文玉][仲文玉]wygjx 10:41:05

如果第二位是三位数，表长度至少加一位

[pzweng][pzweng]路人 10:44:10

(

少一个判断吧

[VBALISPER]恐龙 10:44:46

(3 2 -6 3 -56 85 5 41 22 15 -50 -52 33 22 37 17 36 -4 13 -56 44 81 19 51 -23 13 -14 47 11 31 -60)现在的表是这样.前几位没有3位数的.

[pzweng][pzweng]路人 10:44:48

把做好的程序发过来看看

[VBALISPER]恐龙 10:45:30

好的。

[pzweng][pzweng]路人 10:46:23

求圆周率啊

[VBALISPER]恐龙 10:46:59

是的。

[VBALISPER]恐龙 10:53:46

我还是没找到错的地方。>9和

[pzweng][pzweng]路人 10:55:19

还不行

[pzweng][pzweng]路人 10:56:36

你没有写等于9的判断呀

[VBALISPER]恐龙 10:56:53

=9不用进位嘛

[pzweng][pzweng]路人 10:57:16

那也得写

程序不知道

[VBALISPER]恐龙 10:57:55

我没明白.不进位就保持原样.

[仲文玉][仲文玉]wygjx 10:59:08

本位是9可以不写

他是从表最后往前算的

[VBALISPER]恐龙 10:59:25

(1 3 9 3)不进行change_n过程.直接跳过了.

[仲文玉][仲文玉]wygjx 10:59:26

不影响

[pzweng][pzweng]路人 10:59:59

说明9还是要判断的

[pzweng][pzweng]路人 11:03:04

不对

我看一下

[pzweng][pzweng]路人 11:04:47

感觉写复杂了

[VBALISPER]恐龙 11:05:59

哦.是有可能.我程序就是写得乱.

[pzweng][pzweng]路人 11:06:47

我知道了

(setq jg (change_n    jg m (+ benwei jiews)))
这里错了

(+ benwei jiews) = 10

[VBALISPER]恐龙 11:08:21

多借了1个10,好象是

[仲文玉][仲文玉]wygjx 11:08:43

fix

[VBALISPER]恐龙 11:09:21

看来就是这里错了.  -43  借 50   而-40,只能借40不能借50

谢谢各位

[pzweng][pzweng]路人 11:10:38

(3 1 7 2 8 5 9 3 2 9 5 9 5 5 9 0 5 4 7 1 2 3 3 8 2 1 0 8 3 4 0)

这样对不

(setq tem_n (- (abs benwei )(* 10 (fix (/ (abs benwei) 10)))))
加了这句

[VBALISPER]恐龙 11:11:10

可能是对的吧.位数少,前面都不是3 1 4了

[VBALISPER]恐龙 11:13:21

好象还没有对,直接fix,好象遇到-43这样的,只借了40来,还是-3.要借50,得7

我再改一下.

[邹锋]Tony 11:13:38

它把图纸也删除了，怎么让它不删除

[邹锋]Tony 11:20:02

怎么搞

[pzweng][pzweng]路人 11:28:59

(3 2 -6 3 -56 85 5 )前面几位

这几位能得出3.14159?

[pzweng][pzweng]路人 11:37:28

恐龙在吗

[VBALISPER]恐龙 11:46:50

在

[夏生生][x_s_s_1]生无可恋 11:46:51

(defun test (lst / n a b c d lst1)
  (setq n (length lst))
  (setq lst (reverse lst))
  (repeat n
    (setq a   (car lst)
      lst (cdr lst)
    )
    (cond ((< a 0)
       (setq c (abs a)
         d (fix (/ c 10.))
       )
       (if (= 0 (rem c 10))
         (setq b    (- d)
           lst1    (cons 0 lst1)
           lst    (cons (+ (car lst) b) (cdr lst))
         )
         (setq b    (- (1+ d))
           lst1    (cons (- a (* b 10)) lst1)
           lst    (cons (+ (car lst) b) (cdr lst))
         )
       )
      )
      ((= 0 a) (setq lst1 (cons 0 lst1)))
      ((> a 0)
       (setq b (fix (/ a 10.)))
       (if (< a 10)
         (setq lst1 (cons a lst1))
         (setq lst1    (cons (- a (* b 10)) lst1)
           lst    (cons (+ (car lst) b) (cdr lst))
         )
       )
      )
    )
  )
)

恐龙，看看这个

(3 1 3 8 2 5 9 3 2 9 5 1 5 5 9 0 5 6 7 9 2 3 3 8 8 2 0 8 3 5 0) 你的表返回的

[VBALISPER]恐龙 11:47:28

前几位不一能是 3 1 4 1 5 9 ,位数少了,相加的项少了,精度 不够

好的.谢谢

[pzweng][pzweng]路人 11:49:06

程序没错吧

[VBALISPER]恐龙 11:50:47

应该没有错.我那个就是还要加一个判断.编的时候,只考虑到了-43这样的情况.借50.没考虑到整10的情况,-40,只借40,得0,如果借了50,就成了10了.

[pzweng][pzweng]路人 11:51:29

(>= benwei 9)
这里要用>=

[VBALISPER]恐龙 11:51:49

不是吧.=9也不用进位的.

[VBALISPER]恐龙 11:52:29

吃饭了.食堂定时的.下午再聊.谢谢各位关注.指导

[夏生生][x_s_s_1]生无可恋 11:52:47

测试下

[pzweng][pzweng]路人 11:52:50

你试试看

[VBALISPER]恐龙 11:53:09

好的

[pzweng][pzweng]路人 11:54:47

(3 1 3 8 2 5 9 3 2 9 5 1 5 5 9 0 5 6 7 9 2 3 3 8 8 2 0 8 3 4 9 6 8 9 7 0 3 6 3 3 8 3 7 8 9 4 6 1 7 7 0 2 1

明经快报

[stoyer][stoyer] 12:13:35

请问各们老大，自定义菜单怎么和自己写的lisp命令链接起来？
比如我有两个命令，AA1 ,AA2；哪位老大能给个范本啊？

明经快报

[邹锋]Tony 12:36:19

谁有秋枫打印源码

明经快报

[hutong]死胡同 14:01:45

[qqimg]201307/{BD3DE564-8A94-B769-82D5-7F0CCE90C2D9}.jpg[/qqimg]
川G-胡同(331871107)  14:00:34
如何通过中间的注记15 获取到外面的封闭多段线..求给个思路

[gtj116600]轶凡 14:03:55

boundary

hatch

[农]老农 14:10:19

各位  请问CAD中有的图块用getboundingbox无法获取外框尺寸时，有何办法解决？

明经快报

[yarp]潜水 15:25:31

请教一下，cad浮点精度的有效位数是多少位啊？（不是指显示出来的）

[pzweng][pzweng]路人 15:27:21

16吧

[yarp]潜水 15:30:56

谢谢。

明经快报

[leyouyou001]youyou 15:48:23

大师们，有没有测量线段，直接把线段的长度文字标注在线段上呀

[hutong]死胡同 15:48:46

注记吧.

d

[leyouyou001]youyou 15:49:07

有吗

[vormittag]桔子 15:49:18

这是最简单的编程练习了。

[leyouyou001]youyou 15:49:34

[leyouyou001]youyou 15:52:27

谁给搞一个呀

[tryhi]大海 15:53:23

[qqimg]201307/{972A43C1-3E99-C8D2-0CF8-260F38DFA393}.jpg[/qqimg]

谁知道这个东西怎么弄出来的，在CASS里面

[VBALISPER]恐龙 15:53:59

生无可恋,你的代码我试了,很好.正在看各句的含义.

[夏生生][x_s_s_1]生无可恋 15:55:29

[VBALISPER]恐龙 15:56:40

是将表倒置后,逐位重新组表哈,省去了替换的过程,速度快了很多.

[夏生生][x_s_s_1]生无可恋 15:57:19

算法还不是很好，判断太多

您根据这个思路再优化一下吧

[VBALISPER]恐龙 15:57:59

好的.谢谢了

[夏生生][x_s_s_1]生无可恋 15:58:07

不客气

[夏生生][x_s_s_1]生无可恋 15:58:44

优化cond部分

[VBALISPER]恐龙 15:59:36

你写的,差不多也是很优的了.

明经快报

[xiaomm09]江湖 16:14:23

[AMKYUD]??? 在否？

[cmbcmbcjh]兮兮 16:14:37

线条line 显示有宽度，改那个变量？

[pzweng][pzweng]路人 16:15:04

lineweigth

[cmbcmbcjh]兮兮 16:15:22

谢谢

[xiaomm09]江湖 16:15:30

你发的递归的视频 是 郝斌的C语言里面的吗？怎么编号从50几开始的？

[pzweng][pzweng]路人 16:15:36

LWDISPLAY

[lisp-study]jun 16:17:39

我写的东西在08以前的版本都没问题  在2010中就出问题了 请问2010有哪些不一样的么

[csc123456]顽强 16:17:51

哪位有现成的比较好用的PDF虚拟打印机发个给我呀，谢谢啦！

方便的话，发个离线，多谢啦！

[hutong]死胡同 16:19:29

PDFfactory

[tryhi]大海 16:21:38

请问一下arcgis怎么转成CAD格式的，想把某一字段也一块转换成标注

[小伟jeny]小伟 16:24:01

先转成anno

在exporttocad

[cmbcmbcjh]兮兮 16:25:49

[qqimg]201307/{81519470-6916-B48A-3C8C-86FB00BA332C}.jpg[/qqimg]

[csc123456]顽强 16:29:50

谢谢 可恋

[tryhi]大海 16:36:08

请问小伟

@[小伟jeny]小伟 
[qqimg]201307/{4C0D8B81-31DE-B5C2-AF3D-78D7C1F6530E}.jpg[/qqimg]
这里是灰色怎么弄