为什么我编圆角的时候提示无法自身圆角?是选择集还是哪里错了?求指点

xtdwynij

我在编这个简单的参数化绘图时,有的时候会提示无法自身圆角.这是怎么一回事?下面是我附上的代码和图片~请师兄前辈们指点一下~!感激!!!!

(defun c:ct ( / *1yy wwabc gdx apt1 aaccdd 1ss  apt2 apt3 apt3-6 apt4 apt4-5 apt4-5-1 apt5 apt6 apt6-7 bdist2 bdist3 bdist4 ct    zent)
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq ct (getreal "\n请输入插口的值[20]:"))
  (if (null ct) (setq ct 20))
  (setq *1yy 200 wwabc 50 gdx 1)
  (setq apt1 (getpoint "\n请指定一个点:"))  ;这是一个插入点  ;这是左插入点
  (setq apt2 (polar apt1 (/ pi 2) (+ wwabc gdx)))
  (cond
     ((< gdx 1) (setq bdist2 0.5))
     ((= gdx 1) (setq bdist2 1.0))
  )
  (if (<= wwabc 25.0) (setq bdist3 8) (setq bdist3 10))
  (setq apt3 (polar apt2 0 bdist2))
  (setq apt6 (polar apt3 (/ pi 2) (- ct gdx)))
  (setq apt3-6 (polar apt3 (/ pi 2) (-(/(distance apt3 apt6) 2) 1))) ;此点为倒圆角的点 ;如果作为子函数调用的话就会提示无法自身圆角
  (setq apt4 (polar apt2 0 bdist3))                                  ;请指点
  (setq apt4-5 (polar apt4 (/ pi -2) gdx))  ;此为压线点
  (setq apt5 (polar apt4-5 (/ pi -2) 0.3))
  (if (<= ct 15.0) (progn
    (setq bdist4 (- *1yy bdist2 bdist2 7)) (setq aaccdd 7))
                  (progn
                  (setq bdist4 (- *1yy bdist2 bdist2 10)) (setq aaccdd 10))
  )
  (setq apt6-7 (polar apt6 0 bdist4))
  (setq apt4-5-1 (polar apt4-5 0 (- *1yy bdist3 bdist3)))
  (command "pline" apt1 apt2 apt4 apt5 "")
  (setq zent (entlast))
  (command "line" apt4-5 apt4-5-1 "" "line" apt3 apt6 apt6-7 "" "zoom" "a")
  (command "fillet" "r" aaccdd )
  (command "fillet" apt3-6 (polar apt6 0 (/ (distance apt6 apt6-7)2)))
  (setq 1ss (ssget "c" apt3 apt6))
  (command "mirror" zent 1ss "" (polar apt1 0 (/ *1yy 2.0)) (polar (polar apt1 0 (/ *1yy 2.0)) (/ pi 2) 10) "n")
  )

炫翔

圆角太大，或者是圆角自身倒圆角

xtdwynij

炫翔 发表于 2013-4-17 15:55

                               
登录/注册后可看大图

圆角太大，或者是圆角自身倒圆角

圆角不会太大的!假如是圆角自身圆角是什么意思啊?提示无法自身圆角.说的就是圆角自身倒圆角吧?开心版主指点下吧!~给个例子行不?

xtdwynij

