明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 3140|回复: 12

[LISP群(1)] 2013-10-10 明经 AutoLISP 编程(102918348) 群聊记录:6 86eA1B28a00ff0c5841e6f 50iDckd

 关闭 [复制链接]
发表于 2013-10-10 08:05:46 | 显示全部楼层 |阅读模式
[taohuaxiao]非主流 08:05:46
6 86eA1B28a00ff0c5841e6f      50iDckdCzfAXM53i7h27A90FED24FB4E28C850FDEF1F46A616.jpgA
请问如何把表都删除?
 楼主| 发表于 2013-10-10 10:30:21 | 显示全部楼层
[Sign88]宁波标志 10:30:21
大家对三维点排序  有没有什么想法
[328302216][328302216]小莫 10:31:11
跟二维不也是同一个原理吗
[Sign88]宁波标志 10:31:41
哪请问 二维是怎么排序的呀
[Sign88]宁波标志 10:32:33
主要是不是单一的值  是怎么比较大小  或是说前后顺序
怎样比较合理
[VBALISPER]恐龙 10:32:53
按X或按Y?
要看你的需求
[Sign88]宁波标志 10:33:08
不是   需要兼顾  XYZ
[Sign88]宁波标志 10:35:28
按  XYZ 单一的 是有现成的函数的
[pzweng][pzweng]路人 10:36:08
vl-sort够不够用?
[Sign88]宁波标志 10:36:21
明显不够
[cie0588][cie0588] 10:36:29
vl-sort 肯定是可以的。
[pzweng][pzweng]路人 10:36:50
你要怎么排
分三次排序就是了
[Sign88]宁波标志 10:37:34
比如说 我需要知道  离某点最近的多少个点   不能马上从表中顺序的找出
[pzweng][pzweng]路人 10:37:56
[Sign88]宁波标志 10:38:16
分三次  前两次的不就乱了吗
[pzweng][pzweng]路人 10:38:26
(distance pt1 pt2)
你干嘛要排
[Sign88]宁波标志 10:38:55
哈哈
我想做基础函数
[pzweng][pzweng]路人 10:39:07
把(distance pt1 pt2)返回的值排序就行了
[cie0588][cie0588] 10:39:26
论坛多搜搜vl-sort的例子吧。vl-sort后面不仅仅可以跟单一的条件。可以混合条件的。
[Sign88]宁波标志 10:39:42
(distance pt1 pt2) 这  肯定机器首不了 太多的点  比如10W点
[雨的节奏][雨的节奏] 10:40:19
可以先按Z排好、、、
[雨的节奏][雨的节奏] 10:41:35
我这个是从左到右、从上至下排列的
[Sign88]宁波标志 10:41:45
有可能某个点  Z 很久  但 XY 会很远
[pzweng][pzweng]路人 10:42:26
分别提取X/y/z相近的点
然后再(distance pt1 pt2)
[雨的节奏][雨的节奏] 10:42:46
那就搞两个条件呗、比如X多少距离之内和Y多少距离之内 按X排列
[Sign88]宁波标志 10:43:41
我想按空间  XYZ 的跨度计算
[雨的节奏][雨的节奏] 10:43:55
你可以按距离算、、、
在多少距离范围之内、、、
[Sign88]宁波标志 10:44:37
跨度最大的方向  一分为二   这样循环 到最后剩下一个点
不知这样是不是严谨
[pzweng][pzweng]路人 10:45:57
你先按Z排序
找离Z最近的
[Sign88]宁波标志 10:46:12
这样肯定不严谨
[pzweng][pzweng]路人 10:46:18
再按Y
然后是X
分别判断这三个点
哪个点离你的点距离最近
这样好了吧
等于提取了三个点做判断
[Sign88]宁波标志 10:49:00
这样不够严谨
[pzweng][pzweng]路人 10:49:57
你就是要得到最近点吗
[Sign88]宁波标志 10:50:19
不是 我只是对点排序
最近点很容易做到
[pzweng][pzweng]路人 10:51:29
举个例子
[Sign88]宁波标志 10:52:11
===
[Sign88]宁波标志 10:53:13
30.649252 33.624348 -39.343208
168.981934 111.298935 -19.247702
100.171501 50.155483 -8.127373
137.129227 45.725746 -12.956009
137.263611 112.018425 -7.656467
139.048355 141.633224 -31.973362
163.231171 78.289619 -10.536806
170.065948 41.992435 -23.743710
25.653755 91.204033 -46.946945
145.081497 56.482994 -10.428630
200.732407 103.721939 -30.507172
174.997421 36.303749 -25.376242
86.377502 112.503044 1.292373
135.036362 139.864243 -20.294943
76.609474 43.806683 -13.012671
108.023819 147.507095 -34.884426
169.877335 137.212158 -42.746307
210.637817 65.922874 -44.162659
95.158234 44.439785 -10.894070
195.468628 105.280251 -23.082512
124.864365 34.013168 -16.637213
35.814846 12.473714 -52.085556
49.175064 97.177002 -19.242184
35.830647 80.764206 -30.007441
183.755615 134.050110 -51.256485
62.467564 139.880203 -41.578445
168.514557 58.779289 -16.921459
50.606628 129.084656 -39.198738
101.894249 31.981897 -16.456217
91.066566 142.109879 -29.367344
79.708771 143.917496 -36.040550
105.102333 74.510147 -0.344667
128.552597 58.142597 -6.573199
111.707970 85.421028 0.714169
42.772350 134.397736 -39.989880
153.339172 102.162025 -1.256911
60.676617 142.985184 -48.378819
99.553154 41.895260 -11.758547
88.220596 155.853790 -53.317699
这是XYZ的点数据
[pzweng][pzweng]路人 10:54:07
你能弄些整数吗
这些数看着费劲
只要简单例子就行
让我们知道你的意图
[pzweng][pzweng]路人 10:55:12
(100 200 300)
[Sign88]宁波标志 10:55:35
就是三维距离最近的考前排
数值我还没想好
[q3_2006]q2 10:56:49
31 34 -39  
 169 111 -19  
 100 50 -8  
 137 46 -13  
 137 112 -8  
 139 142 -32  
 163 78 -11  
 170 42 -24  
 26 91 -47  
 145 56 -10  
 201 104 -31  
 175 36 -25  
 86 113 1  
 135 140 -20  
 77 44 -13  
 108 148 -35  
 170 137 -43  
 211 66 -44  
 95 44 -11  
 195 105 -23  
 125 34 -17  
 36 12 -52  
 49 97 -19  
 36 81 -30  
 184 134 -51  
 62 140 -42  
 169 59 -17  
 51 129 -39  
 102 32 -16  
 91 142 -29  
 80 144 -36  
 105 75 0  
 129 58 -7  
 112 85 1  
 43 134 -40  
 153 102 -1  
 61 143 -48  
 100 42 -12  
 88 156 -53
