cad一条竖直线如何上下平移

cad一条竖直线如何上下平移,第1张

可以从修改命令栏里选择移动命令,在选择直线,两者顺序可以颠倒,在把下方的正交打开,这样就可以上下平移了。如果想移动确切的数值,可以再对象追踪的情况下输入数值就可以了,O(∩_∩)O~

(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)就可以批量移动点了

你直接选择偏移工具,然后输入1300,点Y轴那根线,然后往右边点,就复制出一条偏移了1300的线,然后点这根复制了的线,再往右边点,又复制出了一条偏移了1300的线,继续这样偏移,直到回车确定即可

cad中 把一已知直线 平移到和一圆向切的位置上的方法步骤:

1、在绘制存在两个切点的公切圆时,要选择圆工具,而不是圆弧工具,如图所示。圆工具提供了两种画公切圆的方法。而圆弧工具只有一种切线、端点、方向的方法,可以绘制出一端相切的圆弧,并不符合画公切圆的要求。

2、已知公切圆半径时,可以直接使用切点、切点、半径的方法,绘制公切圆。输入c,空格,t,空格,分别在两个圆大概的切点位置点击一下,再输入公切圆半径,空格,绘制出公切圆。如图所示:

3、在菜单栏,点击标注-对齐,调用对齐标注工具,点击公切圆圆心和内切圆圆心,空格,标注出两圆心之间的距离d(OO1)。重复这一过程,标注出公切圆圆心和外切圆圆心之间的距离d(OO2)。

4、已知内切圆切点位置时,以内切圆圆心与切点连线为一条直角边,构建直角三角形HO1O2,并分成三种情况计算出公切圆半径。如图所示。其中,直角三角形HO1O2的三条边长通过对齐标注直接测量出来。


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/10253028.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-06
下一篇 2023-05-06

发表评论

登录后才能评论

评论列表(0条)

保存