(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)就可以批量移动点了
你直接选择偏移工具,然后输入1300,点Y轴那根线,然后往右边点,就复制出一条偏移了1300的线,然后点这根复制了的线,再往右边点,又复制出了一条偏移了1300的线,继续这样偏移,直到回车确定即可cad中 把一已知直线 平移到和一圆向切的位置上的方法步骤:
1、在绘制存在两个切点的公切圆时,要选择圆工具,而不是圆弧工具,如图所示。圆工具提供了两种画公切圆的方法。而圆弧工具只有一种切线、端点、方向的方法,可以绘制出一端相切的圆弧,并不符合画公切圆的要求。
2、已知公切圆半径时,可以直接使用切点、切点、半径的方法,绘制公切圆。输入c,空格,t,空格,分别在两个圆大概的切点位置点击一下,再输入公切圆半径,空格,绘制出公切圆。如图所示:
3、在菜单栏,点击标注-对齐,调用对齐标注工具,点击公切圆圆心和内切圆圆心,空格,标注出两圆心之间的距离d(OO1)。重复这一过程,标注出公切圆圆心和外切圆圆心之间的距离d(OO2)。
4、已知内切圆切点位置时,以内切圆圆心与切点连线为一条直角边,构建直角三角形HO1O2,并分成三种情况计算出公切圆半径。如图所示。其中,直角三角形HO1O2的三条边长通过对齐标注直接测量出来。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)