帮助制作divide lisp plz

army_85 · 发表于 2022-7-6 11:05:56

大家好

我用autocad设计灌溉布局景观，我想用lisp进行在线分割，我也想插入块，我想逐块更改，这样容易实现

---------------------------------------------
微笑就像积木一样
请帮帮我
谢谢

ReMark · 发表于 2022-7-6 11:11:10

Divide或Measure命令都不是您想要的？

army_85 · 发表于 2022-7-6 11:16:36

我的意思是分开赞扬
div然后输入，然后选择对象，然后块的名称，然后段的数量
它的长柄
我想学习如何使Lisp程序或有人给我Lisp程序的捷径
thx给你

ReMark · 发表于 2022-7-6 11:18:58

您可以编写宏并使其暂停以获取块的名称和段数。如果块名始终是相同的，或您经常使用的特定块名，请专门为其创建一个宏，并使其仅暂停段数。

忘了我说的吧。见下文。Alanjt是炸弹！

alanjt · 发表于 2022-7-6 11:25:01

这完全是垃圾，但在回家之前我有几分钟要消磨，我很无聊。。。。

copy

(defun c:DAC (/ ss point curve num dist lgth)
 (and
   (princ "\nSelect object(s) to divide along curve: ")
   (setq ss (ssget ":L"))
   (setq point (getpoint "\nBase point for objects: "))
   (setq curve (car (entsel "\nSelect curve to divide: ")))
   (wcmatch (cdr (assoc 0 (entget curve))) "LINE,LWPOLYLINE,ARC")
   (setq num (getint "\nNumber of objects: "))
   (setq num (1+ num))
   (setq dist 0.0)
   (or (not (vl-catch-all-error-p (setq lgth (vl-catch-all-apply 'vla-get-length (list (vlax-ename->vla-object curve))))))
       (not (vl-catch-all-error-p (setq lgth (vl-catch-all-apply 'vla-get-arclength (list (vlax-ename->vla-object curve))))))
       )
   ;(setq lgth (vla-get-length (vlax-ename->vla-object curve)))
   (while (< dist (- lgth (/ lgth num)))
     (vl-cmdf "_.copy" ss "" point (vlax-curve-getpointatdist curve (setq dist (+ dist (/ lgth num)))))
   ) ;_ while
 ) ;_ and
 (princ)
) ;_ defun

army_85 · 发表于 2022-7-6 11:28:30

你好
但是我不知道怎么写宏thx
当我把这个代码放到thx上时

这就是我能做的
除法-回车
选择要分割的对象：我可以选择直线。普林。弧。发射型计算机断层扫描仪
输入段数或{block}：block enter
输入要插入的块的名称：ir enter（将被固定）
将块与对象对齐？{是/否}：是输入
输入段数：10输入（将更改）

谢谢

ReMark · 发表于 2022-7-6 11:34:06

您不必编写宏，只需使用上面为您编写的LISP例程alanjt即可。如果您不知道如何使用LISP例程，请转至论坛的CADTutor AutoCAD FAQ部分，并查看“自定义”下的内容。阅读题为“如何使用AutoLISP例程？”的文章。

army_85 · 发表于 2022-7-6 11:38:08

你好
抱歉的评论
我做到了，我把它转换成lisp，但alanjt没有正确编写代码，它没有给我任何帮助，只是选择对象和数字，没有块或块的名称

你知道有什么方法可以帮我写我想要的代码吗
你怎么写代码？
我想lisp它问我slect对象，如直线或pline或ect和固定块名称，并问我关于数字只
thx寻求帮助

ReMark · 发表于 2022-7-6 11:41:44

因此，您需要的是LISP例程，而不是宏。我懂了。你说你对alan的代码有问题吗？我现在唯一能做的就是下载lisp例程，在我的电脑上运行，看看会发生什么。

alanjt · 发表于 2022-7-6 11:46:54

我从没说过它会做你想做的事。我只是在玩，我想我会发布它。然而，我发布的内容可以很容易地修改为插入一个块，而不仅仅是复制选定的对象。为什么不自己试试呢。

[编程交流] 帮助制作divide lisp plz

发表回复

精选推荐