2013-11-11 明经 AutoLISP 编程(102918348) 群聊记录：有没有哪个朋友知道怎么用批处理修改自己的ip，子网掩码和网关？

明经快报

[linshiyin2]大地 16:47:16

1. 本版块为LISP源码技术交流版块，发帖时请一律发布源码或解决问题的思路、方法，不得发布编译的程序，更不得发布伪源码。

什么时候改规矩了？

[linshiyin2]大地 16:47:56

fas不让发了？伪源码也不能发了？

院长要生气了吧

[NJZX05]剑无锋 16:48:25

请教一下，有没有人解决这个问题啊：
如何取行命令在命令行运行时，返回给命令行的结果

[linshiyin2]大地 16:49:17

要什么结果？每个命令不一样

[NJZX05]剑无锋 16:49:17

伪源码也不能发好像不好吧，程序最关键的就是算法，如果伪源码也不能发的话，好像不太……

是的

我就是要得到命令运行后，在命令行上显示的东西

[linshiyin2]大地 16:49:52

你可以显示执行的过程或者关闭显示过程

[linshiyin2]大地 16:50:32

获取命令行的文字？

[NJZX05]剑无锋 16:50:55

我不是要显示或关键显示，而是要得到将取得命令行的显示，并赋值给变量

[reyun]乐小曦 16:51:09

请教大家个问题：[qqimg]201311/{73E5E3C5-7C12-333A-BCBD-E4B6141061AD}.jpg[/qqimg]LISP怎么做可以查得出CAD打开了几个文档？

[NJZX05]剑无锋 16:51:31

不管命令行显示的什么内容，都赋值给变量，具体的内容由我自己分析

[linshiyin2]大地 16:51:46

简单的伪源码可以，或者比较简单的公共函数（容易找到类似的），或者注明这部分函数的功能也可以啊

[pzweng][pzweng]路人 16:51:48

有个系编统变量

[linshiyin2]大地 16:52:25

他要的是返回命令行的内容，并非显示与否

[NJZX05]剑无锋 16:52:27

变量名是什么

[pzweng][pzweng]路人 16:52:42

这个我忘了

你还可以用vlisp获取

[linshiyin2]大地 16:52:56

(setvar "cmdecho" 0)

[pzweng][pzweng]路人 16:53:05

documents集合

[linshiyin2]大地 16:53:50

命令的执行过程有什么好看的，直接屏蔽掉

[NJZX05]剑无锋 16:54:06

呵呵，对我来说太好看了

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

(vlax-for obj (vla-get-documents (vlax-get-acad-object))
  (vla-get-name obj)
  )

[NJZX05]剑无锋 16:55:40

比如，我想要测试一个命令的不同分支的执行情况，而我又没办法采用函数的方法调用该命令，也就是说，我无法通过(命令)这种形式得到返回值，那么，我就只能读取命令行的返回结果

[pzweng][pzweng]路人 16:56:16

不明白

讲清楚

[linshiyin2]大地 16:56:26

不理解

[NJZX05]剑无锋 16:56:29

举个例子：在加载天正后，T81_TObjEdit这个命令，你能得到结果吗

[reyun]乐小曦 16:56:41

[qqimg]201311/{4AA202CE-23AA-D5E5-CF3D-F5927F204305}.jpg[/qqimg]谢谢！谢谢！

[linshiyin2]大地 16:56:49

天正是c++

[NJZX05]剑无锋 16:56:59

恐怕连(T81_TObjEdit)都不能被认识

因为，这个命令是由天正内部解释执行的

我不是要管天正是什么编的

[linshiyin2]大地 16:57:38

arx函数被封装了，看不到吧

[NJZX05]剑无锋 16:58:04

而是想要一个统一的方法，解决这种不知函数名的命令的返回情况

[linshiyin2]大地 16:58:21

你就是想看人家的函数执行的过程呗

[yarp]潜水 16:58:31

有牛人试图在lisp里面实现面向对象没有的？

[NJZX05]剑无锋 16:58:33

是的，没错

[NJZX05]剑无锋 16:59:06

lisp里面实现面向对象，说白了就是反应器吧

[linshiyin2]大地 16:59:15

这个应该做不到，我是一般都关闭回显然后执行

[NJZX05]剑无锋 16:59:50

这个应该能做到，只是我们功力不够深

[pzweng][pzweng]路人 17:00:16

T81_TObjEdit运行的结果？

这个是命令

干什么用的

[NJZX05]剑无锋 17:00:35

呵呵，是的

[yarp]潜水 17:00:36

不是，就是面向对象编程，将数据和方法结合在一起。

[linshiyin2]大地 17:00:41

跟录制宏似的，每一个步骤都搞下来，猫猫有个录制lisp的宏

[yarp]潜水 17:00:49

还有实现继承。

[linshiyin2]大地 17:01:29

其实你想山寨人家的程序或者函数，

[linshiyin2]大地 17:02:12

正向开发吧，在论坛里多多学习，思路有了就好弄了

[NJZX05]剑无锋 17:02:24

T81_TObjEdit是一个特殊对象的编辑器，由于在执行时，需要密码，而正确的密码与错误的密码，会有不同的执行情况

[pzweng][pzweng]路人 17:03:03

这个哪知道

[linshiyin2]大地 17:03:09

破解？那就学学od

[yarp]潜水 17:03:34

autoLisp不能实现闭包，所以实现起面向对象起来很麻烦。

