[转贴]：AutoCAD中特定角度及长度捕捉的实现方法

Free-Lancer

http://www.gdin.edu.cn/cad/context/skill_10.htm
[iframe h=800]http://www.gdin.edu.cn/cad/context/skill_10.htm[/iframe]
测试没通过
[php]
;; OS.LSP源程序
;;err(),出错处理子程序
;;;;主程序
(defun c:os (/ b       b1      b2      c       pstart  pend    pframe
               plast   ang2    　      dist    scmd    ccoords olderr
               cosmode a       an0     ang2    c1      ccoords cosmode
               dist    err     len0    olderr  pause   pend
               polde   pstart  scmd
              )
;;; an0 len0 are defined out program
  (defun err (msg)
    (if        (/= msg "Function cancelled")
      (princ (strcat "\nError:" msg))        ;打印错误内容
    )                                        ;for if
    (setq *error* olderr)
    (setvar "cmdecho" scmd)
    (setvar "osmode" cosmode)
    (setvar "coords" ccoords)
    (princ "n\n\t --多谢使用角度捕捉2.0版,程序非正常结束--!\n")
    (princ)
    　
  )                                        ;for defun err
  ;; ant(),设定捕捉角度子程序
  (defun ant (/ ang0 ang1)
    (setq ang0 (* an0 (/ 180 pi)))
    (princ (strcat "\n请输入捕捉角度:<" (rtos ang0) ">_"))
    (INITGET 4)
    (setq ang1 (getreal))
    (if        (not (null ang1))
      (setq an0 (* ang1 (/ pi 180)))
    )
    (princ "\n F2/F3/F4/F5/ESC/Return /下一点:")
  )                                        ;for defun ant
  ;; leng(),设定捕捉长度距离子程序
  (defun leng (/ leng0 leng1)
    (setq leng0 len0)
    (princ (strcat "\n 请输入捕捉长度距离:<" (rtos leng0) ">_"))
    (INITGET 4)
    (setq leng1 (getreal))
    (if        (not (null leng1))
      (setq len0 leng1)
    )
    (princ "\n F2/F3/F4/F5/ESC/Return /下一点:")
  )                                        ;for defun lent
  ;; field(),判断十字光标所在区间,并投影到相应的捕捉角度线上
  (defun field (ps pe ang0 / ang1 n)
    (setq ang1 (angle ps pe))
    (setq n (fix (+ (/ ang1 ang0) 0.5)))
    (setq ang2 (* ang0 n))
  )                                        ;for defun
  ;; endp(), 十字光标投影到相应的捕捉角度上后,以用户设定的长度
  ;; 捕捉计算落点
  (defun endp (ps pe ang0 / p1 p2 p3 p4 dis)
    (setq p1                    ps
          　                    p2
          (polar ps ang0 1)
                            p3
          pe
                            　
          p4                    (polar pe (+ ang0 (/ pi 2)) 1)
    )
    (setq pend (inters p1 p2 p3 p4 nil))
    (setq dis (distance ps pe))
    (if        (/ = len0 0)
      (setq dist (* (fix (+ (/ dis len0) 0.5)) len0))
      　                                ;else
      (setq dist dis)

      　
    )                                        ;for if
    (setq pend (polar ps ang0 dist))
  )                                        ;for defun endp
  ;; drag(), 对上一次显示的拖曳线进行"或"操作,使其从屏幕上消失,
  ;; 并绘制下一次拖曳线
  (defun drag0 (pold1 pold2 pold3 /)
    (if        (/ = b2 4)
      (progn
        (grdraw pold1 pold2 -1 0)
        (grdraw pold2 pold3 -1 0)
      )
    )                                        ;for if
    (grdraw pstart pend -1 0)
    (grdraw pend pframe -1 0)
  )                                        ;for defun drag
  ;; coord(), 在屏幕的最上一行的坐标栏显示长度和角度
  (defun coord (/ str leng1 leng0 ang0)
    (setq ang0 (* ang2 (/ 180 pi)))
    (setq str (strcat (rtos dist) ">" (rtos ang0)))
    (grtext -2 str)
  )                                        ;for defun coord
  ;; init(), 对程序进行初始化
  (defun init (/)
    (setq scmd (getvar "cmdecho"))        ;保留原命令回显方式
    (setq ccoords (getvar "coords"))        ;保留原坐标显示方式
    (setq cosmode (getvar "osmode"))
    (setq olderr  *error*
          *error* err
    )                                        ;出错处理
    (setvar "cmdecho" 0)                ;不回显
    (setvar "coords" 0)                        ;不显示坐标
    (setvar "osmode" 0)                        ;取消捕捉  
    (setq b  0
          b1 0
          c  '(0 0)
    )
    (setq pstart (getpoint "\n 请输入直线第一点:"))
    (if        (or (null an0) (< an0 0) (not (numberp an0)))
      (progn
        (setq an0 (/ pi 6))
        (ant)
      )
    )                                        ; for if
    (if        (or (null len0) (< len0 0) (not (numberp len0)))
      (progn
        (setq len0 1)
        (leng)
      )
    )                                        ;for if
    (if        (null len0)
      (leng)
    )
    (princ "\n F2/F3/F4/F5/ESC/Return /下一点::")
    (setq a (grread 2 nil))
    (setq pframe (cadr a))
    (field pstart pframe an0)
    (endp pstart pframe ang2)
    (grdraw pstart pend -1 0)
    (grdraw pend pframe -1 0)
    (setq plast        pframe
          polde        pend
    )
    (setq b (car a))
  )                                        ;for defun init
  ;; home(), 设置退出程序的控制变量
  (defun home (/)
    (setq b 3)
    (setq b1 1)
  )                                        ;for defun home
  ;; pull(), 接受用户输入控制子程序
  (defun pull (/)
    (setq b1 0)
    (while (/= b 3)
      (progn
        (setq a (grread 2 nil))
        (coord)
        (if (and (= b 2) (= b2 4))
          (setq b 4)
        )
        (setq b2 b)
        (setq b (car a))
        (cond
          ((or (= b 5) (= b 12))        ;只移动十字光标时
           (progn
             (setq pframe (cadr a))
             (field pstart pframe an0)
             (endp pstart pframe ang2)
             (if (>= (distance plast pframe) 0.1)
               (progn
                 (drag0 pstart polde plast)
                 (setq plast pframe
                       polde pend
                 )
               )                        ;for progn
             )                                ;for if
           )                                ;for progn
          )                                ;for cond1
          ((= b 3)                        ;用鼠标在屏幕上点取一点时
           (progn
             (setq pframe (cadr a))
             (field pstart pframe an0)
             (endp pstart pframe ang2)
             (if (>= (distance plast pframe) 0.1)
               (progn
                 (grdraw pstart polde -1 0)
                 (setq plast pframe
                       polde pend
                 )
               )                        ;for progn
             )                                ;for if
           )                                ;for progn
          )                                ;for cond1
          ((= b 2)                        ;键盘输入
           (progn
             (setq c1 (cadr a))
             (cond ((= c1 138) (ant))        ;F2
                   ((= c1 139) (leng))        ;F3
                   ((= c1 140)                ;F4
                    (progn
                      (setq b2 4)
                      (command "zoom" "0.7x")
                    )
                   )                        ;for (= c1 140)
                   ((= c1 141)                ;F5
                    (progn
                      (setq b2 4)
                      (command "zoom" "1.4x")
                    )
                   )                        ;for (= c1 141)
                   ((= c1 13) (home))
                   ((= c1 27) (home))
                   (T (princ "\n 未定义的键"))
             )                                ;for cond
             (princ "\n F2/F3/F4/F5/ESC/Return /下一点:")
           )                                ;for progn
          )                                ;for (cond (= b 2))
          ((= b 4)                        ;点取下拉菜单时
           (progn
             (setq c1 (cadr a))
             (princ "\n")
             (cond ((= c1 6005)
                    (progn
                      (command "zoom" "w")
                      (princ "\n 第一角点:")
                      (command pause)
                      (princ "\n 第二角点:")
                      (command pause)
                    )
                   )                        ;for (= c1 6005)
                   ((= c1 6007)
                    (command "zoom" "p")
                   )
                   ((= c1 6008)
                    (command "zoom" "a")
                   )
                   ((= c1 6011)
                    (progn
                      (command "pan")
                      (princ "\n 第一参考点:")
                      (command pause)
                      (princ "\n 第二参考点:")
                      (command pause)
                    )
                   )
             )                                ;for (= c1 6011)
             ;;else
             (T (princ "\n 未定义的菜单"))
           )                                ;for cond
           (princ "\n F2/F3/F4/F5/ESC/Return /下一点:")
          )                                ;FOR PROGN
        )                                ;for (cond (= b 4))
        (T (home))                        ;for else
      )                                        ;for cond
    )                                        ;for progn
  )                                        ;for while
                                        ;for defun pull
  ;; draw() , 绘制直线子程序
  (defun draw (/)
    (while (/= b1 1)
      (progn
        (if (= b 3)
          (progn
            (command "line" pstart pend "")
            (princ "\n F2/F3/F4/F5/ESC/Return /下一点:")
            (setq b  0
                  b1 1
            )
            (setq pstart pend)
          )                                ;for progn
        )                                ; for if
        (pull)
      )                                        ;for progn
    )                                        ;for while
    (grdraw pstart pend -1 0)
    (grdraw pend pframe -1 0)
  )
  (init)
  (draw)
  (princ "\n")
  (command "redraw")
  (setq *error* olderr)
  (setvar "cmdecho" scmd)
  (setvar "osmode" cosmode)
  (setvar "coords" ccoords)
  (princ "\n\n\t ------角度捕捉2.0版------\n")
  (princ "\n\n\t**宁波大学建筑设计研究院--程建华,1996**\n")
  (princ)
)                                        ;for defun os
[/php]

