这不是你应该尝试手动完成的事情(用眼睛阅读),你正在使用一个功能强大的工具,它可以为你完成所有的困难计算。如果有两个圆,并且要绘制一个较大的圆,该圆与具有特定半径的两个较小圆相切,请尝试以下操作:
- (defun c:CRR ( / *error* oldCmdecho)
- (princ "\rCIRCLE: TANG->TANG->RADIUS ")
- (defun *error* (msg)
- (and oldCmdecho (setvar 'cmdecho oldCmdecho))
- (cond ((not msg)) ; Normal exit
- ((member msg '("Function cancelled" "quit / exit abort"))) ; <esc> or (quit)
- ((princ (strcat "\n** Error: " msg " ** ")))) ; Fatal error, display it
- (princ))
- (and (setq oldCmdecho (getvar 'cmdecho)) (setvar 'cmdecho 0))
- (command "._circle" "ttr" pause pause pause)
- (setvar 'cmdecho oldCmdecho)
- (princ))
:眨眼:
杰克给了你一个很好的分层描述。。。但是,如果/当你开始这个问题的新思路时,一定要包括你在哪个行业工作等信息(这可能会有所不同)。 |