偏移没有输入fr的行

avinashg · 发表于 2022-7-6 07:35:08

大家好，
我对这个论坛和lisp很陌生。
尝试使用lisp创建排水管的横截面。每个横截面的详细信息来自excel。我被卡住了，因为我无法通过从程序本身选择直线和偏移距离来找出偏移直线/多段线的方法。
任何帮助都将不胜感激。

提前谢谢。

EWE H-100ch 0至575m的横截面。图纸
将excel\u data\u读取到数组。lsp
排水xls公司

我抓取了Fixo给出的代码，从excel中读取数据(http://www.cadtutor.net/forum/showthread.php?41910-读取Excel数据单元并通过LISP/page2）在AutoCAD中绘制。谢谢菲索。

Dadgad · 发表于 2022-7-6 07:40:22

为了启动lisp，您需要输入lisp的快捷键，该快捷键可能至少有两个字母，即假设它已经加载。
为了启动偏移命令，输入字母O。
你希望保存多少次击键？

Organic · 发表于 2022-7-6 07:44:45

原始帖子被删除了吗？

avinashg · 发表于 2022-7-6 07:46:05

达德加德，
你说的笔划是什么意思。（对不起，我是lisp的新手）
我已经使用lisps创建了多段线，我需要使用相同的程序偏移相同的多段线。

ReMark · 发表于 2022-7-6 07:48:16

也许看看李·麦克写的一个lisp程序，叫做双偏移量，就可以找到一些关于如何做你想做的事情的线索。

http://lee-mac.com/doubleoffset.html

Tharwat · 发表于 2022-7-6 07:51:30

看看这个，你可以把负数改成正数来打两边

copy


(defun c:Test (/ d side s i)
 (vl-load-com)
 (setq d 1.0)
 (if (setq s (ssget "_:L" '((0 . "LINE"))))
   (repeat (setq i (sslength s))
     (vla-offset (vlax-ename->vla-object (ssname s (setq i (1- i)))) (- d))
     )
   )
 (princ)
 )

avinashg · 发表于 2022-7-6 07:55:17

我不确定有什么事情可能已经发生了我重新张贴它。

大家好，
我试图使用excel提供的lisp数据创建排水管的横截面。（在某些线程中使用fixo发布的代码）并绘制多段线和直线。
我很惊讶，因为我无法在没有提示选择直线和偏移距离的情况下找出如何偏移直线/多段线。
这是文件

如果有人（几乎没有空闲时间）能帮我创建这个程序，我将不胜感激。
排水xls公司
将excel\u data\u读取到数组。lsp
EWE H-100ch 0至575m的横截面。图纸