明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
12
返回列表 发新帖
楼主: qinleilei

[源码] 才学LSP没多久,发一些自己写的lsp,高手不要笑话哈~

[复制链接]
 楼主| 发表于 2014-5-11 21:43:38 | 显示全部楼层
liu22737 发表于 2014-5-11 15:20
局部刷新请参考黄明儒大师的常用函数帖子,用entupd更快,你这里用erase+U,相当于对图元处理了两次

多些兄弟的提醒,这个局部刷新纯粹是自己的想法,确实对图元处理了两次是不够完善,当图元较多刷新时,如果按Esc键太快的话容易造成第二个U的命令没有执行。
 楼主| 发表于 2014-5-11 21:51:03 | 显示全部楼层
ysq101 发表于 2014-5-11 12:33
这个也算是新手的程序??有点厉害啊

工作之余接触LSP的,觉得很好玩就抽空学了一个多月,对于函数没有一点基础,英语也零基础。所以就每个函数后面都加了批注,同事都不会这个也没人交流。也才加入明经的,局部刷新里面的窗口坐标函数是借用别人的。呵呵!对于高手来说这确实太简单了。见笑了。
 楼主| 发表于 2014-5-11 21:52:57 | 显示全部楼层
xyp1964 发表于 2014-5-11 13:58
判断多线段是否封闭:70码为1或起点与终点坐标相等

多些版主大哥的提醒,判断起点与终点坐标相等,这个确实没有想到。长见识了
 楼主| 发表于 2014-5-11 22:48:16 | 显示全部楼层
liu22737 发表于 2014-5-11 15:20
局部刷新请参考黄明儒大师的常用函数帖子,用entupd更快,你这里用erase+U,相当于对图元处理了两次

●152 [功能] 局部更新 by Lee Mac
●示例 (MJ:Update (entget (car (entsel))))
(defun MJ:Update (enlist)
  (entupd (cdr (assoc -1 enlist)))
)

你说的是这个不?大致看了下不是很明白,可不可以讲解一些。
我要的效果是,电脑屏幕内的所有图元都更新。他这个好像点选一个图元类的
发表于 2014-5-12 07:58:27 | 显示全部楼层
qinleilei 发表于 2014-5-11 22:48
●152 [功能] 局部更新 by Lee Mac
●示例 (MJ:Update (entget (car (entsel))))
(defun MJ:Update (en ...

这两句(command "ERASE" ss "" ) (command "u"  "" )
换成((lambda(i)(while(setq e(ssname ss(setq i(1+ i))))(entupd e)))-1)
发表于 2014-5-12 11:01:01 | 显示全部楼层
qinleilei 发表于 2014-5-7 23:39
刚学没多久,容易搞糊涂,就在后面加了好多的批注,,发帖时忘记删了

这些批注要保留啊
以后才好总结提高的
有总比无好的多
你这水平
进步太快了啊
发表于 2014-6-27 12:25:00 | 显示全部楼层
局部刷新功能挺是有用   谢谢分享
发表于 2016-5-7 01:58:43 | 显示全部楼层
楼主太谦虚了,收下了
发表于 2016-5-7 08:10:19 | 显示全部楼层
才学就写这么好
发表于 2019-8-27 07:19:11 | 显示全部楼层

局部刷新功能挺是有用   谢谢分享
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-5-18 15:44 , Processed in 0.174718 second(s), 19 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表