AutoCAD中特定角度及长度捕捉的实现方法

核心提示： 落点落在某一捕捉角度线上时，还得落在捕捉长度L 的整数倍的点(称为捕捉点)上，AutoCAD中特定角度及长度捕捉的实现方法(2)，还是针对图1，其垂点必然处于某两个捕捉点A与B之间，本程序中嵌入了窗口放缩功能模块，通过点取下拉菜单中窗口及漫游子菜单，设A与B的中点为C，当D处于A与C之间时

落点落在某一捕捉角度线上时，还得落在捕捉长度L 的整数倍的点(称为捕捉点)上，还是针对图1，其垂点必然处于某两个捕捉点A与B之间，设A与B的中点为C，当D处于A与C之间时，落点应为A；当D处于C与B之间时，落点应为B (见图1)。其中：

-- --

OA = n XL ; OB = (n + 1) XL

n: 非负整数。

L: 捕捉长度。 此时，程序通过一定的操作将在屏幕的最上面的坐标提示行准确地显示落点相对基准点的偏移长度和偏移角度。用户可以滑动鼠标准确捕捉到目标点。

至此，已实现某些特定角度及长度的捕捉。为了满足在程序执行过程中能随时更改捕捉角度和捕捉长度的需要，本程序还增加了相应的模块；另外，本程序中嵌入了窗口放缩功能模块，通过点取下拉菜单中窗口及漫游子菜单，方便了各种作图的需要。

三、源程序清单

;; OS.LSP源程序
;;err(),出错处理子程序
(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 drag ( 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
(drag 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)
) ;for defun draw

;;;;主程序

(defun c:os ( / b b1 b2 c pstart pend pframe plast ang2
dist scmd ccoords olderr cosmode )
;;; an0 len0 are defined out program
(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