2013-11-16 明经 AutoLISP 编程(102918348) 群聊记录：[image={D0D71CFF-8D71-3DB3-41C6-0F9F61

明经快报

zhang208 08:33:22

[qqimg]201311/{D0D71CFF-8D71-3DB3-41C6-0F9F61704BAC}.jpg[/qqimg]

zhang208 08:33:52

求助一個這樣的源程式

明经快报

[alber]alber 10:26:48

请问下。怎么用vb 判断 cad窗口命令行输入的命令？

明经快报

[why1025][7299969]人生 10:57:05

标注的组码70是干嘛的

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

查手册嘛

别人也是查

[why1025][7299969]人生 10:57:59

茶楼，看不懂

标注类型：

值 0-6 是表示标注类型的整数值。值 32、64 和 128 是位值，可添加到整数值（在 R13 和更高的版本中总是设置值 32）

0 = 旋转、水平或垂直；1 = 对齐

2 = 角度；3 = 直径；4 = 半径

5 = 角度三点；6 = 坐标

32 = 表明仅由此标注参照该块参照

64 = 坐标类型。这是一个仅通过整数值 6 使用的位值（位 7）。如果设置此位，坐标为 X 类型；如果不设置此位，坐标为 Y 类型

128 = 这是一个添加到其他组 70 值的位值（位 8）（如果标注文字已放置到用户定义的位置，而不是放置到默认位置）

128这个不明白，位8是什么意思

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

70是标注类型

[why1025][7299969]人生 10:59:33

128表示什么

[328302216][328302216]小莫 11:04:57

选择多个对象把其弄成组，但是选择的时候还是散开的，是哪个系统变量控制的吗？

命令: _group 找到 5 个

未命名组已创建。

[pzweng][pzweng]路人 11:05:40

在选项里

□对像编组   这项打勾

[328302216][328302216]小莫 11:08:35

3 Q

明经快报

[twsyzx]-阿里 11:45:36

大哥们，问个伤智商的问题

(defun c:111 ()

这个命令 111 可不可以设置为变量

[water_system][mingdi]shenshen 11:46:14

试下不就知道了

[Sign88]宁波标志 11:46:24

111不是数字吗？

[twsyzx]-阿里 11:46:34

比如我输入命令111

然后getstring得到了111

[water_system][mingdi]shenshen 11:47:06

可以

[twsyzx]-阿里 11:47:12

怎么弄

[twsyzx]-阿里 11:48:46

(defun c:xxx ()
(setq ok(getstring))
然后ok=我输入的xxx

[Sign88]宁波标志 11:50:01

这个应该没有问题

[twsyzx]-阿里 11:50:26

我的意思是XXX是一直在变化的

[Sign88]宁波标志 11:50:43

这连个  XXX 数据类型不同

[twsyzx]-阿里 11:50:53

比如我程序启动的命令是xx1，那么变量ok=xx1

启动命令是XX2，ok也=xx2

[Sign88]宁波标志 11:52:27

这不是一个概念 呀

[twsyzx]-阿里 11:52:29

(defun cgetstring))这种效果

哈哈

应该是不可能做得到的

[Sign88]宁波标志 11:52:56

是的

不管怎样  不能直接这样写程序

[twsyzx]-阿里 11:53:29

是的

[Sign88]宁波标志 11:53:38

其它或许有方法

达到你要的效果  但这样不行

[twsyzx]-阿里 11:53:55

还有，如何批量替换多行？

[328302216][328302216]小莫 11:54:03

你是不是要把一个程序当成变量来调用？

[twsyzx]-阿里 11:54:09

是啊

[328302216][328302216]小莫 11:54:18

可以做到的

[twsyzx]-阿里 11:54:28

真的啊

[328302216][328302216]小莫 11:54:50

当然是真的

[twsyzx]-阿里 11:54:59

怎么弄的

就是我命令输入任意字符，只要没有被使用，这个程序就能执行

这么高端，高科技啊

莫大神，求教啊

[328302216][328302216]小莫 11:55:53

eval

这个我前些天遇到的问题

[328302216][328302216]小莫 11:56:59

http://bbs.mjtd.com/thread-108158-1-1.html

[328302216][328302216]小莫 11:57:34

看看是不是和你想要的一样

[twsyzx]-阿里 11:58:30

哦，你的这个是电脑中有很多程序，采取load的形式获得程序命令的名称

[twsyzx]-阿里 11:59:14

我的意思是这样的，比如我想生成文字aabbcc

命令输入aabbcc，文字就直接生成了

[twsyzx]-阿里 12:00:02

比如我输入命令AB，就生成了文字AB

因为想要的文字是一直变化的，

所以没办法让自己的命令随着文字变化。

我就是想减少 getstring这一步

我想了想，这样是做不到的。。。

不过你的这个，也非常给力。。

谢谢你！

[twsyzx]-阿里 12:03:53

如果这里有三行代码
a
b
b
能不能一次替换为
x
y
z

[twsyzx]-阿里 12:08:02

哦，抱歉，我说的是lsp里的代码

[twsyzx]-阿里 12:08:41

比如我一个lsp里合并了好多lsp

每个程序都有这样一段代码
a
b
c

[twsyzx]-阿里 12:09:37

突然发现这三行代码我要有改动，整个lsp的每个子程序都要替换

我已经想到方法了。

使用cad可以做到。

[twsyzx]-阿里 12:10:38

word 我没找到替换三行的

查找替换只能替换一行

[twsyzx]-阿里 12:20:44

多行文字替换工具

想怎么换就怎么换

明经快报

[pzweng][pzweng]路人 12:32:31

分三次替换就是咯

[twsyzx]-阿里 12:33:13

如果是
a
b
c
要换成
x
y
z
m
呢

所以，这个工具还是不错的。

[pzweng][pzweng]路人 12:38:20

不明白你干啥

明经快报

[328302216][328302216]小莫 13:05:08

ctrl+h不是可以替换吗

[twsyzx]-阿里 13:05:39

只能换单行文字啊

[twsyzx]-阿里 13:06:23

(setq g12(substr dy 1 2))
(setq lk1(strcat g12 "0"))
(setq g34(substr dy 3 2))
(setq lg1(strcat g34 "0"))

我要批量换成
(SETQ LJ(DISTOF lk1))
(setq bb1(getvar "clayer"))

你怎么替换

不仅多行，而且行数还变化了

[328302216][328302216]小莫 13:06:44

你不是在代码编编辑器里面吗？

[twsyzx]-阿里 13:07:11

我用cad里面的lsp编辑器

[328302216][328302216]小莫 13:08:52

多行没试过，最后就是替换过个把变量

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

把(setq g12(substr dy 1 2))替换(SETQ LJ(DISTOF lk1))
   (setq lk1(strcat g12 "0")) 替换(setq bb1(getvar "clayer"))
其余替换空格

[twsyzx]-阿里 13:09:17

我刚在群里发了一个工具

可以多行替换。

[pzweng][pzweng]路人 13:09:23

说了用word

[twsyzx]-阿里 13:09:41

word找了下，也没找到多行替换的功能

[pzweng][pzweng]路人 13:09:54

分多次替换

[twsyzx]-阿里 13:10:00

如果代码替换的更多，就很累

这个工具可以一步到位

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

复制粘贴有什么累的

什么工具

[twsyzx]-阿里 13:10:28

群共享

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

是不是yjr111写的

[twsyzx]-阿里 13:10:56

不仅支持单个文件的多行替换

如果N个lsp里有同样的代码需要替换

它可以批量一次替换

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

我的网络限制了

没法看

[twsyzx]-阿里 13:11:23

不是啊，我在网上找到的工具

[simpleye][simpleye]郑大钱 13:17:18

低价出售不死猫的研修班视频教程与资料，谁要？

[328302216][328302216]小莫 13:17:52

[浮世小半生]X 13:23:06

呵呵，低价出售？

明经快报

[flytoday]过^-^客 13:41:57

[csc123456]顽强 13:42:38

直接共享一下嘛

大家一起研究一下撒

[Sign88]宁波标志 13:44:11

94

[why1025][7299969]人生 13:53:01

明经快报

[Sign88]宁波标志 15:06:19

有谁知道 lsp 的 字符变量 最长能有多少个字符

[Sign88]宁波标志 15:07:44

应该不知 256个字符的吧

[Sign88]宁波标志 15:10:02

请问 有谁知道 lsp 的 字符变量 最长能有多少个字符

明经快报

淡木沁灯 17:00:55

[qqimg]201311/{077C0F59-AFF7-C8D6-0230-D222E1CDFE8B}.jpg[/qqimg]怎么把这个编号自动改为1234啊

每次改完说明后又要自动编号

[h2o] 17:02:58

[qqimg]201311/{FF8AEB11-9B18-C7BC-0DF0-4C99DA4A8033}.gif[/qqimg]

[h2o] 17:03:53

要编程

淡木沁灯 17:04:10

求求你帮下我

淡木沁灯 17:04:45

图纸里面改说明后，每次都要改编号，太麻烦了

[loveguo]筠筠 17:05:41

不是给你贴了视频 源泉建筑

淡木沁灯 17:06:56

不是视频里面的

我是重新每个字符串排序

不是递增复制

[h2o] 17:10:14

[qqimg]201311/{45D938DB-F798-A0B7-B182-63031D06C00F}.gif[/qqimg]
可以用"选文字替换为编号"

淡木沁灯 17:12:12

是一个命令还是

源泉建筑
？

[h2o] 17:13:15

是源泉建筑，自动编号命令

淡木沁灯 17:14:20

我是做结构的

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 17:33:17

这界面整的