[Sign88]宁波标志 10:56:50
跨度最大的方向  一分为二   这样循环 到最后剩下一个点
我觉得这样应该是可行的
[q3_2006]q2 10:57:07
取整了,高手来排一个。。呵呵
[vormittag]桔子 10:57:09
三维距离距离哪点最近?原点?
[Sign88]宁波标志 10:57:59
按数值 最小
[vormittag]桔子 10:58:23
你连排序规则都描述不清。
[Sign88]宁波标志 10:58:58
XYZ 的数值 计算到原点  的距离  需要有正负号的
[VBALISPER]恐龙 10:59:38
还是有个二维排序就行了.Z就忽略了吧.
[Sign88]宁波标志 10:59:52
我确实难于描述这个问题
[VBALISPER]恐龙 11:00:11
目标任务不明确
[Sign88]宁波标志 11:00:23
但 像点处理软件就处理的很好
把很多点处理成有顺序的点云
这是逆向的必须过程
[cie0588][cie0588] 11:01:24
是不是这些三维点,按最近距离 然后 顺向排序?
[Sign88]宁波标志 11:02:42
排序没有方向可言   只有点的先后顺序
每个点都是基于前一个点  是离的最近的
[Sign88]宁波标志 11:04:12
[qqimg]201310/{21A0B654-9D0E-1D40-692A-326EDA715A67}.jpg[/qqimg]
这个就是通过扫描设备 获得的点
数值上看有1860060个点
[Sign88]宁波标志 11:05:42
[qqimg]201310/{C4ABFF95-B986-593A-D5B6-DF0F80C77457}.jpg[/qqimg]
放大后是单个点
[雨的节奏][雨的节奏] 11:06:06
我也来求助一个问题
怎样求两个对象之间的最近点啊、、
[Sign88]宁波标志 11:06:41
直线距离最近呀
[雨的节奏][雨的节奏] 11:07:02
两个对象之间的最近点
[qqimg]201310/{9D05C04C-DF59-4855-67B0-44FADF548609}.jpg[/qqimg]
假如这是两条曲线、我怎么才能求得最近距离
[LC100]建筑设计 11:07:52
是两两相对,还是怎么样。
[雨的节奏][雨的节奏] 11:08:00
两两相对啊
[Sign88]宁波标志 11:08:22
我一直在思考  点处理软件怎么对点的处理这么高效
[雨的节奏][雨的节奏] 11:09:29
求是要求两个对象的最近点
[Sign88]宁波标志 11:09:33
点处理软件  需要先对点排序   人后计算各个点的法向  才可以显示的有光线
[Sign88]宁波标志 11:10:05
我做点处理   逆向造型
[pzweng][pzweng]路人 11:10:37
不就是抄数嘛
用GM吧
[Sign88]宁波标志 11:10:50
这个也用
产品还是UG做
[pzweng][pzweng]路人 11:11:05
GS
[pzweng][pzweng]路人 11:11:40
我还买了GS教程 1200块的
娘的,骗人的东西
我看都没看
[Sign88]宁波标志 11:11:56
哪是有些贵
[Sign88]宁波标志 11:12:27
GS主要是点处理
造型 只能做做工艺品
[pzweng][pzweng]路人 11:12:44
我本是买PROE曲面造型的高级教程
他里面有几个是PROE的
那点技术我也会
我连少汽车曲面也能画
[Sign88]宁波标志 11:13:43
哈哈
汽车曲面用的软件还是不同的
[pzweng][pzweng]路人 11:14:12
我只是画着玩的
PROE做曲面还是不行
[Sign88]宁波标志 11:14:25
外观A面用 ICEM 哪些
[pzweng][pzweng]路人 11:14:30
家电够了
[Sign88]宁波标志 11:14:39
PRO/E我不会
[pzweng][pzweng]路人 11:14:41
catia也不错
[Sign88]宁波标志 11:14:49
是的
[pzweng][pzweng]路人 11:15:05
抄数没啥意思
[Sign88]宁波标志 11:15:17
是呀
[pzweng][pzweng]路人 11:15:32
还叫“逆向”
[Sign88]宁波标志 11:15:36
兄弟  给我介绍个好点的工作呀
[pzweng][pzweng]路人 11:15:41
完全就是仿
[Sign88]宁波标志 11:16:09
天下一大抄
[Sign88]宁波标志 11:16:40
不过我司的都是原创设计
[Sign88]宁波标志 11:17:10
都是自己做 泥型 设计  后抄数
[AMKYUD][AMKYUD]??? 11:17:29
[qqimg]201310/{19A56E88-C32B-BA7B-76EB-1116F973F48C}.gif[/qqimg]
[Sign88]宁波标志 11:17:50
结构 外观 我们都要做
[Sign88]宁波标志 11:18:24
说白了还是仿
还可以不用太逼真
[AMKYUD][AMKYUD]??? 11:18:34
抄数是逆向工程的广东俗称,在江浙一带则被叫作造型,常用于仿制工作,它是平常意义上设计的反向过程。
[pzweng][pzweng]路人 11:18:35
开始我挺喜欢造型的
后来发现没什么意思了
[myjping]七叶 11:19:21
找个三维的扫描仪
[Sign88]宁波标志 11:19:33
爱好比较有激情的东西
[AMKYUD][AMKYUD]??? 11:19:33
做一个逆向工程的工作,可能比做一个正向设计更具有挑战性,
[myjping]七叶 11:19:36
连抄数都不用 了
[AMKYUD][AMKYUD]??? 11:19:39
首先必须尽量理解原有模型的设计思想,在此基础上还可能要修复或克服原有模型上存在的缺陷。
[Sign88]宁波标志 11:20:06
说的不错
[myjping]七叶 11:20:07
有那能力的还用去抄吗?
[Sign88]宁波标志 11:20:29
抄是设计流程
开发流程就是这样
要不客人谁付费用   谁买你的产品
[Sign88]宁波标志 11:22:02
泥型不喜欢  我们就不用投入太多精力做下去了
[Sign88]宁波标志 11:23:29
[qqimg]201310/{25EBF33A-6C5F-961B-A70C-42521792F417}.jpg[/qqimg]感觉路人比较喜欢做有激情的工作
不适合做设计哦
[AMKYUD][AMKYUD]??? 11:25:14
哪些是有激情的工作
[Sign88]宁波标志 11:25:23
IT
程序开发 就需要很有激情
[Sign88]宁波标志 11:26:26
还有主持人   等等 也说不上多少
[AMKYUD][AMKYUD]??? 11:26:28
鉴黄师?酒店试睡员?
[Sign88]宁波标志 11:26:42
[pzweng][pzweng]路人 11:28:34
我是搞机械的
曲面造型曾是我的爱好
花了不少精力去弄
后来感觉没意思了
[野狼谷]笨鸟 11:31:14
[yarp]潜水 11:31:16
为什么?
[Sign88]宁波标志 11:31:20
曲面造型  是对产品和曲面构成的理解   不是操作软件就了事
[野狼谷]笨鸟 11:31:36
路人,尽量弄成一个成品再歇息,
[Sign88]宁波标志 11:31:40
软件只是工具
[pzweng][pzweng]路人 11:31:41
** 应用程序参照丢失: AcDbBlockRepETag,到 AcDbPolyline。
这种情况怎么解决
[yarp]潜水 11:32:01
是不是还要考虑空气动力学,应力分析?
[pzweng][pzweng]路人 11:32:56
软件里有分析的
现在的软件功能挺强大的
 楼主| 发表于 2013-10-10 11:43:48 | 显示全部楼层
