2013-08-27 明经 AutoLISP 编程(102918348) 群聊记录：麻烦问一下，在CAD中往记事本中提取数字时，往往小数点末尾的零就省略了，怎么

明经快报

[csalh]小帅 09:07:43

麻烦问一下，在CAD中往记事本中提取数字时，往往小数点末尾的零就省略了，怎么样修改一下就不省略了？

[stoyer][stoyer] 09:08:24

怎么提取的？

明经快报

[HNFSF](看海) 13:36:03

怎么样在不打开图的就给一个文件插入一个快或者替换一个块？

明经快报

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

DBX

明经快报

[water_system][mingdi]shenshen 15:57:12

AutoCAD2014 那个跟随信息功能怎么设置啊？

明经快报

[Angel1995][Angel1995]Angel 16:38:59

请教前辈们

(defun c:tt()
    (setq S1(car(entsel)))
 (foreach x (list(GETPOINT)(GETPOINT)(GETPOINT))
   (command "_.break" S1 "F"  x x)
 )
)

这个点打断 怎么不行呢？

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

(defun c:tt()
    (setq S1(entsel))
 (foreach x (list(GETPOINT)(GETPOINT)(GETPOINT))
   (command "_.break" S1 "F"  x x)
 )
)

[kwok][ww5w]行舟月下 16:44:03

(car(entsel)))这 里的car启到什么作用？

[Angel1995][Angel1995]Angel 16:44:14

路人 这是改了哪里？

起到图元名

[vormittag]桔子 16:47:14

找需要的东西呗。

你也可以cadr，还可以cdr，根据需要了。

[JAY913]SagapoЖ 16:54:40

请问自动替换字体库没有的字体程序要去哪里找

[water_system][mingdi]shenshen 16:56:37

问下 AutoCAD那个信息跟随 在哪儿设置的 这个问题以前在这儿见过 
就是选中图元 就跳出图元基本信息

[gongsiyi123][gongsiyi123]龙龙 16:57:32

编好了一个带对话框的VLX程序
用“加载应用程序”的方式打开，可以正常运行
但是将VLX放入support文件夹，设置自动加载，运行时就提示“参数类型错误：numberp: nil”
这是咋回事呢

[JAY913]SagapoЖ 16:58:08

谁有全一点的字体库呀

[kwok][ww5w]行舟月下 16:59:32

[qqimg]201308/{76B2EDEF-D68C-DA24-5EFF-36F49F145A22}.jpg[/qqimg]

[linshiyin2]大地 17:04:57

[qqimg]201308/{B3C230DD-72DD-AFA9-FE2A-C9AF7AD832E9}.jpg[/qqimg]

猫又搞加密了

[阿然][阿然] 17:05:46

有啥值钱的东西要加那么密的

[wzq9812741]可樂 17:13:00

CAD的？

[JAY913]SagapoЖ 17:14:53

是的

[JAY913]SagapoЖ 17:15:32

好的，谢谢了

[lisp-study]jun 17:15:49

我这有1.5G的字库

[wzq9812741]可樂 17:16:32

字库都很大

[vormittag]桔子 17:16:38

批量改个名就3g了

搜集字库一点意义都没有。

[JAY913]SagapoЖ 17:17:54

有小点的吗

[lisp-study]jun 17:18:30

没啥意义 只是要用到而已

[wzq9812741]可樂 17:18:32

那个好像是没有

你自己想用什么的就要什的就行

[JAY913]SagapoЖ 17:19:24

我想要h开头的字体

[linshiyin2]大地 17:20:42

我感觉fas反编译成lisp里面肯定不包括无效的语句和注释，要不然fas怎么这么小

[wzq9812741]可樂 17:21:01

最快的办法就是去买一个字库的光盘

[linshiyin2]大地 17:21:22

lisp编译成fasvlx的时候只编译有效的代码

[lisp-study]jun 17:23:02

会的

打开图纸的时候会很慢

[linshiyin2]大地 17:23:37

所以没必要追求字库全面

[vormittag]桔子 17:23:48

系统下的ttf字体甚至影响开机速度。

[linshiyin2]大地 17:23:56

大不了用通用的字体代替

[JAY913]SagapoЖ 17:24:14

没有的一个个去找？？

[vormittag]桔子 17:24:38

直接用style修改一下啊

[JAY913]SagapoЖ 17:24:56

style怎么用

[vormittag]桔子 17:25:10

把字样样式引用的字体换成你有的不就行了。

[lisp-study]jun 17:25:37

要这样行的话就不用去找字体库了

[vormittag]桔子 17:26:12

除了一些特殊定义的东西，正常文字都没问题。

[lisp-study]jun 17:26:31

一般的就是要找特殊的文字

最典型的就是钢筋符合 很多设计院都不一样

[linshiyin2]大地 17:26:53

FAS4-FILE，看来fas也有版本区别

[linshiyin2]大地 17:28:22

