cspring 发表于 2009-10-5 19:24:42

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


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 发表于 2009-10-6 09:06:01

好像不太好使（autocad2010)?

逍遥居士 发表于 2009-10-6 10:07:02

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

Horse 发表于 2009-10-6 23:26:08

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

stlily 发表于 2009-10-27 11:49:31

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

ads0ads 发表于 2009-11-2 20:38:27

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

Horse 发表于 2009-11-2 20:53:18

贱人工具有一个 交点打断呢
不知道和这个一样吧
ads0ads 发表于 2009-11-2 20:38 http://meng.horse/images/common/back.gif

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

fl202 发表于 2010-10-13 13:43:34

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

Horse 发表于 2010-10-13 13:45:22

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

czpzx 发表于 2010-10-22 10:16:02

楼主强大，CAD二次开发

wangyehui195 发表于 2010-11-12 15:40:37

楼主强大，CAD二次开发

大洗衣盆 发表于 2010-11-12 15:56:43

就是来学习这个的.

wangchen1971 发表于 2010-11-13 10:54:45

楼主强大，CAD二次开发

chenhaijunsjy 发表于 2010-11-13 11:13:23

说的好,谢谢指教!

tianshanxue 发表于 2010-11-16 11:18:49

不错，学习一下

wg19861110 发表于 2010-12-11 11:21:14

好东西哦，哈哈

floyd00 发表于 2010-12-16 14:30:22

有可取之处滴

cppe 发表于 2010-12-20 09:25:32

谢谢楼主分享

jmlcqp 发表于 2010-12-23 09:56:52

我也想要lisp

benbenwyp 发表于 2010-12-23 16:16:30

7b5a285417jx49XN7b5a285417jx49XN
页: [1] 2
查看完整版本: 发一个打断交叉线的lisp，画流程图的时候会有用