关于本坛yjr111的经典程序-查找替换的探索

尘缘一生

技术原帖，可能还有，链接这一个。
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))
• )
  

hzyhzjjzh

谢谢楼主分享

sirlowlam1

大佬牛B啊！感谢分享！