各位有没有截断线的程序，发一个

sailorcwx · 发表于 2005-4-25 13:07:00

截断线原理时什么？不知道该怎么画，照样画葫芦画出来都不像。

lee50310 · 发表于 2021-11-27 09:37:13

本帖最后由 lee50310 于 2021-11-27 10:35 编辑

mokson 发表于 2021-11-27 08:41
什么插件都有，见识了。

新增一個管截斷面 cut.lsp

lee50310 · 发表于 2021-11-27 09:33:15

提供一個管截斷面 cut.lsp

執行指令:cut

lh869 · 发表于 2005-4-27 16:25:00

我这有一个，现上传，原文件如下： (defun c:888 (/ pt1 pt2 pt3 pt4 pt5 pt6 ang dis old old1)
(setq old1 (getvar "blipmode"))
(setvar "blipmode" 0)
(setq pt1 (getpoint "\nSelect the first point:"))
(setq pt2 (getpoint pt1 "\nSelect the second point:"))
(setq old (getvar "osmode"))
(setq dis (distance pt1 pt2))
(setq ang (angle pt1 pt2))
(setq pt1 (polar pt1 (+ pi ang) (* dis 0.15)))
(setq pt2 (polar pt2 ang (* dis 0.15)))
(setq pt3 (polar pt1 ang (* dis 0.6)))
(setq pt4 (polar pt3 (- ang (* (/ 80.0 180.0) pi)) (* dis 0.15)))
(setq pt5 (polar pt4 (+ ang (* (/ 80.0 180.0) pi)) (* dis 0.3)))
(setq pt6 (polar pt5 (- ang (* (/ 80.0 180.0) pi)) (* dis 0.15)))
(setvar "osmode" 0)
(command "_Pline" pt1 "w" 0 0 pt3 pt4 pt5 pt6 pt2 "")
(setvar "osmode" old)
(setvar "blipmode" old1)
) ；；end defun

sailorcwx · 发表于 2005-4-29 20:31:00

谢谢了

xj841000 · 发表于 2005-5-20 01:43:00

不错

578749467 · 发表于 2010-11-7 07:52:00

谢谢了

xhq1954425 · 发表于 2010-11-7 11:24:00

不错！下来学习！

yrgui · 发表于 2010-11-8 20:08:00

挺好的，留个记号

hbllw · 发表于 2010-11-8 23:54:00

几年的贴子居然被翻出来了

石井鱼 · 发表于 2019-7-19 10:45:46

挺好的

2548572928 · 发表于 2021-11-26 13:35:00

有没有绘制波浪截断线的程序

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

各位有没有截断线的程序，发一个

本帖子中包含更多资源