乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 115|回复： 7

[编程交流] 绘制具有中心线和外径和内径的二维管道

[复制链接]
cadmando2

38

主题

83

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
186
发表于 2022-9-9 00:47:36 | 显示全部楼层 |阅读模式
对这个 lisp 例程有问题，同事留下了！
它可以工作，但是分层而不给出管道中心线的长度？
谁能帮忙！

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-9-9 01:00:17 | 显示全部楼层
用 vla-get-length 替换 pnt10 pnt11 ，这样它可以处理带曲线的线。
将您的 ssgets 保持为个人，然后无需一直重新选择。
(setq ASS (ssget "X" (list (cons 0 "LINE") (cons 8 lay_name)) ) ;setq ASS
当您制作偏移量时，只需将新偏移量添加到选择集 SSADD 中，然后在最后执行 1 更改属性。（命令“CHPROP”SSNEW1“”“LAYER”“2”“”）重复ssnew2“15”
  1. (princ "\n Warning! Arc/Splines CL's Return Incorrect Length.\nSelect Centerlines to Construct Pipe: ")

回复

使用道具 举报

mhupp

15

主题

1052

帖子

58

银币

中流砥柱

Rank: 25

铜币
683
发表于 2022-9-9 01:06:04 | 显示全部楼层
这里还有一些提示。
制作图层时减少命令行垃圾邮件 在制作图层之前关闭 cmdecho 并在制作图层后重新打开。
  1. (setvar 'cmdecho 0)  (command "layer" "m" ...(command "layer" "m" ...(command "layer" "m" ...(setvar 'cmdecho 1)  
OD 和 ID 的 getdist。您可以用鼠标或类型选择点，还可以确保 OD 大于 ID。并一次将它们除以2。
  1. (if (and (setq P-OD (/ (getdist "\n Enter O.D. of Pipe: ") 2)) (setq P-ID (/ (getdist "\n Enter I.D. of Pipe: ") 2)) (> P-OD P-ID))  (progn)  (Progn    (prompt "\nI.D. Needs to be smaller then O.D.")    (quit)  ))
如果管道的中心线是多条线，则所有连接的弧线将连接成一条折线。
  1. (vl-cmdf "_.Join" A "") ;join everything selected with ssget into one polyline if they are connected
可以用 4 行 vla 替换 entmod 的 24 行
  1. (setq off (vla-offset D idist)) ;sets vla-objname of new offset entity(vla-put-layer off "Boiler-Pipe-ID") ;moves offset entity to layer
        
         
回复

使用道具 举报

cadmando2

38

主题

83

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
186
发表于 2022-9-9 01:12:28 | 显示全部楼层
感谢大家的帮助，我非常感谢。我打算使用它的项目刚刚被取消，但想继续为未来的项目开发这个 DP-2.lsp。
我打算在当地的社区学院上 AutoLisp 课程，但他们取消了课程，现在我想自己学习！有什么建议么！
我还在学习 lisp 的基础知识！我用记事本、气味 AutoDesk 删除了“Visual Lisp 编辑器”！
有没有更好的 lisp 编辑器，除了在 Autocad 中运行之外，为什么还要测试 lisp？
回复

使用道具 举报

mhupp

15

主题

1052

帖子

58

银币

中流砥柱

Rank: 25

铜币
683
发表于 2022-9-9 01:17:52 | 显示全部楼层
尝试使用 vscode或notepad++进行 lisp 写作。vs 有很多功能，你可以为 lisp 安装插件。notepad++ 没有 Windows 记事本那么强大，但更好。
回复

使用道具 举报

ronjonp

58

主题

3353

帖子

33

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1761
发表于 2022-9-9 01:27:39 | 显示全部楼层
该视频仍在 AutoCAD 中。不过，您需要将LISPSYS更改为 0。
回复

使用道具 举报

BIGAL

106

主题

1万

帖子

101

银币

顶梁支柱

Rank: 50Rank: 50

铜币
1299
发表于 2022-9-9 01:39:20 | 显示全部楼层
Notepad ++ 有一个运行代码选项，您只需要单独下载即可。我经常使用它。
主动 X 插件。

014737r6al9616aa3l9lwk.png
回复

使用道具 举报

cadmando2

38

主题

83

帖子

53

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
186
发表于 2022-9-9 01:47:30 | 显示全部楼层
我更新了管道例程，但最后仍然出现错误，并且没有让 Pline 或折线更改为中心线层。

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-1-31 07:43 , Processed in 0.290095 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表