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

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

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

如题：自定义的getcorner。与自带函数的区别是可以像CAD的选择框一样--左虚右实
使程序与CAD本身更贴近，观感更佳。
;;================{ 自定义的getcorner，实现左虚右实(甚至是全虚线). }===============
;;参数:MSG--提示字符串,无则nilPT1--起始点
;;   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 发表于 4 小时前

用起来卡卡的，不知道什么原因，原版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 static/image/common/back.gif
哈哈，这个对我有用啊！多谢多谢！

我感觉也蛮有用。 如果要用 （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

权限太高下载不了啊
页: [1] 2
查看完整版本: 【函数分享】自定义的getcorner，实现左虚右实(或者是全虚线).