社区 › Auto Lisp › 绘制圆柱折断线

liuhaixin88 发表于 2022-7-5 23:10:03

绘制圆柱折断线

 
拿起三点，画圆柱折线，论坛有这个代码吗？

ReMark 发表于 2022-7-5 23:13:40

我不知道。你试过搜索吗？我认为这个话题之前已经出现过，但很可能使用了不同的术语。试试“管道末端”。

liuhaixin88 发表于 2022-7-5 23:19:15

 
谢谢你的回复，备注，我用搜索，只找到这个：
这并不完美！
 
;;;=================================================================*                                        *
;;;zml842010-03-18                                        *
(defun c:tt ()
(if (and (setq pt1 (getpoint "\nPT1: "))
   (setq pt2 (getpoint pt1 "\nPT2: "))
   )
   (progn
   (tt-01 pt1 pt2)
   (if (setq pt3 (getpoint pt2 "\nPT3: "))
(tt-01 pt3
       (polar pt3 (angle pt2 pt1) (distance pt2 pt1))
)
   )
   ) ;
)
(princ)
)
;;;=================================================================*                            *
(defun tt-01 (pt1 pt2 / ang dist pt_tmp1)
(setq ang(angle pt1 pt2)
dist (distance pt1 pt2)
)
(setq pt_tmp1 (polar pt1 ang (* 0.5 dist)))
(command "_.pline"
   "non"
   pt1
   "a"
   "d"
   (+ (* 180 (/ ang pi)) -45)
   "non"
   pt_tmp1
   "non"
   pt2
   "d"
   (+ (* 180 (/ ang pi)) 180 45)
   "non"
   pt_tmp1
   ""
)
t
)

Tharwat 发表于 2022-7-5 23:22:44

看看我的这个旧文件，但它是一个符合lisp文件。vlx扩展，不要忘记在Support文件夹中添加幻灯片图像。
 
http://pipedisconnection.blogspot.ae/

liuhaixin88 发表于 2022-7-5 23:25:28

 
谢谢你，塔瓦，很高兴再次见到你。
 
下载PDC。rar？无法解压缩，文件已损坏。

Tharwat 发表于 2022-7-5 23:27:38

 
谢谢
 
 
不是，你赢了吗。您的系统上安装了rar压缩程序？

liuhaixin88 发表于 2022-7-5 23:31:20

 
是的，我已经在我的系统上安装了winRAR。
也许我的互联网有问题。

Tharwat 发表于 2022-7-5 23:32:49

试试这个，可能会有帮助。
 
PDC上的右时钟。rar文件并转到“常规”选项卡，在左侧下方必须有一个按钮“解锁”，按下它并应用，然后确定。
 
然后将文件夹解压缩到您想要的任何目标，并告诉我。

liuhaixin88 发表于 2022-7-5 23:38:28

 
对不起，我的互联网有故障，当输入“很难识别验证码”时，网页无法正常打开。

liuhaixin88 发表于 2022-7-5 23:41:25

我看到你们在4#的图片，这不是我需要的，你们的代码是创建管道末端，我需要在中间断开。

查看完整版本: 绘制圆柱折断线