[求助]倒角的问题

ygrzz

哎，新手上路真难~~错，错，错。。。。不知道怎么了
(defun c:f ()
  (setq ss (ssget))
  (while (setq s2 (cadr ss))
    (setq s1 (car ss))
    (setq ss (cdr ss))
    (COMMAND "fillet" "r" "0" "fillet" s1 s2)
  )
  (princ)
)
(defun c:f ()
  (setq ss (ssget))
  (setq len (sslength ss))
  (setq I 0)
  (while (< (1+ I) len)
    (setq ent1 (ssname I ss))
    (setq ent2 (ssname (1+ I) ss))
    (setq I (1+ I))
    (COMMAND "fillet" "r" "0" "fillet" ent1 ent2)
  )
  (princ)
)

mccad

双元表你听说过吗？如果没有，建议先看看帮助或书或在论坛上搜索相关的信息。

新手就是容易在这上面出问题。

ygrzz

请问必须用双元表来响应一些编辑命令的选择对象的提示吗
如果用ssget来选择对象再去响应
是不是很复杂啊

mccad

有些命令在选择对象时与选择的位置有关，不同的位置会有不同的执行效果。这样的命令，就必须使用双元表，不然程序就会有问题。

ygrzz

看来要用entsel了，谢谢老大

f5612140

先找出錯的地方吧 

(setq ent1 (ssname I ss))
    (setq ent2 (ssname (1+ I) ss))
->

 (setq ent1 (ssname ss I))
    (setq ent2 (ssname ss (1+ I)))

ygrzz

哈哈~~成了，注意，如果第1边与末尾边也要倒角得最后再次选第一边
(defun c:f ( / en1 en2 rad s1 s2 ss)
  (setvar "cmdecho" 0)
  (setq rad (getreal "\n指定倒圆角半径R:< 0 > "))
  (if (null rad)
    (setq rad 0)
  )
  (setq en1 (entsel "依次点选倒角边"))
  (setq ss (list en1))
  (while (setq en2 (entsel))
    (setq ss (cons en2 ss))
  )
  (while (setq s2 (cadr ss))
    (setq s1 (car ss))
    (setq ss (cdr ss))
    (COMMAND "fillet" "r" rad "fillet" s1 s2)
  )
  (princ)
)

ygrzz

(defun c:f (/ en1 en2 rad s1 s2 ss)
  (setvar "cmdecho" 0)
  (setq rad (getreal "\n指定倒圆角半径R:< 0 > "))
  (if (null rad)
    (setq rad 0)
  )
  (if (setq en1 (entsel "依次选取倒角边...<"))
    (progn
      (redraw (car en1) 3)
      (setq ss (list en1))
      (while (setq en2 (entsel))
        (redraw (car en2) 3)
        (setq ss (cons en2 ss))
      )
      (if (null en2)
        (redraw (car en1) 4)
      )
      (while (setq s2 (cadr ss))
        (setq s1 (car ss))
        (setq ss (cdr ss))
        (COMMAND "fillet" "r" rad "fillet" s1 s2)
      )
    )
  )
  (princ)
)