发一个打断交叉线的lisp，画流程图的时候会有用

cspring

LISP功能：画流程图的时候，一般当两条物料线交叉的时候需要断开其中一条线，加载LISP之后
输入PD（也可以更改为你喜欢的命令），
1：输入绘图比例S 如1:100则输入100
2：选择交叉点
3：选择需要断开的直线
注：默认断点为距离交叉点 3S mm距离
即1:100的图断点距离交叉点300
当然也可以自己去修改LISP成为你自己需要的数值

打开记事本，复制下面编码，保存为*.lsp格式，打开CAD，加载应用程序，选择该文件
如果希望每次打开CAD都能自动加载的话需要自定义界面步骤为：
1：CAD-工具-自定义-界面-LISP文件，右键加载LISP 选择保存过的*.LSP
2：保存自定义的界面

(defun c:pd ()
;;;    如果你不喜欢用PD命令，可以设置成你自己的命令
  *^C^C (progn
    (setq xxx 1)
    (setq myosmode (getvar "osmode"))
    (setq s (getreal "\n输入绘图比例1:<1>"))
    (if (null s)
      (setq s 1)
    )
   (while xxx
         (setq p0 (getpoint "\n选择交叉点:"))
          (if (null p0)
(progn
   (setq xxx nil)
  )
(progn
   (setq setline (entsel "\n选择一条直线"))
   (if (null setline)
     (setvar "osmode" myosmode)
     (progn
   (setq p01
   (cdr (assoc 10 (entget (car setline)))
;;;    获得所选直线的端点   
   )
   )
   
       (setq an1 (angle p0 p01))
       (setq an2 (angle p01 p0))
       (setq p1 (polar p0 an1 (* 3 s))
      p2 (polar p0 an2 (* 3 s))
       )
;;;    这里的3可以修改 成你需要的数值   
       (setvar "osmode" 0)
       (command "break" p0 "f" p1 p2)
       (setvar "osmode" myosmode)
     )
   )
)
      )
    )
    (prin1)
  )
)

gdszlwmg

好像不太好使（autocad2010)?

逍遥居士

呵呵，保存格式为txt，怎么改为lisp呢？

Horse

在菜单栏选择 工具——加载应用程序——添加，选择lisp程序然后加载，然后选择添加到启动组。

stlily

很不错的东西，我已经在用了！谢谢楼主！直接将后缀txt删掉再打上lsp就可以了！如果你看不到后缀名txt，就到文件夹选项中将“隐藏已知文件的扩展名”勾掉（不要打勾）！

ads0ads

贱人工具  有一个 交点打断呢
不知道和这个一样吧

Horse

贱人工具  有一个 交点打断呢
不知道和这个一样吧
ads0ads 发表于 2009-11-2 20:38

                               
登录/注册后可看大图

原理应该差不多吧，，贱人工具是把好多东西结合到一起了。满不错的东西

fl202

绘图比例没什么必要，可以编写的再简洁点的。

Horse

再浩辰里面有一个命令  cbk
这个可以设置打断的比例大小的，，这样就可以统一打断尺寸了

czpzx

楼主强大，CAD二次开发

wangyehui195

楼主强大，CAD二次开发

大洗衣盆

就是来学习这个的.

wangchen1971

楼主强大，CAD二次开发

chenhaijunsjy

说的好,谢谢指教!

tianshanxue

不错，学习一下

wg19861110

好东西哦，哈哈

floyd00

有可取之处滴

cppe

谢谢楼主分享

jmlcqp

我也想要lisp

benbenwyp

7b5a285417jx49XN7b5a285417jx49XN