最后一个字节是74，看一下后面跟的是：字节15 ，注意这里是16进制表示，0x15＝21（整数），这个表示解码密码的长度，也就是说后面长度0x15的流是密码，得到如下（用来解码刚才那82个字节长度的流)：
4A4DB3C194730A3B66617334206372756E63680A3B
后面$是一个结束标志，十六进制为24，然后跟的是fas文件编译的年月日
有一点要说明一下：这个密码是随机的，大家编译得到的和我的略有不同，所以被加密后的代码上可能和我的不同，这不妨碍我们研究，

[linshiyin2]大地 17:35:42

fas编译时随机产生密码，并且会吧编译日期放进去

[linshiyin2]大地 17:36:39

fas文件格式研究?作者?:?lidejun_55
估计fas的格式应该可以解密了

[不死猫][nonsmall]不死猫 17:38:23

这篇博文在后面的文章里面说 这个方法不可行，已经放弃

[不死猫][nonsmall]不死猫 17:39:00

用文件直接打开的方式是读不了的  需要从内存中读取

[linshiyin2]大地 17:39:01

[qqimg]201308/{74C57BA0-FA30-4EED-4D03-907D6944D6CA}.jpg[/qqimg]

用winhex打开一个fas确实看到了一些信息

[不死猫][nonsmall]不死猫 17:39:53

[qqimg]201308/{4AF27369-AB7A-509A-9D7A-3549134ED351}.jpg[/qqimg]

你看内存中的

[linshiyin2]大地 17:40:52

明码了啊

od？

[linshiyin2]大地 17:41:58

那就可能需要碎片拼接，作者只写了一句话，没有变量，没有函数

还需要进一步研究变量和函数的规律

[不死猫][nonsmall]不死猫 17:42:23

那篇文章他自己后面推翻掉了

[不死猫][nonsmall]不死猫 17:42:57

实际上网上的反编译手段  也确实是从内存读取的

[linshiyin2]大地 17:42:59

[qqimg]201308/{D7DF5355-B0E3-6B25-13C0-7F1AAC95E9FA}.jpg[/qqimg]最后面确实有日期和格式结尾

[不死猫][nonsmall]不死猫 17:43:35

那个不是重要的东西  毕竟根据那篇文章 一句话都解读不出来

[linshiyin2]大地 17:44:07

应该是，所有的软件只要在计算机上运行就会编译成16进制，就能在内存中读取出来

[pzweng][pzweng]路人 17:44:45

[qqimg]201308/{41C83364-6567-8806-67DE-960B5F415808}.jpg[/qqimg]

[linshiyin2]大地 17:44:49

最彻底的方法还是核心运算在另一处计算，比如加密狗或者网络或者虚拟机

[不死猫][nonsmall]不死猫 17:44:50

基本是这样的

本地不要完整代码  最好

[不死猫][nonsmall]不死猫 17:45:50

如果是完整的  就弄成不可读吧

[linshiyin2]大地 17:45:52

那个该死的cass就是这样，一些运算在狗内计算，结果只能复制狗，破解不了

[linshiyin2]大地 17:46:52

单纯检验狗存在与否的加密方式弱爆了，几个jmp就过了

[linshiyin2]大地 17:47:43

你猫猫的，那种烧死脑细胞的源码也够烦人的

[不死猫][nonsmall]不死猫 17:48:01

我已经把代码顺序都随机打乱了

[linshiyin2]大地 17:49:04

作者的源文在哪里？我感觉快找到规律了

[不死猫][nonsmall]不死猫 17:49:28

加密这种事  都是相对的  如果愿意花几个月重新拼凑代码  还是有可能还原顺序的 但是变量只能自己猜含义了

[linshiyin2]大地 17:49:39

接下来就需要对变量，函数和代码进行拼接了

[linshiyin2]大地 17:50:19

拼接肯定有规律的，比如作者就说开头的1代表了没有变量或函数

[不死猫][nonsmall]不死猫 17:50:20

这个算法不知道他们从哪里弄到的

怕是靠自己猜还是很困难的

嗯 传说当年AUTOCAD的源码流出  你可以去买早期源码研究

R14的

虽然fas加密格式不同  但是可以参考

[不死猫][nonsmall]不死猫 17:51:50

我没时间研究破解了，现在专门搞加密，你破解了FAS也还是看不懂[qqimg]201308/{C6596545-A6ED-5504-6B08-9410E03E8255}.gif[/qqimg]

[linshiyin2]大地 17:52:07

找到规律，还有个问题，需要解密16进制的代码

[不死猫][nonsmall]不死猫 17:52:33

那个网上代码有很多  lisp也能还原16进制

[linshiyin2]大地 17:52:47

看博主的文字只是得到了21位的密码，还需要算法

16位到10，算法

[linshiyin2]大地 17:53:53

这个是密码4A4DB3C194730A3B66617334206372756E63680A3B

这个是源码(alert "hello world")

[linshiyin2]大地 17:55:02

瞧猫猫美的

[linshiyin2]大地 17:55:32

把源码加密成天数也是个绝好的办法，

天书

明经快报

[无痕]午夜咖啡 18:11:08

有愿意去潍坊搞开发的么？我一个朋友去那边做总经理，要帮手

明经快报

[啵浪鼓] 18:28:31

