【函数分享】自定义的getcorner，实现左虚右实(或者是全虚线).

wowan1314 · 发表于 2013-5-29 12:01:34

本帖最后由 wowan1314 于 2013-5-30 11:50 编辑

  如题：自定义的getcorner。与自带函数的区别是可以像CAD的选择框一样--左虚右实
使程序与CAD本身更贴近，观感更佳。
;;================{ 自定义的getcorner，实现左虚右实(甚至是全虚线). }===============
;;参数:MSG--提示字符串,无则nil  PT1--起始点
;;    CO--矩形框的颜色  MODE--T则总是虚线，nil则左虚右实.
;;返回值: 表 (PT2 CO) 第一项为得到的点第二项为颜色正负值 ,如果点右键则返回的pt2为nil
;;根据第二项的正负可决定C 或W  如：(ssget (if (minusp co) "_c" "_w") pt1 pt2 SSPARM)
;;测试: 左虚右实--(YY:getcorner (getpoint) "指定对角点" 1 nil)
;;测试: 全虚线--(YY:getcorner (getpoint) "指定对角点" 1 T)

修正版出炉---修正UCS下的错误

jun470 · 发表于 7 小时前

用起来卡卡的，不知道什么原因，原版CAD2026，会闪闪的

LIULISHENG · 发表于 2020-2-20 12:14:13

好玩的啊顶一下

LIULISHENG · 发表于 2018-1-20 16:56:20

我也要用一用

OWEN7 · 发表于 2013-5-29 12:12:05

这个好像没有太大的实际意义，不能改变选择的习惯，改变了反而更糟糕。

gzxl · 发表于 2013-5-29 12:22:53

葛老：猜下一步
框选到了屏幕顶就自动滚屏

springwillow · 发表于 2013-5-29 18:05:07

哈哈，这个对我有用啊！多谢多谢！

wowan1314 · 发表于 2013-5-29 18:10:09

springwillow 发表于 2013-5-29 18:05
哈哈，这个对我有用啊！多谢多谢！

我感觉也蛮有用。如果要用（ssget "c" p1 p2）这样的语句，都能用这个函数撒。

感觉这样更美观。更符合习惯。

海盗曹 · 发表于 2013-5-30 15:20:38

学习楼主的程序~

gtj116600 · 发表于 2013-5-31 16:15:48

正在学习研究葛老的getcorner，碰到问题时，希望葛老不吝赐教

ucuc2003 · 发表于 2013-7-5 12:48:27

先收藏起来，谢谢wowan1314老大分享

jyzas · 发表于 2013-7-8 22:51:59

权限太高下载不了啊

账号		自动登录	找回密码
密码			注册

[函数] 【函数分享】自定义的getcorner，实现左虚右实(或者是全虚线).

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源

点评

点评

点评

点评

浏览过的版块