设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 41|回复: 1

[求助] 线圆打缺口有问题,

[复制链接]
发表于 7 天前 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 吴外安放 于 2020-10-16 18:28 编辑

会出现错误求改正   参数类型错误: lselsetp nil
;打缺口
(defun c:tt ()
  (setvar "osmode" 0)
  (setvar "cmdecho" 0)
  (setq qn (getreal "\n缺口数量:<1>"))
        (if (= qn nil)
          (setq qn 1))
  (setq qk (getreal "\n缺口宽度<4>"))
        (if (= qk nil)
          (setq qk 4))
  (prompt "\n选择线")
  (setq ss (ssget))
  (setq ab (ssadd))
  (setq i 0)
  (while (< i (sslength ss))
    (setq aab (ssname ss i))
    (setq bb (cdr (assoc 0 (entget aab))))

    (cond ((= bb "LINE")
     (setq st (cdr (assoc 11 (entget aab))))
     (setq qed (cdr (assoc 10 (entget aab))))
     (setq ad (distance st qed)
     dd (angle st qed)
     de (angle qed st)
     )


     (cond ((= qn 1)
      (setq aj (/ (- ad qk) 2.0))
     )
     )
     (cond ((> qn 1)
                  (setq ej (/(* (/ (- ad (* qk qn)) (+ qn 1)) 2) 3))
      (setq aj ej)
     )
     )
     (setq xa (polar st dd aj))
     (setq j 1)
     (while (<= j qn)
       (cond ((>= j 2)
        (setq
          aj (/ (- (- ad (* ej 2)) (* qk qn)) (- qn 1))
        )
        (setq
          xa (polar z2 dd aj)
        )
       )
       )
       (setq j (+ j 1))
       (setq
         z1 (polar xa dd 0)
         z2 (polar xa dd qk)
       )
       (command "break" z1 z2)
     )
    )
    )
    (setq i (+ 1 i))

    )
  (setvar "cmdecho" 1)
  (setvar "osmode" 11)
  (princ)
  )




QQ图片20201016144615.png
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

点击这里给我发消息

发表于 7 天前 | 显示全部楼层
把“(while (sslength ss)”改为“(while (< i (sslength ss))”
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-10-23 18:58 , Processed in 0.062451 second(s), 27 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表