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

wowan1314 · 发表于 2013-5-29 12:02:41

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 wowan1314 于 2013-5-30 18:31 编辑
如题：自定义的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);自带函数也可以全虚线，INITGET 32

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

GTJ116600 · 发表于 2013-5-29 12:28:14

很牛，思路好。

kery8605 · 发表于 2013-5-29 12:34:24

值得啃一下

Lispboy · 发表于 2013-5-29 13:04:29

哈，不长时间没上来，葛老又有大作了，思路很好，学习消化中...

wowan1314 · 发表于 2013-5-29 13:06:20

Lispboy 发表于 2013-5-29 13:04
哈，不长时间没上来，葛老又有大作了，思路很好，学习消化中...

:L 你这谦虚的过了！

Lispboy · 发表于 2013-5-29 13:19:28

葛老，颜色号能指定不？如果不能，建议加个参数支持。

wowan1314 · 发表于 2013-5-29 14:17:13

Lispboy 发表于 2013-5-29 13:19
葛老，颜色号能指定不？如果不能，建议加个参数支持。

很明显可以指定的。不指定都不行。

eachy · 发表于 2013-5-29 18:17:53

wowan1314 发表于 2013-5-29 14:17
很明显可以指定的。不指定都不行。

在 UCS 下表现如何？

Lispboy · 发表于 2013-5-29 18:29:59

测试了下UCS下的表现，和ACAD的GETCORNER函数有差别，看演示。

wowan1314 · 发表于 2013-5-29 18:30:44

eachy 发表于 2013-5-29 18:17
在 UCS 下表现如何？

一语惊醒梦中人。这确实是没考虑。

也就是说画出的矩形是随光标方向的。

光标是正的矩形就是正的，光标是斜的画出的矩形就是斜的。这点没能与getcorner保持一致。

Lispboy · 发表于 2013-5-29 18:39:40

wowan1314 发表于 2013-5-29 18:30
一语惊醒梦中人。这确实是没考虑。

也就是说画出的矩形是随光标方向的。

;P有事做了。

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

Lispboy 发表于 2013-5-29 18:39
有事做了。

程序都打包了！头疼。

Lispboy · 发表于 2013-5-29 18:50:16

wowan1314 发表于 2013-5-29 18:46
程序都打包了！头疼。

不会源码没了吧？{:soso_e114:}

wowan1314 · 发表于 2013-5-29 18:58:53

本帖最后由 wowan1314 于 2013-5-29 19:01 编辑

Lispboy 发表于 2013-5-29 18:50
不会源码没了吧？

发的就是源码撒！只是没想好怎么改！ ------到底要不要改！我工作中的光标一直都是直的。
(getvar "UCSORG")(getvar "UCSYDIR")(getvar "UCSXDIR")
这三个系统变量有用处了！ :dizzy:

要不程序开头直接加一句(command "ucs" "W").万事大吉

Lispboy · 发表于 2013-5-29 19:07:40

wowan1314 发表于 2013-5-29 18:58
发的就是源码撒！只是没想好怎么改！ ------到底要不要改！我工作中的光标一直都是直的。
(getvar "UC ...

那不好啊，人家就需要在UCS下画图怎么办呢？

研究矩阵吧:P

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

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

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

评分

评分