几个最近写的函数
本帖最后由 lijiao 于 2021-9-15 17:50 编辑最近用.net写了几个函数,费了老辈子劲了,必需得收点费,否则对不起自己的辛苦,别人也不珍惜.
一共提供了5个函数
(csballoon ...)
(dragmove ss pt0 strmsg)
(dragrotate ss pt0 ang0 strmsg)
(dragscale ss pt0 ref0 strmsg)
(dragmirror ss pt0 strmsg)
一看就明白,第一个是托盘气泡
后面几个是拖动函数,拖动效果优于et工具的拖动函数,拖动的同时可以正交,可以捕捉,可以极轴追踪,可以关键字(不用提前初始化),不用回调函数,使用简单
1.(csballoon ...)详解
(csballoon ...)生成气泡
关闭气泡的方法:1.手动关闭(点叉),2. (csballoon),3.执行任意命令,气泡自动关闭
2.(dragmove ss pt0 strmsg)详解
功能:移动方式拖动选择集(相当于带移动拖动的getpoint)
参数:ss 选择集
pt0 基准点
strmsg 提示信息(格式见举例)
返回值: 3D点,或关键字,或nil(回车或取消)
举例: (dragmove (ssget) (getpoint) "输入目标点[第一(A)/第二(B)]")
3.(dragrotate ss pt0 ang0 strmsg)详解
功能:旋转方式拖动选择集(相当于带旋转拖动的getangle)
参数:ss 选择集
pt0 基准点
ang0 参考角度(弧度)
strmsg 提示信息(格式见举例)
返回值: 弧度,或关键字,或nil(回车或取消)
举例: (dragrotate (ssget) (getpoint) 0 "输入角度[第一(A)/第二(B)]" )
4.(dragscale ss pt0 ref0 strmsg)详解
功能:缩放方式拖动选择集(相当于带缩放拖动的getdistance)
参数:ss 选择集
pt0 基准点
ref0 参考长度
strmsg 提示信息(格式见举例)
返回值: 长度,或关键字,或nil(回车或取消)
举例: (dragscale (ssget) (getpoint) 125 "输入参考长度[第一(A)/第二(B)]" )
5.(dragmirror ss pt0 strmsg)详解
功能:镜像方式拖动选择集(相当于带镜像拖动的getpoint)
参数:ss 选择集
pt0 基准点
strmsg 提示信息(格式见举例)
返回值: 3D点,或关键字,或nil(回车或取消)
举例: (dragmirror (ssget) (getpoint) "输入镜像线[第一(A)/第二(B)]")
说明:1.附件中的是源码,如何使用,此处不再赘述
2.我是在win10X64AutoCAD mechanical 2022上调试通过,是否能在其他版本上使用,没有试验过. 3.2021年9月15日对附件做了更新,解决了大家提出的几个问题,在此对提出问题的朋友表示感谢.
4.为了表示感谢,回馈明经,附件取消收费.
5.同时新增了函数netssget,它可以带过滤器和关键字,见附件中的lisp代码
下来一看，不是CS源码 谢谢楼主分享 感谢分享
谢谢楼主分享 试用了一下，拖动效果很好，使用也很方便。但是有两个缺点：一是函数使用后出现如下提示，然后就不能保存，哪怕是仅用了一次也这样，很让人抓狂；二是程序里这几个函数使用后不能使用使用command命令操作，否则会出错中断，只能退出。使用环境是win10 64位，cad2016x64。
liuyj 发表于 2021-9-14 15:12
试用了一下，拖动效果很好，使用也很方便。但是有两个缺点：一是函数使用后出现如下提示，然后就不能保存， ...
非常感谢,我也发现了这个问题,现已更正,并添加了新的函数(带关键字的ssget),请重新下载 大佬是不是少了点东西msg2key yanshengjiang 发表于 2021-12-13 23:27
大佬是不是少了点东西msg2key
说到要点了;P
页:
[1]