[qqimg]201308/{23C982A6-A48B-D9AC-A78E-F58821B3FB6F}.jpg[/qqimg]

明经快报

[zark]虚心请教 19:24:44

空间直角坐标转大地坐标中，纬度B需要求解的，但公式中B却需要SinB，有点矛盾。[qqimg]201308/{BF7CAC2E-E65D-A054-652E-D2482374DE0F}.jpg[/qqimg]

明经快报

[pzweng][pzweng]路人 19:39:59

什么意思

解二元一次方程？

[zark]虚心请教 19:40:22

迭代法也称辗转法，是一种不断用变量的旧值递推新值的过程

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

有没有个实例的

[zark]虚心请教 19:41:29

[qqimg]201308/{FFAA3109-800A-54DF-6EAE-F5F2640ECDA9}.jpg[/qqimg]

[zark]虚心请教 19:42:04

B=34*SINB。那B=？

第一个公式还能不能展开？

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

怎么展

代入呢

[qqimg]201308/{E54A61D2-86B7-5876-1EA9-B703ECFE144C}.jpg[/qqimg]

这里不是有个B吗

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

迭代法还是没看懂

可能是忘了

[zark]虚心请教 19:44:02

公式

[qqimg]201308/{78CB37E4-D80A-97EA-4147-15857EE696A2}.jpg[/qqimg]

[zark]虚心请教 19:44:51

B的表达式中有N，而N又需要B来解，这也太...

[zark]虚心请教 19:48:22

如果要用LISP来解B，我觉得可以用WHILE函数。先设置B=25度，看B表达式左边跟右边差多少，然后让B慢慢变小（或增大），直到两边无限接近，接近到比如毫米级精度，那这个B就是我们需要的值了

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

这样不行吧

慢的要死

[zark]虚心请教 19:49:08

就是相当于罗列

要不然怎么简化B表达式呀

[zark]虚心请教 19:51:05

可能不存在一个B能满足条件，只能无限接近

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

问问桔子

[zark]虚心请教 19:57:31

相当于求极限了

[vormittag]桔子 20:00:56

迭代是求非线性方程数值解的基本方法。

[zark]虚心请教 20:01:49

那用LISP怎么求解上面公式中的B呢

[zark]虚心请教 20:02:34

[qqimg]201308/{78CB37E4-D80A-97EA-4147-15857EE696A2}.jpg[/qqimg]

以上除了BLH,其它都是已经数

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

一个一个展开

[zark]虚心请教 20:03:58

没办法展开成直接法的。

[vormittag]桔子 20:04:51

给B一个初值，按公式右边计算B，若与前面数值相差在误差之内，就是解，否则用新得到的B再代入公式右边进行计算，直到前后两次的B值在误差之内。

[zark]虚心请教 20:06:05

我想问一下，用新B来代替旧B，差值有没有可能越来越大，那这样就会造成死机了

[vormittag]桔子 20:06:15

当然会。

这就是迭代发散。

[zark]虚心请教 20:06:48

那就不好办了。

不过在中国，B一般就0以上90以下。

[zark]虚心请教 20:13:46

没想到空间直角坐标转大地坐标会这么复杂

[vormittag]桔子 20:15:44

你是学测量的？

[zark]虚心请教 20:16:13

嗯。

[vormittag]桔子 20:16:34

那这个对你来说应该不难啊。

[zark]虚心请教 20:16:54

[qqimg]201308/{B4A62742-DD2D-39B8-0186-8C67BD5A644B}.jpg[/qqimg]

[zark]虚心请教 20:17:46

老师讲的都是理论的，今天编程了才发现基本上都需要迭代法。刚刚找了一个非迭代法的[qqimg]201308/{3FB7E5C4-A354-3BC5-D920-E7F17CF37AF6}.gif[/qqimg]

[VBALISPER]恐龙 20:18:47

坐标正算,好象你已研究成功了吧

[zark]虚心请教 20:19:12

正反都不是问题了。

[VBALISPER]恐龙 20:19:33

刚才你问这个,不就是反算吗

[VBALISPER]恐龙 20:20:07

现在国家推广2000坐标系了,你研究一个转换软件出来,方便一下大家嘛

[zark]虚心请教 20:20:15

BLH->XYH为正算。XYH->BLH为反算。   BLH->XYZ不懂叫什么。

[VBALISPER]恐龙 20:21:12

哦.好细微的差别哟,一个是H,一个是Z

[zark]虚心请教 20:21:19

坐标系都是书本上的东西，我觉得要有比较深的基础才会搞得出来。现在数学已经忘了差不多了

H是平面，Z是空间

[zark]虚心请教 20:24:38

之前公式用错，XYZ->BLH->XYZ就会差近1米。

明经快报

[zark]虚心请教 21:52:44

[qqimg]201308/{8CC2BF61-BADA-6382-6B5F-2C3540F919B2}.jpg[/qqimg]

[zark]虚心请教 21:53:29

这是什么表达式呀。sign 和 [Z]表示什么呢

[zark]虚心请教 21:57:37

原来sign[z]表示Z的符号（+或-）