现在开始新设一个CAD栏目,用来记载我使用CAD的一些(很肤浅的)心得。
CASS里有个很好用的功能就是三点画矩形,但是单纯CAD里面就没那么容易,虽然CAD无所不能,但是作为半桶水的我没那个能力研究透彻。所以用到了这样一个手工制作的插件:
;;;三点画矩形(连续绘制模式)
(defun C:sdhjx (/ PT1 PT2 ANG)
(while (and (setq PT1 (getpoint “\nSpecify first point:”))
(setq PT2 (getpoint PT1 “\nSpecify secondly point:”)
)
)
(progn
(setq ANG (+ (angle PT1 PT2) (* 0.5 pi))
PT3 (polar PT1 ANG 10)
)
(command “_.ucs” “n” “3” PT1 PT2 PT3)
(command “_.rectang” “non” ‘(0 0 0) PAUSE)
(command “_.ucs” “P”)
)
)
)
保存成.lsp文件后,在CAD里加载它(以CAD2012为例):
我们看上面的代码可以得知呼出的快捷键就是”sdhjx”,三点画矩形的拼音缩写,此一处可根据自我习惯更改,只要你自己能记住即可。
之后用快捷键调用吧,找三个点画个矩形如何,开始爽吧。