[NJZX05]剑无锋 17:03:37

我以前做土建时的一个图库，加了密，结果多年不做了，再想改时却发现改不了了

[linshiyin2]大地 17:03:42

jump或者nod过了就行

[NJZX05]剑无锋 17:04:01

所以我想破，不过我却无法取得那个测试条件

[linshiyin2]大地 17:04:31

大家说了一大堆才明白你要搞什么

就是丢了密码呗，这个难办

[NJZX05]剑无锋 17:05:57

是的，我就是要写一个解密程序，不过其中最关键的部分，就是我要能够取得执行结果，以便分析

[阿然][阿然] 17:06:52

那就是要他自己分析了

[linshiyin2]大地 17:06:54

存储回显到命令行的上一个字符串。这个字符串与命令行中看到的上一条命令相同，并且包含任何用户输入的内容。

[wh89103](阿天) 17:07:09

[qqimg]201311/{4847EC92-9631-ABEF-48E8-4F045513DC8C}.jpg[/qqimg]

[NJZX05]剑无锋 17:07:18

是的

就这意思

[linshiyin2]大地 17:07:28

估计这个东西会返回空或者nil，就跟ture和f一样

[linshiyin2]大地 17:08:32

双11害死人啊

[linshiyin2]大地 17:09:05

我就是败家爷们儿，败了一个热水器，家里现有的还好好的

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

买回来，你家那个就会坏了

[NJZX05]剑无锋 17:09:29

好了，谢谢了

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

可以了？

就是获取这个？

[NJZX05]剑无锋 17:11:18

太感谢了

[onandoff][onandoff]自然 17:11:18

半价处理吧

[NJZX05]剑无锋 17:11:42

我那个可能是32位的密码呀，让我慢慢解吧

明经快报

[linshiyin2]大地 17:22:41

其实伪源码也不错，仔细分析能看到思路（如果有注释就更容易了），类似的

伪源码中类似的函数可以山寨出来

[NJZX05]剑无锋 17:24:14

相对而言，我更喜欢伪码，因为思路清楚

[linshiyin2]大地 17:24:40

还有你这种嗜好的，喜欢折腾自己的脑细胞

[linshiyin2]大地 17:28:23

[qqimg]201311/{5115D8D5-7BC3-81CA-193E-5E1AE31B297A}.jpg[/qqimg]

这个引线标注很给力啊

[linshiyin2]大地 17:29:04

[qqimg]201311/{4F6B3B93-E834-FD57-BF42-1DDC32A07E23}.jpg[/qqimg]10k多少行代码啊

[linshiyin2]大地 17:30:43

[qqimg]201311/{1BE0619A-944D-32E0-5BE9-5E3E4B19F205}.jpg[/qqimg]

明经快报

[328302216][328302216]小莫 17:43:07

主要就是因为有些源码里面伪源码部分的内容没有....

[ddbb2008]笨笨 17:44:44

[qqimg]201311/{4F6B3B93-E834-FD57-BF42-1DDC32A07E23}.jpg[/qqimg]求分享。。。。

[linshiyin2]大地 17:45:36

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

[ddbb2008]笨笨 17:53:16

明经快报

[【KAIXIN】] [【KAIXIN】]炫翔 18:08:58

我记得 我也有论坛分享过这个源码

没有10K吧

[linshiyin2]大地 18:12:15

这个标注基本上做到家了，全了

[linshiyin2]大地 18:12:51

能和选择易有一拼了

明经快报

[NJZX05]剑无锋 18:36:03

大家有没有遇到过这类问题，计算得到的一个大数，在使用过程中出现了不明原因的自动改变

[NJZX05]剑无锋 18:36:35

(setq Char (nth (- Base 1) BaseChLst) MaxIndex "")
  (if (NULL MaxLen) (setq MaxLen 32767))
  (repeat MaxLen (setq MaxIndex (strcat MaxIndex Char)))
  (setq MaxIndex (Str->Num MaxIndex BaseChLst))
  (setq Index (Str->Num SWord BaseChLst))
  (if TimeLimit (setq OutTime (+ TimeLimit (getvar "CDATE"))))
  ;;此处具有不明原因错误,MaxIndex在值会不受控制的改变

[NJZX05]剑无锋 18:37:10

两个子函如下：
(defun Num->Str(Num BaseChLst / Base Index Char Str Tmp)
  (setq Base (length BaseChLst) Str "")
  (while (>= Num Base)
    (setq Tmp Num Num (/ Num Base))
    (setq Num (atof (rtos Num 2 0)));;此处用于解决整数精度不足问题
    (setq Index (- Tmp (* Num Base)))
    (setq Char (nth Index BaseChLst))
    (setq Str (strcat Char Str))
    );;while
  (setq Str (strcat (nth Num BaseChLst) Str))
  Str
  );;defun

(defun Str->Num(Str BaseChLst / Base Index Num Tmp Char)
  (setq Base (length BaseChLst) Index 0 MaxIndex (strlen Str) Num 0.0)
  (while (< Index MaxIndex)
    (setq Char (substr Str (setq Index (1+ Index)) 1))
    (setq Tmp (- Base (length (member Char BaseChLst))))
    (setq Num (+ (* Num Base) Tmp))
    )
  (atof (rtos Num 2 0))
  )

[NJZX05]剑无锋 18:38:00

由于数较大，采用整数时无法表达，故而在子函中使用的real型

求大神解答

明经快报

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

字太大