在CAD中，怎么将直线附近的点批量沿垂直方向移动到该线上？

(defun C:MJL3 ( / &kw &kw1 &kw2 i @p1 @p2) (setvar "cmdecho" 0) (setvar "blipmode" 0) (princ "\n请选择点") (setq &kw (ssget (list (cons 0 "POINT"))));;选择对象是点 (if (= &kw nil) (alert "\n对象不是点") ) (if (/= &kw nil) (setq &kw1 (entsel "\n请选择要对齐的直线或多段线或圆")) ) (if (= &kw1 nil) (alert "\n没有选择对齐的直线或多段线") ) (if (/= &kw1 nil) (progn (setq i 0) (setq &kw1 (vlax-ename->vla-object (car &kw1))) (repeat (sslength &kw) (setq &kw2 (entget (ssname &kw i))) (setq @p1 (cdr (assoc 10 &kw2))) (setq @p1 (vlax-curve-getclosestpointto &kw1 @p1));;取得点到直线最短距离 (setq @p1 (cons 10 @p1)) (setq @p2 (assoc 10 &kw2)) (setq &kw2 (subst @p1 @p2 &kw2)) (entmod &kw2);;点到直线 (setq i (+ i 1)) ) ) ) (prin1))(prompt "\n命令《C:MJL3》")(prin1)复制到记事本，以（lsp）后缀命名，加载autoLISP，快捷键(MJL3)就可以批量移动点了

1、点击快速入门下的开始绘制选项，
2、在工具栏绘图区域选择直线命令，
3、然后在作图区域绘图时，他可以画各个角度的线，
4、敲击键盘上的快捷键f8，
5、再进行绘制时，发现它只能绘制水平或竖直的垂直线，
6、也可以在左下角直接点击正交限制光标那个垂直符号，

工具/原料

电脑   CAD

方法/步骤

1、新建一个CAD文件。

2、点击直线工具，随便在绘图区域绘制一条直线。

3、再点击直线命令。

4、先在绘图区域点一下，确定垂直线的一点。

5、点击垂直命令。

6、点击前面一条直线，上面就会出现垂直的符号。

7、出现垂直符号的地方点击鼠标左键。绘制垂直线完成。

方法一：打开浩辰CAD软件，然后在菜单栏中找到并依次点击视图—平移—实时，即可进行移动视图。如下图所示：

方法二：在浩辰CAD软件中绘图时，如果每次都要用方法一来移动视图的话，那未免也太麻烦了。其实可以使用快捷命令来移动视图，快捷命令为：P，需要移动视图的时候直接输入P按回车键确认，即可移动视图。

方法三：除了以上两种方法，还有最方便的一种方法，那就是长按鼠标中键移动鼠标，即可移动视图。

彡丨流年6级2010-11-13偏移，快捷方式：＋空格（键）＋输入偏移距离＋空格＋左键选择要偏移的线条＋左键点击所要偏移线条一侧的空白处，搞定。垂直于斜线 *** 作，建议打开对象追踪，就可以输入角度了，必要时可以关闭正交。至于复制没看明白，你可以全部选中CTRL＋C，新建文件，在新建的世界里面CTRL+V然后左键随便点一下空白处，双击鼠标中键，即可全屏显示。同一世界复制的时后方便选择插入点，也就是复制和粘贴 *** 作时左键点击的位置。上班的时候偷着来的… 补充： 前面是：o＋空格键

---