陌生人

测试没通过，那贴来的意思是.....？

Free-Lancer

最初由 陌生人 发布
[B]测试没通过，那贴来的意思是.....？ [/B]

就当多学一种方法了，以长老的功力，自己写出来也不在话下。

e2002

好像是我最初上网那段时间看到的此文,当时还没有2000版,从中学习到很多....
当然,现在的200x版的PolarSnap已经完成了这个任务

hi71400

4楼的！PolarSnap 在哪里？

shisj

就是极轴追踪
创建或修改对象时，可以使用“极轴追踪”以显示由指定的极轴角度所定义的临时对齐路径。可以使用 PolarSnap&#8482; 沿对齐路径按指定距离进行捕捉。例如，在下图中绘制一条从点 1 到点 2 的两个单位的直线，然后绘制一条到点 3 的两个单位的直线，并与第一条直线成 45 度角。如果打开了 45 度极轴角增量，当光标跨过 0 度或 45 度角时，AutoCAD 将显示对齐路径和工具栏提示。当光标从该角度移开时，对齐路径和工具栏提示消失。



光标移动时，如果接近极轴角，将显示对齐路径和工具栏提示。默认角度测量值为 90 度。可以使用对齐路径和工具栏提示绘制对象。与“交点”或“外观交点”对象捕捉一起使用极轴追踪，可以找出极轴对齐路径与其他对象的交点。

