2013-06-03 明经 AutoLISP 编程(102918348) 群聊记录：发一下广告，不好意思打扰了！ 我的网店男女婴儿家居服睡衣，大家支持一下，帮看

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 17:24:14

应该可以

用判断字符的方法

ya雀无声 17:25:05

[qqimg]oldimg/{2D975919-681A-C2F2-A723-C148F65FB69E}.jpg[/qqimg]这样选择这个柱子的填充，

[【KAIXIN】] [【KAIXIN】]炫翔 17:25:14

或者直接用grread

明经快报

ya雀无声 17:36:34

(setq ss(ssget "X" (LIST (0. "solid"))))

明经快报

[雨的节奏][雨的节奏] 17:59:14

[qqimg]oldimg/{D331712B-AD65-34E0-74F0-965466174150}.jpg[/qqimg]

ya雀无声 18:04:47

仅得到选择集，不进行任何操作，

明经快报

[weiqi]weiqi 19:44:38

[qqimg]oldimg/{1EC7992E-35AB-B927-51DD-6C85D0E3BF80}.gif[/qqimg]

[【KAIXIN】] [【KAIXIN】]炫翔 19:46:04

复制后  旋转？

[weiqi]weiqi 19:46:10

恩

写得很烂

[【KAIXIN】] [【KAIXIN】]炫翔 19:46:28

实现就好

[weiqi]weiqi 19:46:39

求高手改改。。

[weiqi]weiqi 19:47:43

刚刚点下的点。得怎么获取？

[【KAIXIN】] [【KAIXIN】]炫翔 19:48:16

(ENTLAST)

好像不可以

只有备份变量

[weiqi]weiqi 19:48:51

噢。

[【KAIXIN】] [【KAIXIN】]炫翔 19:48:55

(SETQ O(GETPOINT))

[weiqi]weiqi 19:50:04

定不了吧。。。我再查查。

[雨的节奏][雨的节奏] 19:50:18

[【KAIXIN】] [【KAIXIN】]炫翔 19:50:34

关闭捕捉

[【KAIXIN】] [【KAIXIN】]炫翔 19:51:09

出去溜达了，各位慢慢聊

[weiqi]weiqi 19:51:54

恩

[qqimg]oldimg/{33E56E70-1F95-C11B-FB59-780B0E8D3DF6}.jpg[/qqimg]

像这样，点下去 第2个点，怎么掉出来坐标

[雨的节奏][雨的节奏] 19:53:12

[qqimg]oldimg/{65784DBF-4B30-C2CD-981C-342CE821DCC2}.gif[/qqimg]

感觉有点鸡肋

[weiqi]weiqi 19:53:34

，我自己画图有用 呵呵

[雨的节奏][雨的节奏] 19:53:54

用旋转命令pause不行吗

[weiqi]weiqi 19:55:56

不是很懂，复制程序就是用严兄的 复制后PAUSE的 改的。

[jicqj]大力水手 19:55:59

你可以计算对像的中心点 也可以实现

[weiqi]weiqi 19:56:02

不是太准

刚刚第2个点下的点，。。比较准。

中心点，对我来说没用噢

[jicqj]大力水手 19:57:00

等等 我找找看

[weiqi]weiqi 19:58:27

(vl-cmdf "rectang" (setq p2(getcorner p1 " 第二点:")) p1)
用这个来改吧。。

[偏爱云~小吴] 19:59:36

[qqimg]oldimg/{A829A692-99CC-F6E4-12C6-621F9107CF80}.jpg[/qqimg]求一坐标标注的程序，如人工定义图面上任意一点，可以根据图形的比例自动生成标注出其他坐标，怎么搞，请高手指教。

[偏爱云~小吴] 20:01:01

我的初步想法的坐标输出时X,Y,Z三个值因为有一个值是一致的，如图上的X值，输出时人工设定如输入X: 28400，Y,Z自动生成，

[mitenickevin]kevin 20:03:23

ＬＩＳＰ如何得到一个随机数字啊　请教

[jicqj]大力水手 20:12:29