[Sign88]宁波标志 11:43:48
我这都用 UG
 楼主| 发表于 2013-10-10 12:30:51 | 显示全部楼层
[野狼谷]笨鸟 12:30:51
自编函数入口数据检查:
对每一个子函数的进口参数进行校核,如果出错,提示出错位置,方便当程序过大时,不知道问题出在那个地方,还得一点点去找

( setq Vari_list '(vari_1 vari_2 
vari_3 vari_4  vari_5  vari_6  vari_7)

(defun Input_Vari_Check    (function_Name Vari_list / Number Vari_Name)
     (setq Number 0)
     (repeat (length Vari_list)
      (setq Vari_Name (nth Number Vari_list))
      (if (= Vari_Name nil)
           (princ (strcat function_Name "函数中的" "数据导入出错,请检查!/n"))
      )
      (setq Number (+ Number 1))
     )
)
 楼主| 发表于 2013-10-10 12:45:27 | 显示全部楼层
[yifei]绝然 12:45:27
[qqimg]201310/{5658EFDE-0083-8A60-D600-566213517240}.jpg[/qqimg]
有没有能把这个填充图案归正的程序?
[q3_2006]q2 12:50:57
你是怎么填进去的??
[yifei]绝然 12:54:14
这个图被旋转移动过了。。边界动了。。图案没动
[野狼谷]笨鸟 12:54:55
求助:如果number是一个变量,如何获得"number"这个符号字符串
[野狼谷]笨鸟 12:55:26
read eval princ??
[pzweng][pzweng]路人 13:00:11
eval
[kwok][ww5w]行舟月下 13:00:14
刷 新一下显示就行了吧,填充的范围线不是直线的是弧
[野狼谷]笨鸟 13:00:57
(defun Input_Vari_Check    (function_Name Vari_list / Number Vari_Name Vari_list2 )

      ( setq Vari_list_2 (print  Vari_list))
     (setq Number 0)
     (repeat (length Vari_list)
      (setq Vari_Name (nth Number Vari_list))
            (setq Vari_Name_2 (nth Number Vari_list_2))
      
      (if (= (eval Vari_Name) nil)
           (princ (strcat function_Name "函数中的"  Vari_Name "数据导入出错,请检查!/n"))
      )
      (setq Number (+ Number 1))
     )
)
[野狼谷]笨鸟 13:01:32
路人,当Vari_Name为nil时,eval不行啊
我这个函数编的怎么样?
请帮我看看,普及普及
[yifei]绝然 13:11:28
[qqimg]201310/{00547AEB-612B-2612-E3A0-11CC04C36860}.jpg[/qqimg]
[yifei]绝然 13:12:05
重新创建边界怎么不能用
[pzweng][pzweng]路人 13:12:31
你自己判断Vari_Name有没有值
[浮世小半生]X 13:13:05
需要先点击那个填充才可以用
[kwok][ww5w]行舟月下 13:13:11
先选中填充
[yifei]绝然 13:14:00
是CASS出的图
就是不行
[浮世小半生]X 13:14:59
没有用高cass不知道
[yifei]绝然 13:15:03
[qqimg]201310/{26DF65EB-45D6-EAD1-B76E-AAA5C5A26011}.jpg[/qqimg]
[yifei]绝然 13:15:52
[qqimg]201310/{7889DEB4-A4D0-8F36-A2D5-789532CB9157}.jpg[/qqimg]
头疼
[浮世小半生]X 13:16:05
cass到底是什么
[yifei]绝然 13:16:28
现在都不知道怎么选取边界了
图案还删除不掉。
[cvbnm8888] 男人 13:16:55
编组打开了吧
[kwok][ww5w]行舟月下 13:17:03
这么牛的图
不是块就是组还有就是引用
不过组是可以编辑的
[cvbnm8888] 男人 13:17:44
把编组关掉
[kwok][ww5w]行舟月下 13:17:47
我2014可以直接编辑组
[yifei]绝然 13:17:51
编组打开了吧
?怎么关
[kwok][ww5w]行舟月下 13:18:14
ctrl+h看看
[cvbnm8888] 男人 13:18:25
ctl alt a
[q3_2006]q2 13:18:51
这个重建没用,他的填充没动,边界动了。。
[taohuaxiao]非主流 13:19:09
6 86eA1B43c709e1c5841e6f      50DPyqbaz2FjxEJsZtAE4ABC1450474C4BBE864F8694F057C9.jpgA
[q3_2006]q2 13:19:09
是要旋转填充,不是重建边界。。。
[taohuaxiao]非主流 13:19:20
上个表怎么全布删除啊?
[yifei]绝然 13:19:43
[qqimg]201310/{96E40B49-5BF7-CE91-6FA9-48548DEB85EB}.jpg[/qqimg]
全部错位了
[q3_2006]q2 13:20:13
知道旋转的角度吗?
和基点
[yifei]绝然 13:20:55
知道了怎么处理
[q3_2006]q2 13:21:42
旋转
[yifei]绝然 13:25:03
 楼主| 发表于 2013-10-10 15:14:19 | 显示全部楼层
