AutoCAD中特定角度及长度捕捉的实现方法
(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")
最新相关文章- ·AutoCAD模拟空间与图纸空间简介
- ·AutoCAD单窗口同时打开多个图形文件
- ·AutoCAD控制实体显示的方法
- ·用AutoCAD绘制平面曲线与空间曲线
- ·用AutoCAD画粗实线的两种方法
- ·在中望CAD中绘图怎样自定义标题栏？
- ·AutoCAD中有关选择编辑的技巧
- ·AutoCAD三维建模实例：排球
- ·AutoCAD三维造型实例：制作直线沙发
- ·利用AutoCAD拉伸面命令绘制哑铃
- ·AutoCAD造型实例：十字形螺丝刀头
- ·AutoCAD造型实例：一字形螺丝刀头
- ·AutoCAD中关于阿波罗尼斯圆的讨论
- ·用AutoCAD五分钟内完成三维足球建模
- ·AutoCAD三维造型：弹簧的简单画法
- ·AutoCAD滚珠轴承建模全过程
发表评论