[建议]：xyp1964的test224（打断扩展）可否改进

[复制链接]

ewenhui

发表于 2006-6-1 21:26:36 | 显示全部楼层 |阅读模式

【广而告之】积分规则、D豆获取攻略 窝窝空间装扮攻略

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

您需要登录才可以下载或查看，没有账号？立即注册

可否在不退出的情况下，修改缺口宽度？
[php];;;打断扩展
;;;任意一点打断，点选了线中点，就在中点处开口，并且可控制缺口宽度
(defun c:test224 ()
  (CMDLA0)
  (setq no1 (UREAL 7 "" "\n输入打断距离" no1))
  (while (setq pt (getpoint "\n选择要打断的点<退出> : "))
(setq os  (getvar "osmode")
   pt1 (osnap pt "near")
   s1  (ssname (ssget pt1) 0)
   rad (pt-ang s1 pt1)
   pt2 (polar pt1 rad (* (/ no1 2.0) -1.0))
   pt3 (polar pt1 rad (/ no1 2.0))
)
(setvar "osmode" 0)
(command "break" (list s1 pt1) "f" pt2 pt3)
(setvar "osmode" os)
  )
  (CMDLA1)
)
[/php]

打断, 中点

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；

如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；

如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！

使用道具举报

返回列表发新帖

账号		自动登录	找回密码
密码			立即注册