[frybud]frybud 15:14:19
请教一下~
[qqimg]201310/{A6A8C481-04B8-2432-454A-9CBC104403F3}.jpg[/qqimg]
为什么输出的字是乱码呢。。
[pzweng][pzweng]路人 15:18:49
你做抄数的?
 楼主| 发表于 2013-10-10 17:04:17 | 显示全部楼层
[BB建筑师][R-BB勇] 17:04:17
坑爹的标题
 楼主| 发表于 2013-10-10 17:17:02 | 显示全部楼层
[wh89103](阿天) 17:17:02
两个不共面的面域能求出交点吗
[kewyst]………… 17:18:33
面域求交点
什么意思啊 我的语文不好啊
[duotu007]查理 17:19:31
求角线
交线
[yarp]潜水 17:20:12
求出两个面的一个公共点,外加一个交线的矢量就好。
[kewyst]………… 17:20:55
我就说吗 两个面应该是交线撒
[wh89103](阿天) 17:21:12
交线
我说错了
[cvbnm8888] 男人 17:21:34
好深奥。。。
[wh89103](阿天) 17:21:42
能求出交线吗
[kewyst]………… 17:22:05
肯定能啊
[wh89103](阿天) 17:23:07
[qqimg]201310/{8CE9FB01-FC03-C425-5B27-808A7CAA93DA}.jpg[/qqimg]
红色的线就是交线
[myjping]七叶 17:23:24
其实也简单
[kewyst]………… 17:23:47
[myjping]七叶 17:23:51
取一个面域做另一个面的三维镜象
[wh89103](阿天) 17:24:33
如何得到这条线
[yarp]潜水 17:25:25
在于你这两个表面的表示方法。
[myjping]七叶 17:25:54
取一个面域做另一个面的三维镜象,两个面域有交交,那连起来就是交线
[myjping]七叶 17:26:28
如果没交点,那就做线延伸,交点联线
[wh89103](阿天) 17:26:34
七叶,能具体到命令吗
[myjping]七叶 17:27:07
具体到命令?
MIrror3d
[yarp]潜水 17:27:16
你怎么表示你这两个面?
取面上三个点,一个点一个法矢量?
[myjping]七叶 17:28:23
用三个点就可以
[yarp]潜水 17:29:58
取其一个点为顶点,另两条边作为矢量求叉积得到法向量。
[vormittag]桔子 17:30:41
面域可以直接获得法向量吧?
[vormittag]桔子 17:32:36
哦,不行
[wh89103](阿天) 17:32:59
没做出来
[vormittag]桔子 17:34:15
用vla 可以直接获得Normal属性,可以直接得到法向量,用组码就不行了。
[kewyst]………… 17:41:53
[qqimg]201310/{9467C58D-80E0-3073-E3BF-3907941A7FE4}.jpg[/qqimg]
[qqimg]201310/{696D1C91-E92F-95C5-9784-FBBD0BF5775F}.jpg[/qqimg]
[kewyst]………… 17:43:00
[qqimg]201310/{5BDB1E77-D47D-41DA-893A-E36F6AAB440B}.jpg[/qqimg]
[kewyst]………… 17:44:56
是这样吗
 楼主| 发表于 2013-10-10 19:57:43 | 显示全部楼层
[taohuaxiao]非主流 19:57:43
有搞cadmap的么
[yarp]潜水 20:04:49
是指地形图么?
[taohuaxiao]非主流 20:05:54
cadmap怎么删除关连的数据库表啊
[taohuaxiao]非主流 20:06:58
6 86eA1B645b1050c5841e6f      50CQDRNdUD6bhD54WN5424506EFF03F0D0501D25CB488FCA03.jpgA
 楼主| 发表于 2013-10-10 21:20:53 | 显示全部楼层
[楚留香] 21:20:53
各位老大
[楚留香] 21:21:23
明镜里面有个把字符串拷呗到剪贴板的程序
现在的情况是
同意的程序
别人的电脑可以
我自己的不行
我的剪贴板自身没有问题
大家出现过这种情况吗
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-25 14:15 , Processed in 0.290408 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表