weiqi    
(command  "copy" ss1 "" pt1 pause)
(setq pt1 (getvar "lastpoint"))  这是你刚刚需要的点

[weiqi]weiqi 20:13:27

我搞好咯，谢谢你了。

(command "copy" ss "" pt (setq p2(getpoint " 请指点目标点:")))

发现可以这些了， (getvar "lastpoint")计下啦 3Q

[weiqi]weiqi 20:16:33

(ssget "l") 怎么对个对象呢？

[weiqi]weiqi 20:17:08

就是 我刚刚 复制创建 了多个对象，怎么选择我刚刚 复制生成的对象。。。

[jicqj]大力水手 20:19:50

http://bbs.mjtd.com/thread-101345-1-1.html   for weiqi

[weiqi]weiqi 20:23:49

3Q

[zk2140]Kevin 20:32:05

[qqimg]oldimg/{2B64E052-614D-9ED3-C002-14456F43DBE4}.jpg[/qqimg]
这个如何实现，求指导

[kwok][kwok]巭隼 20:36:06

复制 阵列

按角度

[lisp-study]jun 20:38:35

单行文本编辑的模式是哪个系统变量呀？

明经快报

[野狼谷]笨鸟 21:29:19

(setq Old_GroupNumber_list (list "1111"  "1117"  "1115" "1113"  "1112"  "1117"  "1115"  "1114"  ))
(Defun Sort_GroupNumber    (Old_GroupNumber_list
             /
             New_GroupNumber_list
            )

     (setq New_GroupNumber_list
           (vl-sort    Old_GroupNumber_list
            '(lambda (e1 e2)
                
                  (< (atoi e1)
                 (atoi e2)
                  )



             )
            ;;end if 

           )
           ;; end lammbda

     )
)

明经快报

[zk2140]Kevin 21:39:20

嗯，谢谢

明经快报

[zk2140]Kevin 21:51:15

？#线

[tiyi8888]永远痛 22:00:42

CAD重装了，那个图层特性管理器是什么样子的
冲击波(334582848)  22:01:12
我找不到了
冲击波(334582848)  22:01:16
不好意思
冲击波(334582848)  22:01:24
2007
冲击波(334582848)  22:01:38
我要显示我的图层特性管理器如何显示呀
冲击波(334582848)  22:01:45
CAD2007

明经快报

[429014673]djl 22:16:33

明经快报

[linshiyin2]大地 22:42:45

对dcl快受不了了，转向odcl还是arx？

请指点

[yarp]潜水 22:44:47

大地，你是专业开发？

[linshiyin2]大地 22:45:10

业余中的业余

[yarp]潜水 22:46:59

那还是用dcl凑合吧。

[linshiyin2]大地 22:48:02

转odcl还是c++好，大神指教

[野狼谷]笨鸟 22:48:14

求助：
(??（/ 10  3) )用哪个函数能够求倍数？并且根据余数向上圆整？

比如，10 按3个放一个篮子，则需要4个篮子

用什么函数呢？

[lisp-study]jun 22:49:17

mod

[野狼谷]笨鸟 22:49:33

没有这个函数

[lisp-study]jun 22:49:49

read

[野狼谷]笨鸟 22:50:00

胡扯

[VBALISPER]恐龙 22:50:47

就余数就加1

[lisp-study]jun 22:50:59

不就是进一法嘛

[linshiyin2]大地 22:51:02

除完取整数，判断余数是否为0，不为0则加1

[野狼谷]笨鸟 22:51:37

没有现成函数可以实现吗

[lisp-study]jun 22:51:46

自己写

[linshiyin2]大地 22:51:54

好像没有，我就是这样写的

[野狼谷]笨鸟 22:51:54

那就用求余数函数呗？

大地，给我发一个你的吧

求余数函数是哪个？

[linshiyin2]大地 22:52:53

思路都知道了自己写一下啦，我研究odcl呢

老大在04年就玩过odcl了

[ucuc2003][ucuc2003]易水 22:53:26

请教大侠，控制延伸隐含边的系统变量是什么

[野狼谷]笨鸟 22:53:27

