几个最近写的函数

lijiao

最近用.net写了几个函数,费了老辈子劲了,必需得收点费,否则对不起自己的辛苦,别人也不珍惜.
一共提供了5个函数
(csballoon [string] ...)
(dragmove ss pt0 strmsg)
(dragrotate ss pt0 ang0 strmsg)
(dragscale ss pt0 ref0 strmsg)
(dragmirror ss pt0 strmsg)

一看就明白,第一个是托盘气泡
后面几个是拖动函数,拖动效果优于et工具的拖动函数,拖动的同时可以正交,可以捕捉,可以极轴追踪,可以关键字(不用提前初始化),不用回调函数,使用简单
1.(csballoon [string] ...)详解
(csballoon [string] ...)生成气泡
关闭气泡的方法: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.我是在win10X64  AutoCAD mechanical 2022上调试通过,是否能在其他版本上使用,没有试验过.         3.2021年9月15日对附件做了更新,解决了大家提出的几个问题,在此对提出问题的朋友表示感谢.
        4.为了表示感谢,回馈明经,附件取消收费.
        5.同时新增了函数netssget,它可以带过滤器和关键字,见附件中的lisp代码

小菜123

下来一看，不是CS源码

tigcat

谢谢楼主分享

傀儡koka

感谢分享
                                    

erlong

谢谢楼主分享

liuyj

试用了一下，拖动效果很好，使用也很方便。但是有两个缺点：一是函数使用后出现如下提示，然后就不能保存，哪怕是仅用了一次也这样，很让人抓狂；二是程序里这几个函数使用后不能使用使用command命令操作，否则会出错中断，只能退出。使用环境是win10 64位，cad2016x64。

lijiao

liuyj 发表于 2021-9-14 15:12
试用了一下，拖动效果很好，使用也很方便。但是有两个缺点：一是函数使用后出现如下提示，然后就不能保存， ...

非常感谢,我也发现了这个问题,现已更正,并添加了新的函数(带关键字的ssget),请重新下载

yanshengjiang

大佬是不是少了点东西  msg2key

ynhh

yanshengjiang 发表于 2021-12-13 23:27
大佬是不是少了点东西  msg2key

说到要点了