[stoyer] 19:22:50
前辈大侠们好,新人报到。
[野狼谷]笨鸟 19:24:57
查了论题里,确实这个多重排序的问题还没有通用函数解决,估计高手们都珍藏了
[VBALISPER]恐龙 19:25:55
有啊,你怎么查的哟.先按X排序,再按Y排序的.多
[野狼谷]笨鸟 19:26:14
然后 Z ....
[VBALISPER]恐龙 19:28:09
这不就相当于先按X排序,再按Y排?
[野狼谷]笨鸟 19:28:19
你找到了吗
[VBALISPER]恐龙 19:28:32
早就找到了
[野狼谷]笨鸟 19:28:50
如果我有4尾呢?
[VBALISPER]恐龙 19:29:11
类推嘛
[野狼谷]笨鸟 19:29:28
说的简单,你能来一个吗
[VBALISPER]恐龙 19:30:25
坛里就有.还来.我又不是高手
[野狼谷]笨鸟 19:31:23
我也找了,不一样的
[VBALISPER]恐龙 19:32:39
可能你没找到对的
[stoyer] 19:32:43
干么要多重排序?多重排序只有在上一排序相等的时候才有交吧。
有效。
[野狼谷]笨鸟 19:33:17
[stoyer](5903788) 你看看我之前发的程序就知道用处了
[stoyer] 19:35:54
排序后结果是怎样的?
[VBALISPER]恐龙 19:36:49
(setq lst (vl-sort lst
(function
(lambda (e1 e2)
(if (equal (cadr e1) (cadr e2) 1e1) (< (car e1) (car e2))
(> (cadr e1) (cadr e2))
)
)
)
)
)
[野狼谷]笨鸟 19:38:32
((1 13) (1 12) (2 13) (2 14) (2 14) (3 11) (3 10) (3 11) (4 12))
经过试验,这个还是不行的
[VBALISPER]恐龙 19:39:12
可能要把那个容差的改成0
1e1改为0试试
[野狼谷]笨鸟 19:39:25
因为vl-sort对相同项不能处理
[野狼谷]笨鸟 19:40:13
我用的vl-sort-i,但是有问题,不知道是不是vl-sort-i内部算法有问题还是怎么回事
[VBALISPER]恐龙 19:40:48
1e1改为0试了吗
[野狼谷]笨鸟 19:41:18
1e1 在这是啥意思?
[VBALISPER]恐龙 19:41:50
据说是10
[野狼谷]笨鸟 19:41:59
都不对
[VBALISPER]恐龙 19:43:28
那就没法了.我反正是用这个先把(a b)中的第一位排序,如果相同,再按第二位排
[野狼谷]笨鸟 19:44:11
真不行
改这样也不行
[VBALISPER]恐龙 19:45:58
(if (equal (car e1) (car e2) )
是不是该为 (if (equal (car e1) (car e2) 0)
0.0
[野狼谷]笨鸟 19:46:45
(if (equal (car e1) (car e2) 0)
这句为啥呢?我觉得应该是
(if (equal (car e1) (car e2) )
[VBALISPER]恐龙 19:47:57
就是E1的第一个元素和E2的第一个元素如果差为1e1,就认为是相同的.
你不要这个误差,就该为0.0
[野狼谷]笨鸟 19:48:32
哦,这样啊,
但是这样编程不便于扩展到第三、第四维度
你帮我看看我那个思路哪有问题
[VBALISPER]恐龙 19:49:27
你试试吧.我也是照抄高手的,只是顺便看了一下equal的帮助
[野狼谷]笨鸟 19:50:09
我那个也是照虎画猫来的
[VBALISPER]恐龙 19:50:20
34维.可能是在这两句下再加两句吧. (> (cadr e1) (cadr e2))
(< (car e1) (car e2))
[野狼谷]笨鸟 19:50:45
现在二维都没算对,
[野狼谷]笨鸟 19:53:05
期待高手来指点一下了,实在搞不定了
[VBALISPER]恐龙 19:53:44
二维排序还是用得多,都不知道你3,4维干嘛
[stoyer] 19:54:33
不怕代码多,用whileforeach多写点可以实现。
[野狼谷]笨鸟 19:54:36
哈哈,很多人会用到的
[野狼谷]笨鸟 19:55:12
关键是刚才恐龙发哪个二维也不行
[野狼谷]笨鸟 19:56:23
看来我得激励一下了
[VBALISPER]恐龙 19:56:38
肯定可以的.我都用了.排的序是((1 2)(1 3)(1 5)(2 2)(2 4)(2 8)(3 1)(3 4)(3 7))这样的
[野狼谷]笨鸟 19:57:10
是吗?你贴给我再试试看
[VBALISPER]恐龙 19:57:30
自己找聊天记录复制去
[VBALISPER]恐龙 19:58:35
要改.
[野狼谷]笨鸟 19:58:46
你的数据估计有特殊性,你试试我的数据看看
[VBALISPER]恐龙 19:58:50
1e1那里.是允许误差10
[野狼谷]笨鸟 19:59:02
10 表示什么
[偏爱云~小吴] 19:59:25
这是干什么用的
[VBALISPER]恐龙 19:59:26
就是差在10以内的,都认为是相同的.
[野狼谷]笨鸟 19:59:27
还是不行的,我考虑了重复数据
一品缘 20:00:48
[qqimg]oldimg/{D78EC342-A612-1B77-8957-33C183A1A42A}.gif[/qqimg]
一品缘 20:01:27
有程序,就是被限制使用
[VBALISPER]恐龙 20:02:48
找破解群去!
一品缘 20:03:00
格式是VLX
[qqimg]oldimg/{6F0821F4-8280-8F5F-D592-340B23D6E93E}.jpg[/qqimg]
一品缘 20:03:39
哪个是破解群?
[stoyer] 20:03:50
怎样获取多段线上弧的长度?或者怎么根据凸度算出弧长?
[野狼谷]笨鸟 20:03:56
切什么的?
一品缘 20:04:21
就是线切割
连线切割
一品缘 20:05:06
[qqimg]oldimg/{930C7C00-010C-8A6C-A147-5A3F952F3CF0}.jpg[/qqimg]VLX格式
被限制使用了
[vormittag]桔子 20:05:17
凸度就是四分之一圆心角的正切,自己去算好了。
鄙视求破解的。
一品缘 20:05:51
你能做出来吗?
[vormittag]桔子 20:06:19
我用不到。
[stoyer] 20:06:26
不会算,几何全还老师了……。
一品缘 20:06:29
做不出来就没权利鄙视
[吃饭饭长胖胖][吃饭饭长胖胖] 20:06:38
cad自带的命令用command调用,那自己编的lisp用什么函数调用呢
[ZZXXQQ] 20:06:54
(c:xxx)
or
(xxx)
[vormittag]桔子 20:07:15
不骂人就不能鄙视骂人的?
[吃饭饭长胖胖][吃饭饭长胖胖] 20:07:23
就是想改哪些加密的lsp的快捷键
[野狼谷]笨鸟 20:07:35
[ZZXXQQ] 斑竹,救民于水火啊
[ZZXXQQ] 20:07:44
啥?
[吃饭饭长胖胖][吃饭饭长胖胖] 20:07:51
defun c:ttt
(******)
[stoyer] 20:08:03
带C:可以直接在加载后直接像内部命令一样调用。
不带C的得在()里面调用。
[ZZXXQQ] 20:08:04
(c:ttt)
[吃饭饭长胖胖][吃饭饭长胖胖] 20:08:09
***就是调用的lisp的快捷键是吧
[q530496591][q530496591]小菜鸟 20:08:32
(defun c:tt ()
[ZZXXQQ] 20:08:35
不是,是定义的名字
(c:tt)
一品缘 20:08:47
当你做不了的东西你一定稀罕别人破解,你换个角度想想就明白了
[q530496591][q530496591]小菜鸟 20:08:56
(defun c:tt () c:xxx)
[ZZXXQQ] 20:09:05
no
(defun c:tt (c:xxx))
[q530496591][q530496591]小菜鸟 20:09:20
不是想改别人写的命令嘛
[ZZXXQQ] 20:09:29
(defun c:tt () (c:xxx))
一品缘 20:09:29
嗯
对
[吃饭饭长胖胖][吃饭饭长胖胖] 20:09:40
谢谢,我试试
[ZZXXQQ] 20:09:45
不知道
一品缘 20:09:49
就是被限制使用了
[vormittag]桔子 20:09:53
我做不出来的东西只会自己想原理。想办法写。绝不会想着怎么破解人家的东西。
[野狼谷]笨鸟 20:09:56
请[ZZXXQQ] 给看看吧
[q530496591][q530496591]小菜鸟 20:09:59
仲文玉前辈在贴子里说过
[vormittag]桔子 20:10:03
这是人品问题。
一品缘 20:10:17
那你高尚啊?
呵呵
一品缘 20:10:59
那我也可以鄙视那些做不了有假装高尚的人
就是一个道理
[ZZXXQQ] 20:11:31
[qqimg]oldimg/{1BB5CFEC-7AB3-1D64-2EA5-F464055D3DFA}.gif[/qqimg]
[吃饭饭长胖胖][吃饭饭长胖胖] 20:11:53
vlx好像几乎无法破解的嘛
[野狼谷]笨鸟 20:12:08
能用就行呗,破个啥
[吃饭饭长胖胖][吃饭饭长胖胖] 20:12:22
破解也只能破部分,还要自己补完无法破解的部分
[野狼谷]笨鸟 20:12:22
查找10、?
[青豆豆1991]夏叶 20:12:32
啊?
不是吧
[青豆豆1991]夏叶 20:13:56
嗯?
[青豆豆1991]夏叶 20:15:28
subst (cons 40 zh) 还有这里边的40啥意思啊
[ZZXXQQ] 20:15:52
组码号
[青豆豆1991]夏叶 20:16:05
这个在哪查呢
[ZZXXQQ] 20:16:06
根据不同的实体有不同的含义
一品缘 20:16:20
[qqimg]oldimg/{9C93AA90-4E2C-F3BE-4619-19AA9E2A7058}.jpg[/qqimg]
[ZZXXQQ] 20:16:23
开发人员帮助
一品缘 20:16:32
代码被限制使用了
[青豆豆1991]夏叶 20:16:43
怎么搜啊
一品缘 20:16:53
可以取消吗?
[ZZXXQQ] 20:17:22
CAD自带
[stoyer] 20:17:25
注册一下就取消了吧。
[青豆豆1991]夏叶 20:17:42
我直接搜数字?
一品缘 20:18:04
就是只能使用20遍
[ZZXXQQ] 20:18:07
没用
一品缘 20:18:16
超过就不能用了
[ZZXXQQ] 20:18:20
直接看实体部分
[stoyer] 20:18:56
既然有用,就花钱注册啊。
一品缘 20:19:32
VLX本来就可以抹去注册的
就是不会弄
[stoyer] 20:20:18
为什么想抹去注册?
一品缘 20:21:07
就是没注册就被限制使用
[stoyer] 20:21:25
那就注册啊
[青豆豆1991]夏叶 20:22:22
用什么函数能识别不同的图层呢
一品缘 20:22:28
关键是如果你不取消注册,他就规定你只能用这台电脑,别的电脑不能用
我都那个汗啊
[青豆豆1991]夏叶 20:23:12
用什么函数能识别不同的图层呢
[stoyer] 20:23:13
找作者商量一下,付一次钱,注册2台电脑。
[ZZXXQQ] 20:23:16
[青豆豆1991]夏叶 20:23:36
嗯?
一品缘 20:24:11
关键是,内容锁定你的CPU和主板,当换掉其中一个后又要注册码了
汗啊
[VBALISPER]恐龙 20:24:45
给钱啊.
一品缘 20:24:58
当你换掉CPU后,你就不能再用了
[VBALISPER]恐龙 20:25:09
再给钱
[ZZXXQQ] 20:25:30
[stoyer] 20:25:45
你没事老换电脑做什么?有换电脑的钱也不缺注册的钱吧。
一品缘 20:25:49
你说得有道理,给钱就是!
[吃饭饭长胖胖][吃饭饭长胖胖] 20:25:54
注册多少钱啊
一品缘 20:26:01
120块
[吃饭饭长胖胖][吃饭饭长胖胖] 20:26:51
你也可以找人订做个和这一样的,多出点钱,还能定制些个性化的东西
一品缘 20:26:53
好!我上传到共享让大家看看
[VBALISPER]恐龙 20:26:58
用了东西,就总在想不用给钱的办法.
[吃饭饭长胖胖][吃饭饭长胖胖] 20:27:23
天正里面的天正拷贝有替代方案吗
[stoyer] 20:27:24
付了钱可以找作者要售后服务。
[吃饭饭长胖胖][吃饭饭长胖胖] 20:27:59
就是复制过程当中镜像,转动,换基点
一品缘 20:28:58
他在山东,我在重庆!售后服务能做到也不方便啊
一品缘 20:30:04
就是想一直拥有,不被限制,就好像我们现在用CAD一样,总喜欢找破解的
[吃饭饭长胖胖][吃饭饭长胖胖] 20:30:38
快捷键是啥
[VBALISPER]恐龙 20:30:54
此群只讨论编程,不讨论破解.
一品缘 20:31:00
HH
[flytoday]过^-^客 20:32:04
垃圾明经上应该都能找到
一品缘 20:32:17
意思是在多个封闭多段线的其中搭桥连接
[吃饭饭长胖胖][吃饭饭长胖胖] 20:32:39
编组就行了嘛
[VBALISPER]恐龙 20:32:54
我能破,但我不会告诉你.
一品缘 20:33:02
就是不会所以就难了
一品缘 20:34:12
呵呵,谢谢你的不能告诉!
一品缘 20:38:18
[qqimg]oldimg/{93F48DAC-9CF8-1A12-532E-D4287AAB55FF}.jpg[/qqimg]难道你装CAD每次都喜欢交钱给奥特克公司???
[VBALISPER]恐龙 20:38:53
不用每次交,交一次就行了,我用的是正版.
一品缘 20:39:21
呵呵,这个就每次都要交钱
[qqimg]oldimg/{BC2AFD3E-8899-B404-0D3D-1F4D9ACF0B30}.jpg[/qqimg]所以汗
[吃饭饭长胖胖][吃饭饭长胖胖] 20:41:13
公司总会买些正版的,但是电脑上装什么版就不一定了
一品缘 20:41:37
呵呵呵
[野狼谷]笨鸟 20:41:51
二重排序问题在明经论坛nzl1116 的帮助下解决了:
(vl-sort (vl-sort List1 (function (lambda (x y) (< (cadr x) (cadr y)))))
(function (lambda (x y) (< (car x) (car y))))
)
一品缘 20:42:59
[qqimg]oldimg/{5AFC6163-7643-460F-9C48-FE85525869D9}.jpg[/qqimg]这个就麻烦了,只能规定这台电脑用,锁定你的CPU和主板,
[野狼谷]笨鸟 20:43:30
其实这个我感觉还可以用递归加 (nth i x)方式实现多重排序,我递归不行,谁给升华一下?
好像CPU和主板也能被模拟
一品缘 20:44:00
就像视频加密器一样,每次换到另外一台电脑,都需要对方给你注册码才可以使用
一品缘 20:45:13
每次都要钱,气得你发晕
[VBALISPER]恐龙 20:47:22
[青豆豆1991]夏叶 20:47:26
(cons 0 "TEXT") 请问这个有什么意义
[ZZXXQQ] 20:47:56
实体名
单行文本
一品缘 20:48:25
如果说注册一次就能一直拥有,那我也不劳驾大家帮忙了
[青豆豆1991]夏叶 20:48:25
为什么要加个0在前边呢
[ZZXXQQ] 20:48:38
看帮助
[青豆豆1991]夏叶 20:49:06
我没找见这些数字在帮助的哪
[ZZXXQQ] 20:49:11
开发人员帮助
[青豆豆1991]夏叶 20:49:26
我的是英文版本的
[ZZXXQQ] 20:49:27
别找数字,找实体
[青豆豆1991]夏叶 20:49:42
实体?
[stoyer] 20:50:47
看DXF组码表。
[stoyer] 20:51:49
哪位大侠给个根据凸度求弧长的代码啊。
[青豆豆1991]夏叶 20:51:50
O
[ZZXXQQ] 20:51:51
ENTITY
【逸龙】312205714 20:54:19
如何在while里按空格键和回车就跳出循环
【逸龙】312205714 20:55:03
求解
如何在while里按空格键或回车就跳出循环
?
[vormittag]桔子 20:56:54
while的判断条件。
【逸龙】312205714 20:57:56
判断条件是什么?如何识别有按空格键或回车
谢谢回答
[ZZXXQQ] 20:58:40
(while (setq pt (getpoint ...))
...
【逸龙】312205714 21:00:02
这是输入点,如何会?
【逸龙】312205714 21:01:52
(while ?
[mitenickevin]kevin 21:02:01
LISP能实现隔段时间自动保存吗?
【逸龙】312205714 21:02:22
可以
[青豆豆1991]夏叶 21:02:45
assoc 40 gcdian 这个49呢
20
40
啥意思呢
[ZZXXQQ] 21:03:10
查找40组码
要看实体是啥
【逸龙】312205714 21:03:46
帮我回答:如何在while里按空格键或回车就跳出循环?
[VBALISPER]恐龙 21:03:51
这个好象是个 点.
[ZZXXQQ] 21:04:35
(while (setq a (getreal))
...
【逸龙】312205714 21:04:36
高手在哪?
[青豆豆1991]夏叶 21:05:25
就这个里边的10和40
分别代表什么呢
[ZZXXQQ] 21:05:46
字高
实体是单行文字
[野狼谷]笨鸟 21:06:22
(defun mult-sort (lst / i )
(setq i 1 )
(while (> i 0)
(vl-sort ( mult-sort lst)
(function (lambda (x y) (< (nth i x) (nth i y))))
)
(setq i (1- i))
)
)
我这个递归函数写的够假吧
【逸龙】312205714 21:06:53
[qqimg]oldimg/{3288B7C2-E40F-5FF2-8424-C404F78A4694}.jpg[/qqimg]这是输入实数
[VBALISPER]恐龙 21:07:02
[qqimg]oldimg/{D45FEBA6-3707-64F3-C619-20E28123052E}.jpg[/qqimg]
[青豆豆1991]夏叶 21:07:11
那10呢
[ZZXXQQ] 21:07:16
(while (setq n (getint))
...
[青豆豆1991]夏叶 21:07:34
咱们的不一样啊
[ZZXXQQ] 21:07:42
看上面的图片
[青豆豆1991]夏叶 21:07:44
我查的乱七八糟的
[VBALISPER]恐龙 21:07:47
夏叶,看帮助,看那张图所示的
[青豆豆1991]夏叶 21:07:48
哦哦
[ZZXXQQ] 21:09:30
(while (/= (setq txt (getstring)) "")
...
[ZZXXQQ] 21:10:39
(while (setq ang (getangle))
...
【逸龙】312205714 21:11:39
谢谢,试一下
[ZZXXQQ] 21:11:53
(while (progn
(initget "... ")
(setq key (getkword)))
...
[lisp](car (entsel)) 21:15:05
如何把汉字构成的text添加到选择集?
[VBALISPER]恐龙 21:15:54
汉字构成的TEXT和字母数字构成的TEXT不同吗?
[lisp](car (entsel)) 21:16:30
我只想选择汉字构成的text,不想选择数字构成的text
[VBALISPER]恐龙 21:17:36
哦.可能就是加个判断吧
[ZZXXQQ] 21:18:04
不选择数字
[VBALISPER]恐龙 21:18:17
字母能选不呢
[ZZXXQQ] 21:18:35
能选
[ZZXXQQ] 21:19:06
好好看看wcmatch的帮助 |