求余数函数是哪个？

[VBALISPER]恐龙 22:53:36

mod

[linshiyin2]大地 22:53:36

发表于 2004-6-15 20:53:00 |只看该作者

[VBALISPER]恐龙 22:53:44

有人说了,你又不看

[linshiyin2]大地 22:53:45

ObjectDCL学习笔记(5)

[lisp-study]jun 22:53:59

他说我胡扯

[linshiyin2]大地 22:54:17

明经有个翻译的帮助，什么函数也不用记，搜一下就ok

[lisp-study]jun 22:54:18

自己看说明书去

[野狼谷]笨鸟 22:55:00

查了，确实没查到

[linshiyin2]大地 22:55:18

我要是能查到我就打你pp

[野狼谷]笨鸟 22:55:21

我查”余数“ 没有

[lisp-study]jun 22:55:47

无语

[VBALISPER]恐龙 22:56:07

不知道直接输mod啊.真是野狼谷的X鸟

[linshiyin2]大地 22:56:10

把pp露出来

[野狼谷]笨鸟 22:57:45

电脑坏了

[VBALISPER]恐龙 22:57:54

哦.对了.LISP是rem,VBA才是mod

[野狼谷]笨鸟 22:58:11

我说咋查不到mod呢

[lisp-study]jun 22:58:38

read也能搞定吧 恐龙

[野狼谷]笨鸟 22:59:05

好像不行吧，

[VBALISPER]恐龙 22:59:23

没想过用READ

[野狼谷]笨鸟 22:59:29

语法 

    (read string)

功能及参数

     此函数将返回 string 的第一个表或原子。

[lisp-study]jun 22:59:35

我以前好像看过论坛有帖子说过

[lisp-study]jun 23:00:20

晕 错了 是fix

[lisp-study]jun 23:01:04

（1+ (fix x)）

[VBALISPER]恐龙 23:01:16

呵呵.int 和FIX都不知道LISP里和VBA的含义是不是一样.

[VBALISPER]恐龙 23:01:58

用之前还是看一下帮助好点.

明经快报

[xxwc520]SUN 23:15:38

我想问个问题，我在指定坐标输出文字，在新建的图上就没问题但是在已有的图纸上有可能输出的文字就不能输出到指定地点这是怎么回事，我那个好心人指导下

[lisp-study]jun 23:16:15

捕捉和坐标系 你检查下呢

[VBALISPER]恐龙 23:16:17

这张图用了UCS是不是.

[xxwc520]SUN 23:17:01

哦~~有可能

[xxwc520]SUN 23:17:46

但是如何自动判断坐标是什么类型的吗是世界坐标还是ucs坐标吗

[lisp-study]jun 23:17:59

我也经常遇到这种问题

[xxwc520]SUN 23:18:13

是啊~~很讨厌的问题

[lisp-study]jun 23:18:21

是不是新的文字跑的多远

[xxwc520]SUN 23:18:28

对对

就是这样的

但是在新建的图纸中就没事

[lisp-study]jun 23:18:57

就是恐龙说的那个问题

[xxwc520]SUN 23:18:58

很久了，就是无法解决这个问题

[lisp-study]jun 23:19:09

因为新的图纸坐标系没变

[xxwc520]SUN 23:19:11

那怎么解决呢

[lisp-study]jun 23:19:40

弄个坐标转换嘛

[xxwc520]SUN 23:20:00

我研究下

[linshiyin2]大地 23:20:17

odcl的帮助既然汉化完了为什么不做个chm呢

唉

http://www.mjtd.com/HelpCenter/OpenDCL/

[lisp-study]jun 23:20:48

大地 你做个嘛

[linshiyin2]大地 23:21:02

[lisp-study]jun 23:21:37

[xxwc520]SUN 23:24:18

我还问下刚才的问题，有什么办法可以直接判断当前图纸坐标是世界坐标还是ucs坐标？

[lisp-study]jun 23:25:45

系统变量有没得？

日月星 23:26:33

CAD中毒了，杀毒后，双击命令无法恢复，求高手指教

[linshiyin2]大地 23:26:51