;以下是插头部分
(defun ct (*1yy wwabc gdx apt1 / aaccdd 1ss  apt2 apt3 apt3-6 apt4 apt4-5 apt4-5-1 apt5 apt6 apt6-7 bdist2 bdist3 bdist4 ct    zent)
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq ct (getreal "\n请输入插口的值[20]:"))
  (if (null ct) (setq ct 20))
  (setq apt2 (polar apt1 (/ pi 2) (+ wwabc gdx)))
  (cond
     ((< gdx 1) (setq bdist2 0.5))
     ((= gdx 1) (setq bdist2 1.0))
  )
  (if (<= wwabc 25.0) (setq bdist3 8) (setq bdist3 10))
  (setq apt3 (polar apt2 0 bdist2))
  (setq apt6 (polar apt3 (/ pi 2) (- ct gdx)))
  (setq apt3-6 (polar apt3 (/ pi 2) (-(/(distance apt3 apt6) 2) 1))) ;此点为倒圆角的点 提示无法自身圆角
  (setq apt4 (polar apt2 0 bdist3))
  (setq apt4-5 (polar apt4 (/ pi -2) gdx))  ;此为压线点
  (setq apt5 (polar apt4-5 (/ pi -2) 0.3))
  (if (<= ct 15.0) (progn
                  (setq bdist4 (- *1yy bdist2 bdist2 7)) (setq aaccdd 7))
                  (progn
                  (setq bdist4 (- *1yy bdist2 bdist2 10)) (setq aaccdd 10))
  )
  (setq apt6-7 (polar apt6 0 bdist4))
  (setq apt4-5-1 (polar apt4-5 0 (- *1yy bdist3 bdist3)))
  (command "pline" apt1 apt2 apt4 apt5 "")
  (setq zent (entlast))
  (command "line" apt4-5 apt4-5-1 "" "line" apt3 apt6 apt6-7 "" "zoom" "a")
  (command "fillet" "r" aaccdd )
  (command "fillet" apt3-6 (polar apt6 0 (/ (distance apt6 apt6-7)2)))
  (setq 1ss (ssget "c" apt3 apt6))
  (command "mirror" zent 1ss "" (polar apt1 0 (/ *1yy 2.0)) (polar (polar apt1 0 (/ *1yy 2.0)) (/ pi 2) 10) "n")
  )

;=================
  (defun c:kdz ( / *yy  hh nw  pt1 pt3 pt10 pt11 pt12 pt1-6 pt2 pt2-3  pt4 pt5 pt6 pt7 pt8 pt9  ww1 pt2-3-1 pt4-5)
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq yy 300 ww 150 hh 400 nw 20)
   (setq gdx (getreal "\n请输入高低输的值:"))
  (cond
     ((< gdx 1) (setq *yy 0.5))
     ((= gdx 1) (setq *yy 1.0))
     ((> gdx 1) (setq *yy 2.0))
    )
  (setq ww1 (- ww *yy))
  (setq pt1 (getpoint "请指定一个点:")) ;为插头左插入点
  (setq pt2 (polar pt1 0 yy))  
  (setq pt2-3 (polar pt2 (/ pi -2) gdx)) ;此插头右插入点
  (setq pt3 (polar pt2-3 0 ww))
  (setq pt2-3-1 (polar pt3 pi gdx));此点为耳朵收位处左边插入点
  (setq pt4 (polar pt3 0 yy))
  (setq pt4-5 (polar pt4 0 gdx));此点为耳朵收位处右边插入点
  (setq pt5 (polar pt4 0 ww1))
  (setq pt6 (polar (polar pt1 pi nw) (/ pi -2) 5))
  (command "line" pt1 pt2 "" "line" pt2-3 pt2-3-1 pt4-5 pt5 "")
  (setq pt1-6 (polar pt1 (/ pi -2) gdx))  ;此点为子函数参数调用
  (command "line" pt6 pt1-6 "")
  (setq pt7 (polar pt1-6 (/ pi -2) (- hh gdx))) ;此处为插底左边插入点
  (setq pt8 (polar pt2-3 (/ pi -2) (- hh gdx)))
  (setq pt9 (polar pt3 (/ pi -2) (- hh gdx)))
  (setq pt10 (polar pt4 (/ pi -2) (- hh gdx)))
  (setq pt11 (polar pt5 (/ pi -2) (- hh gdx))) ;此处为插底右边插入点
  (command "line" pt1-6 pt7 "")
  (command "line" pt2-3 pt8 "")
  (command "line" pt3 pt9 "")
  (command "line" pt4 pt10 "")
  (command "line" pt5 pt11 "")
  (setq pt12 (polar (polar pt7 pi nw) (/ pi 2) 4))
  (command "line" pt6 pt12 pt7 "")
  (command "line" pt7 pt8 pt9 pt10 pt11 "")
  (ct yy ww gdx pt1)
  (setvar "osmode" 3)
  (setvar "cmdecho" 1)
  
)
这是全部源码!

炫翔

两条线不在一个水平面上
矩形与直线等图元结合

都不能倒圆角

炫翔

程序倒角的方法：
(command "fillet" (list 图元名1 '(0 200)) (list 图元名2 '(20 100)))

xtdwynij

嗯 (command "fillet" 图元名1 图元名2) (command "fillet" (ssget "c" pt1 pt2))