[求助]：请帮忙优化以下代码

sailorjt · 发表于 2005-4-4 13:58:10

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

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

×

我编的一个代码，想要实现的交点的断点，是通过在交点绘制一圆，然后TRIM圈内的想要断的线条。由于刚开始学，代码比较笨，过程中会出现圆，还会在命令行中出现新的图元名，希望高手通过修改后隐藏这些。另外，我的断口距离是固定的200，希望能够是默认200，也可修改的。
代码如下：

(defun C:bb ()
  (setq p1 (getpoint))
(command "circle" p1 200)
  (setq e1 (entlast))
  (setq p2 (getpoint))
  (command "trim" e1 "" p2 "")
  (entdel e1)
)

ljpnb · 发表于 2005-4-4 14:15:13

p2点是指那个点，如果选择一条要剪切的直线的话，你应该把这句
(setq p2 (getpoint)) 改成(setq ent (entsel)) 来得简单
另外最后加一句(princ)

sailorjt · 发表于 2005-4-4 17:18:04

谢谢

qjcpj · 发表于 2005-4-4 19:16:23

;;可利用break命令的f方式编写一个小程序，源代码如下：
;;以下程序不能断开"Circle"等实体。
(defun c:bb (/ os fr pt1 pt2)
   (setq os (getvar "osmode"))
   (setvar "osmode" 512)
   (setq pt1 (getpoint "\n拾取欲切断点所在的线段:"))
   (setvar "osmode" 32)
   (setq pt2 (getpoint "\n:拾取交叉点"))
   (setvar "osmode" 0)
   (command "break" pt1 "f" pt2 pt2)
   (setvar "osmode" os)
)
在AutoCAD 2005工具栏中break命令已可断开指定交点。

sailorjt · 发表于 2005-4-5 08:46:21

楼上，我要求的不是交叉点断开，而是要求断开一个口子，其实对于交叉点关系并不是很大。

qjcpj · 发表于 2005-4-5 12:35:13

仅断开一个口子使用AutoCAD内核命令Break就可以很方便地实现其功能，我个人觉得编写这样的程序意义不大！

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

[求助] [求助]：请帮忙优化以下代码

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

相关帖子