更改孔径

szliaolj

小弟我做了一个LSP用来更改为指定圆孔孔径,在CAD2000内可以用,而在 CAD2004内却不能用,望各位大侠指点迷精

(DEFUN C:ffF()
    (setvar "cmdecho" 0)
  (PROMPT"\n==== Change Hole --- HEGENG ==== ")
  (if (or (= fa nil )(= fa "" ))
    (setq  fa 0  )
  )
  (setq nnt fa )
  (SETQ FA (GETREAL (strcat "\n Input <"(rtos fa )">: ")))
  (if (or (= fa nil)  (= fa "" ))
    (setq fa nnt )
  )
  (SETQ NT (/ FA 2))
  (OFFSETD)
  (PRINC)
)

zml84

你的代码片段不完整啊？
请补充(OFFSETD)的定义。

lijiao

上面这段没有问题，你的OFFSETD函数呢？

szliaolj

哦,我知道了,多谢大侠!!!!!!

Andyhon

You may ref. this one

http://www.turvill.com/t2/free_stuff/chrad.lsp