日志

分享当线位置改变后，把标示的箭头重新移动到新位置线: crazylsp 2013-12-16 16:37; ;;.lsp ;;排序函数(HH:ssPts:Sort ssPts KEY FUZZ) 见黄老师的 http://bbs.mjtd.com/thread-107489-1-1.html (defun c:tt() ;输入KEY值默认"YX" (setq keys (getstring "按照排序通用程序设定的方法输入KEY值: YX ") ) ;选线;排序; (setq list ...; 个人分类: 修改|1491 次阅读|0 个评论

分享删除被两点之间压的线修改 :): crazylsp 2012-12-4 12:09; ;删除被两点之间压的线 (defun c:sq(/ pnt1lp pntlst pnt2 sst) (setq pnt1 (getpoint "\nPick first point: ") lp pnt1 pntlst (list pnt1) ) (while (setq pnt2 (getpoint lp ...; 个人分类: 修改|693 次阅读|0 个评论

GMT+8, 2024-5-5 22:26 , Processed in 0.113243 second(s), 11 queries , Gzip On.

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