|
偏爱云~小吴 21:57:23
有大神研究过7参数坐标系的问题么
[小伟jeny]小伟 21:57:43
布尔萨模型
七参数转换
偏爱云~小吴 21:57:52
恩，
[小伟jeny]小伟 21:58:08
就是矩阵运算
偏爱云~小吴 21:58:13
是的，两个三维坐标系间的转换
[小伟jeny]小伟 21:58:21
嗯
偏爱云~小吴 21:58:28
大神貌似您搞懂了
怎么个算法，有公式么
一直没弄明白
[小伟jeny]小伟 21:59:06
有公式啊
控制测量书上有
我曾经搞懂过
偏爱云~小吴 22:00:14
请指教，其实我们在实用中是先设定一个理论三维坐标系，然后与检测后的坐标系进行比对
[小伟jeny]小伟 22:00:40
？
我很弱的
偏爱云~小吴 22:01:34
就是从模型中取出理论上的三维坐标，与实物的三维坐标进行关联，找出实物的缺陷点
偏爱云~小吴 22:02:04
曾经搞懂过已经很厉害了，我到现在都没有搞懂过
[小伟jeny]小伟 22:02:33
你说的是测绘坐标的转换么
偏爱云~小吴 22:02:51
可以这么说，
就是理论尺寸与实际尺寸进行比对
一直没弄明白两个独立的坐标系是如何关联的
[小伟jeny]小伟 22:03:40
貌似没有缩放啊
偏爱云~小吴 22:03:52
没有缩放
坐标上1:1
[小伟jeny]小伟 22:04:20
理论尺寸=实际尺寸啊
偏爱云~小吴 22:05:06
我之前所说的缩放只是制图上需求。是的，就是通过理论尺寸-实际尺寸=差值，这样一种方式找到修正量
[小伟jeny]小伟 22:05:27
我不懂
我很弱的
偏爱云~小吴 22:06:10
没关系，问了很多人都说不懂。貌似是个非常高深的数学问题
[小伟jeny]小伟 22:06:20
你是要研究模型咋出来的吧
偏爱云~小吴 22:07:19
不是，是想找到理论坐标和实物坐标上的关联参数，
偏爱云~小吴 22:08:05
这样我就可以直接测量实物后通过参数与理论值进行比较，从而找到缺陷点
[小伟jeny]小伟 22:09:06
亲 说的通俗点啊
是不是就是咋求转换参数？
偏爱云~小吴 22:09:51
恩
[小伟jeny]小伟 22:10:03
偏爱云~小吴 22:10:08
貌似我把问题说复杂了
[小伟jeny]小伟 22:10:19
有公式
偏爱云~小吴 22:10:28
哦
偏爱云~小吴 22:11:03
请指教
[小伟jeny]小伟 22:11:22
控制测量书上就有
偏爱云~小吴 22:12:00
[qqimg]oldimg/{E271FBB9-81C9-9E78-A597-ED0D4D8FD6C0}.jpg[/qqimg]
你是指这个？
[小伟jeny]小伟 22:13:43
不是吧 我记不得了
[alwtyp][alwtyp] 22:19:22
怎么样依次把表中元素取出
比如(1 2 3)取成1 2 3
[仑通]仑通 22:24:31
(setq n 0 ssn (lenght lst))
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
????????
刚刚看到FOREACH 这 不知道是不是这样的
(setq n 0 ssn (lenght lst))
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
[alwtyp][alwtyp] 22:26:19
foreach没用过，还不会用。
我再试试。
谢谢
[pzweng]路人 22:26:46
(1) (2) (3)行不
[仑通]仑通 22:26:48
要闻下高手 我是菜鸟级
[小伟jeny]小伟 22:26:49
循环都可以吧
[alwtyp][alwtyp] 22:27:07
可以，
[仑通]仑通 22:27:10
(setq n 0
ssn (lenght lst)
)
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
[alwtyp][alwtyp] 22:27:24
有(1),就可以得到1了
[仑通]仑通 22:28:15
(denfun get_ent_n (lst / ssn)
(setq n 0
ssn (lenght lst)
)
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
写成常用函数了 呵呵
[alwtyp][alwtyp] 22:28:30
要用REPEAT吧
[仑通]仑通 22:28:37
(denfun get_ent_n (lst / ssn)
(setq n 0
ssn (lenght lst)
)
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
(princ)
)
[野狼谷]笨鸟 22:28:44
如何将HZTXT里的字母与数字设为0.8汉字高度，形成一个新的字体？
{cadlisp)-lzf 22:28:44
！！
[仑通]仑通 22:28:51
(denfun get_ent_n (lst / ssn)
(setq n 0
ssn (lenght lst)
)
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
(princ)
)
[野狼谷]笨鸟 22:29:44
如何将HZTXT里的字母与数字设为0.8汉字高度，形成一个新的字体？
还有就是创造一个上角标及小角标的特殊字，便于在CAD里编辑
[仑通]仑通 22:30:28
(denfun get_ent_n (lst / ssn);遍阅表项
(setq n 0
ssn (lenght lst)
)
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
(princ)
)
[仑通]仑通 22:31:11
不知道有没错 SSN 还是ent_n
foreach ent_n lst 吧
[alwtyp][alwtyp] 22:32:02
运行好像有问题
[仑通]仑通 22:32:51
(denfun get_ent_n (lst / ssn);遍阅表项
(setq n 0
ssn (lenght lst)
)
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
(princ)
)
试试这个
[kwok][kwok]巭隼 22:33:01
用字体编辑器
[仑通]仑通 22:33:14
(denfun get_ent_n (lst / ent_n);遍阅表项
(setq n 0
ssn (lenght lst)
)
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n) lst))
)
)
(princ)
)
[alwtyp][alwtyp] 22:33:55
好像也不对
[仑通]仑通 22:34:19
(denfun get_ent_n (lst / ent_n);遍阅表项
(setq n 0
ssn (lenght lst)
)
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n)) lst)
)
)
(princ)
)
最后这个试试
(denfun get_ent_n (lst / ent_n);遍阅表项
(setq n 0
ssn (lenght lst)
)
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n)) lst)
)
)
(princ)
)
[alwtyp][alwtyp] 22:35:21
你把length写成LENGHT了
[仑通]仑通 22:35:42
！！
;遍阅表项
(denfun get_ent_n (lst / ent_n)
(setq n 0
ssn (length lst)
)
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n)) lst)
)
)
(princ)
)
{cadlisp)-lzf 22:36:03
老哥咋还发
你啥目的
[仑通]仑通 22:36:18
呵呵 修正
{cadlisp)-lzf 22:36:32
目的不纯
[alwtyp][alwtyp] 22:36:35
还是不行
[alwtyp][alwtyp] 22:42:09
(denfun get_ent_n (newlist / ssn)
(setq n 0
ssn (length newlist)
)
(foreach n newlist
(setq ent_n n)
)
(princ)
)
这是我要结果
[仑通]仑通 22:43:23
肯定不是
[alwtyp][alwtyp] 22:44:17
是的。
[alwtyp][alwtyp] 22:44:54
(setq ent_n n)
可以换成想要任何表达
[仑通]仑通 22:45:35
(denfun get_ent_n (lst / ent_n)
(setq n 0
ssn (length lst)
)
(foreach ssn lst
(setq ent_n (nth (n (+ 1 n)) lst)
)
)
(princ)
)
[pzweng]路人 22:45:36
mapcar
[仑通]仑通 22:48:14
(denfun get_ent_n (lst / ent_n)
(setq n 0
ssn (length lst)
)
(if (< n ssn)
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n)) lst)
)
)
(princ)
)
(denfun get_ent_n (lst / ent_n)
(setq n 0
ssn (length lst)
)
(if (< n ssn))
(foreach ent_n lst
(setq ent_n (nth (n (+ 1 n)) lst)
)
)
(princ)
) | 
[复制链接]
楼主
显身卡
