关于本坛yjr111的经典程序-查找替换的探索
本帖最后由 尘缘一生 于 2023-5-31 22:31 编辑技术原帖，可能还有，链接这一个。
http://bbs.mjtd.com/forum.php?mo ... %BB&_dsign=b0e59380
在使用过程中，一直对滑动条的问题，耿耿于怀，闲暇之余，总看这部分，
我也曾发过一次，但当时还没有解决这个问题
http://bbs.mjtd.com/forum.php?mo ... %BB&_dsign=2e3875ee
哪么，对于经典的程序，不进行改造完善起来，实在是遗憾，假以时日，总会提高，好在解决了些问题，现把集成在《三领设计 V3.0》的代码，发出来，
注意：代码不能独立运行，需三领支持
如果你爱好这个，你又不熟悉代码的话，集成个插件也是机械堆砌，恕我直言，放弃把！当然，目前来看，机械堆砌代码的集成反倒是主流，实在遗憾。
三领设计 V3.0永久更新链接
链接：https://pan.baidu.com/s/1Bty9jmYTIjMq8WijP2UZWg
提取码：9w40
以下附件代码涉及众多函数、版本、语言等问题，我也懒得剔除，自己整理就是了，这不是主要问题所在....
请注意这段代码！（滑动条反转）
原技术里面，变量JIAOJU（焦距）的研究，多用点时间
[*];;聚焦对象-----------
[*](defun zoome (e / dis ang p1 p2 objlast)
[*](deleteyuan)
[*](getetext)
[*](setq txtang (last e))
[*](getthbox (cadr e));此处取得 minp maxp midp
[*](setq objlast (en2obj (entlast)))
[*](if (/= txtang 0.0) (vla-rotate objlast (vlax-3d-point midp) txtang))
[*](vla-highlight objlast :vlax-true)
[*](setq dis (* (abs (- (distof jiaoju) (distof maxjustr))) (distance minp maxp)) ang (angle minp maxp))
[*](setq p1(polar minp (+ ang pi) dis))
[*](setq p2 (polar maxp ang dis))
[*](vla-zoomwindow *Acad* (vlax-3d-point p1) (vlax-3d-point p2))
[*])
谢谢楼主分享{:1_1:} 大佬牛B啊！感谢分享！
页:
[1]