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

偏移没有输入fr的行

大家好,
我对这个论坛和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

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

(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的横截面。图纸

Dadgad 发表于 2022-7-6 08:00:20

欢迎来到论坛。
你的第一篇帖子不是帖子,只是帖子标题,没有其他信息眨眼:
现在我了解到,您希望在现有lisp中添加偏移命令。
对不起,我Lisp程序挑战了自己,但我相信这听起来并不太难
有人会纠正你的。
 
我指的是每次你在键盘上输入一个字符。

avinashg 发表于 2022-7-6 08:02:25

 
我会查出来的。谢谢
 
 
谢谢,塔瓦会试试这个。

avinashg 发表于 2022-7-6 08:04:22

 
 
塔尔瓦特,
即使创建偏移量,该程序也会提示选择线。
 

(ssget "_:L" '((0 . "LINE")))
页: [1] 2
查看完整版本: 偏移没有输入fr的行