注意  “正交”模式将光标限制在水平或垂直（正交）轴上。因为不能同时打开“正交”模式和极轴追踪，因此“正交”模式打开时，AutoCAD 会关闭极轴追踪。如果再次打开极轴追踪，AutoCAD 将关闭“正交”模式。同样，如果打开“极轴捕捉”，栅格捕捉将自动关闭。

指定极轴角度（极轴追踪）
可以使用极轴追踪沿着 90、60、45、30、22.5、18、15、10 和 5 度的极轴角增量进行追踪，也可以指定其他角度。以下图例显示了当极轴角增量设置为 30 度，光标移动 90 度时显示的对齐路径。



0 方向取决于在“图形单位”对话框 ( UNITS) 中设置的角度。捕捉的方向（顺时针或逆时针）取决于设置测量单位时指定的单位方向。

指定极轴距离（极轴捕捉）
使用“极轴捕捉”，光标将按指定的极轴距离增量进行移动。例如，如果指定 4 个单位的长度，光标将自指定的第一点捕捉 0、4、8、12、16 长度，等等。移动光标时，工具栏提示将显示最接近的极轴捕捉增量。必须在“极轴追踪”和“捕捉”模式（设置为“极轴捕捉”）同时打开的情况下，才能将点输入限制为极轴距离。