点赞点赞，学习一下
可以，对新手友好。
收藏起来~蛮不错呢~
学习中~
本帖最后由 Gaudi 于 2024-4-25 02:44 编辑
第二篇第二部分读取主线起点并计算起点角度
要加点强度了，这一部分我开始涉及到vla函数。
前文说到vla函数本质上是将cad中的图元转变为大佬微软建立的com平台上。
那么这里就涉及到指向和转变的函数。
你得先跟电脑说，我要将这个东西转一下吧？
我最常用的就两个，其他碰到需求再说：
<entsel>和<entlast>。
<entsel>意思是entity select的意思，实体选择。
<entlast>意思是entity last的意思，最近一次创造的实体。
其他你先别看。
不管是自己选、还是电脑选，选中了以后，通过<VLAX-ENAME->VLA-OBJECT>，即可转变为vla实体。
还是得通过<setq>定义一下，你转变了不定义，接下来也没法调用是吧？
照样给个示例：
(setq OBJCenterLine (VLAX-ENAME->VLA-OBJECT centerLine))
这就把通过<entsel>获得的centerLine，转变为vla实体OBJCenterLine了。
转变为VLA实体有什么好处呢？
前文说过，三种情况：
A 各软件之间数据的连接必须用
B 相比传统办法更加简单清晰
C 传统办法不能达成需求
1 获得起点坐标
这次就是B情况。
给大家看看用VLA函数怎么获得起点。
(setq starPoint (VLAX-CURVE-GETSTARTPOINT OBJCenterLine))
好了。
好了？
好了。
不用去判断是多段线还是SPL线，不需要用各种循环啥的。
反正我是因为查过，所以才不想用了。
并且vla函数有个特点，你别看它长，其实它很软。
它能干啥都给你写得清清楚楚。
VLAX-CURVE-GETSTARTPOINT
定义-曲线-获得 起始 点
简直把大爷来用啊写在脸上了。
2 求得起点的切线角度
要想进行下一步标注，得求得起点处垂直曲线的角度。
而垂直曲线的角度，可以通过这个点切点角度换算。
所以问题转化为求得曲线起点的切线。
首先第一个函数，<VLAX-CURVE-GETPARAMATPOINT>。（定义-曲线-获得 参数 在 点）
这个函数的解释很晦涩，我仔细理解以后发现：
这不就是<VLAX-ENAME->VLA-OBJECT>吗？
只不过是将曲线和点结合起来而已。
【叠甲：这只是个人的、错误的理解】
然后获得点的VLA对象以后，再使用<VLAX-CURVE-GETFIRSTDERIV>。（定义-曲线-获得 一阶 导数）
这返回的是一个向量。
切线嘛，肯定是一个有指向性的参数。
最终的结果是：
(setqV1 (VLAX-CURVE-GETFIRSTDERIV ENAME (VLAX-CURVE-GETPARAMATPOINT ENAME Point)))
在切点加上返回的向量，就得到切线了！
这里要用到一个运算函数<mapcar>。
照样给个实例：
（mapcar '1+ '(10 11 12))
返回（11 12 13）。
<mapcar> 函数后面要再跟一个函数，这是<mapcar>定义需求得。
最后的结果是：
(setq P1 (MAPCAR '+ Point V1))
打上<'>，作用是将 + 符号作为一个函数名传递给 MAPCAR,而不是对 + 进行求值。
通过使用单引号 ',告诉 AutoLISP 将 + 作为一个符号(函数名)原封不动地传递给 MAPCAR,而不对其进行求值。
这样,MAPCAR 就知道要使用 + 函数来处理列表中的元素。
因此,(MAPCAR '+ Point V1) 的作用是将 Point 与 V1 列表中对应位置的元素相加,生成一个新的点 P1。
这实现了将点 Point 沿着向量 V1 的方向进行平移的功能。
然后，将这个平移后的点，赋值给P1。
那么P1和point，就组成了Point这个点的切线。
结束。
3 总结
有点绕晕了啊……
再总结下。
A 将主线转为VLA对象。<VLAX-ENAME->VLA-OBJECT>
B 获取主线的起始点。<VLAX-CURVE-GETSTARTPOINT>
C 将起始点和曲线结合起来。<VLAX-CURVE-GETPARAMATPOINT>
D 获得起始点的一阶导数，也就是切线向量。<VLAX-CURVE-GETFIRSTDERIV>
E 将起始点沿着切线向量移动。(MAPCAR '+ Point V1)
F 获得切点角度。(setq pointAngle (ANGLE Point P1))
还是挺顺畅的。
就我个人感觉，VLA函数麻烦的不是使用，而是……
根本不知道有这个函数啊！
也不知道这个函数能干啥啊！
但是用起来是真爽啊，简单清晰，接近自然语言了。
毕竟都给封装好了。
4 代码实现
(DEFUN angleCAL (ENAME Point)
(setq V1 (VLAX-CURVE-GETFIRSTDERIV ENAME (VLAX-CURVE-GETPARAMATPOINT ENAME Point)))
(setq P1 (MAPCAR '+ Point V1))
(setq pointAngle (ANGLE Point P1))
pointAngle
)
这个代码还可以满足其他需求。
比如画切线啊什么的。
反正已经拿到两个点了。
为大佬点赞
本帖最后由 Gaudi 于 2024-4-25 11:08 编辑
第二篇第二部分增补
1 关于<mapcar>
再把我的思考说一下。
<mapcar>后面跟一个函数，意思告诉程序，对后面列表中的每个参数都执行一次这个函数，最后返回一个列表结果。
很多大佬会将<mapcar>和<lambda>连用。
<lambda>是匿名函数的意思。
就是本来在这个地方，你得给程序传递个函数名。
但是为了这么点操作我新建个函数，实在懒得搞。
那就用不定义名称的函数给你嘛。
lambda就是λ。
为什么用这个希腊字母代表匿名函数呢？
那就要扯蛮多了，从lambda演算开始说起。
最有意思的回答是这个：
Russell 与 Whitehead 的《Principia Mathematica》中用 2x(上^) +1来表示 f(x)= 2x +1中的f。Church 原本要引入的表示法是x(上^).2x +1，但是打字员未能将尖号放在 x 之上，而是放在了 x 之前，于是成了^x.2x +1，然后又被另一个打字员改成了 λx.2x +1.
扯远了扯远了。
文中代码如果改写成<lambda>，应该是这样：
(setq P1 (MAPCAR '(lambda (p v) (+ p v)) Point V1))
先定义一个匿名函数，这个函数有两个参数，函数的操作是把这两个参数相加。
2 VLA函数
为什么觉得VLA函数复杂，一个原因是因为它的函数名贼长。
但现在来看，这反而是它的特性。
它在尽可能得用自然语言去描述这个函数的功能。
那就没办法了。
最大的困难实际上是不知道有这么个VLA函数。
因为自然语言描述一个功能，谁都会。
但鬼知道有没有这么个VLA函数能实现这个功能？
或者能通过几个现有的VLA函数组合起来实现这个功能？
比如后来我才发现有这么一个函数，叫<VLAX-CURVE-GETTANATPOINT>.（定义-曲线-获得 切线 在 点）
传递好曲线和点以后，直接返回切线。
直接一步到位了属于是。
但是……
这个函数是我瞎编的。
总归VLA函数在我看来属于偏向于自然语言一点的，应该是程序内部封装了大量代码。
要熟悉它也没别的办法，多用吧。
3 关于<VLAX-CURVE-GETPARAMATPOINT>的进一步思考
通过<VLAX-CURVE-GETSTARTPOINT>获得起始点坐标后，为什么不能直接用<VLAX-CURVE-GETFIRSTDERIV>获得切线向量呢。
因为一条曲线上有无限条切线；通过一个点的直线有无线条。
所以单独定义一条曲线或者一个点，都不能确定一条准确的切线。
只有将曲线和点结合起来，才能确定唯一一条切线。
这就是<VLAX-CURVE-GETPARAMATPOINT>的作用。
VLIDE很难用，而且还会假死，
我调试是在特定位置写一个alert，等弹出窗口的时候，使用鼠标预览变量里面的值，也基本能解决问题。
牛逼，注册第3天都已经开始上手了，收藏了，有空了看看学习心得
你有种再说一遍 发表于 2024-4-22 18:40
你可以用md格式写笔记.
只是这个论坛不支持这个格式.
并且再去学习一下git,它支持md格式
有啥支持MD语法的论坛吗
tranque 发表于 2024-4-24 14:00
有啥支持MD语法的论坛吗
论坛貌似没有,但是可以导出html的,而且博客类很多支持md