无聊的更改

wen1235

  有时候就觉得按"P"键有点远,,就改了一下..圆角的命令,,

(Defun c:f5 ()
  (Setvar "Filletrad" 0.5)
  (Setvar "Pickbox" 8)
  (Ty_Fillet)
  (Setvar "Pickbox" 6)
  (princ)
)
(defun Ty_Fillet ()
  (setq princtyp "l")
  (setq i 0)
  (princ "\n*** 选择第一个对象或[多段线(D)/半径(R)/修剪(T)]: ")
  (Command "_Fillet")
  (While (= (Getvar "Cmdnames") "FILLET")
    (setq grdate (grread Nil 4 2))
    (setq grd (car grdate)
   pnt (cadr grdate)
    )
    (cond ((= pnt 100)
    (progn (Command)
    (setq princtyp "D")
     (princ "D")
    (getstring NIl)
    (princ "\n*** 选择二维多段线: ")
    (Command "_Fillet" "P")
    (setq i 1)
    )
   )
   ((= pnt 114)
    (progn (setq efr (getvar "FILLETRAD"))
    (setq efr1 (getreal (strcat "\n*** 输入圆角半径[" (rtos efr 2 2) "]:  ")))
    (if (= efr1 Nil)
      (Setq efr1 efr)
    )
    (setvar "FILLETRAD" efr1)
    (princ (strcat "\n*** 已设圆角半径为:" (rtos efr1 2 2)))
    (princ "\n*** 选择第一个对象或[多段线(D)/半径(R)/修剪(T)]: ")
    )
   )
   ((= grd 3)
    (if (= princtyp "l")
      (if (= i 1)
        (princ "\n*** 选择第二个对象: ")
      )
      (progn (princ "\n*** 选择二维多段线: "))
    )
    (setq z (nentselp (cadr grdate)))
    (if z
      (if (= i 1)
        (progn (Command pnt))
        (progn (Command) (Command "_Fillet" pnt) (princ "\n*** 选择第二个对象: ") (setq i 1))
      )
    )
   )
   ((or (equal pnt 32) (equal pnt 13) (equal grd 25)) (Command))
    )
  )
)

mandala

看了半天，还是有点佩服的，不就为了个P么，写了那么多。

xiaxiang

mandala 发表于 2011-4-2 21:25
看了半天，还是有点佩服的，不就为了个P么，写了那么多。

无聊的更改