需要小俯卧撑

flowerrobot · 发表于 2022-7-6 12:29:13

另一种可能的解决方案，我经常使用


(defun c:UO nil(command "_.Ucs" "_Object" pause))
(defun c:UU nil (command "_.Ucs" "_world"))

viviancarvalho · 发表于 2022-7-6 12:33:15

谢谢大家
在你的支持下，我成功地创建了这个项目。但现在我面临一个奇怪的问题。我在Autocad 2008中运行了lisp，前三次它完全按照我希望的那样运行。我第四次运行它时，它会给我一条错误消息。

致命错误：命令嵌套深度不能超过4。

当我在Autocad 2010中运行相同的程序时，它运行得非常好，没有任何错误。谁能告诉我哪里出了问题。我知道这个Lisp程序还有很大的改进空间，但我只想知道这个Lisp程序出了什么问题。

我不太擅长lisps，但凭借我所知道的&这个网站的一点帮助，我完成了我的工作。

我在此附上代码，但如果您使用的是Autocad 2008或更低版本，请确保不要第四次使用它。
0SALD。LSP

Lee Mac · 发表于 2022-7-6 12:36:33

我无法立即看到错误发生的地方，但我想提出几点建议：

[列表]

使用“command”调用时，在命令前面加上“_”允许使用所有语言，并在重新定义命令时恢复到原始命令定义。看见
http://www.cadforum.cz/cadforum_en/qaID.asp?tip=2425for更多信息。
[/列表]
[列表]

尽可能避免使用“命令”调用-看看使用entmake函数-它更快、更可靠，给你更多的控制权（但不要太担心，因为你才刚刚开始，只是未来的一个提示）。
[/列表]
李

David Bethel · 发表于 2022-7-6 12:39:55

你能在（命令）调用中使用ALIGN吗？

这是2000年的EXRXSUB-David

Lee Mac · 发表于 2022-7-6 12:43:33

啊，真的-错过了！

2010年的EXRXSUBR:wink：

The Buzzard · 发表于 2022-7-6 12:46:10

Viv，

我今天早上查看了代码，发现当我注释这行时
故障不会发生。

我猜想它在代码的这一部分的某个地方，如果它有帮助的话。

copy

  (while (or (not ss)
            (> (sslength ss) 1))
        (princ "\nSelect 1 Line To Work With:   ")
        (setq ss (ssget (list (cons 0 "LINE")))))
 (setq en (ssname ss 0)         ; Entity Name
ed (entget en)           ; Entity Definition
p10 (cdr (assoc 10 ed))   ; 1st End Point
p11 (cdr (assoc 11 ed))   ; 2nd End Point
lan (angle p10 p11)       ; Angle In Radians
lth (- (distance p10 p11) 50)
nos (getint "\nENTER THE NUMBER OF SLOTS (2,3,4) : ")
plen (getint "\nENTER THE LENGTH OF PLENUM : ")
p1 (cdr (assoc 10 (entget en)))

也许你应该仔细检查一下这个区域。我认为变量en是问题所在或与之相关的东西。

无论如何，这是一个开始。

viviancarvalho · 发表于 2022-7-6 12:49:59

谢谢David、Lee和Buzzard
我同意你们所有人的意见。但是，同一个lisp如何在Autocad 2010中顺利工作？？

嗨Buzzard
很高兴在很长时间后看到你的帖子。你怎么样？
谢谢和问候
维维安

The Buzzard · 发表于 2022-7-6 12:50:49

嘿Viv，

正如我提到的，我不太确定那里发生了什么。李在那方面会是一个更好的老师。同样，所有指标似乎都指向选择集的方向。
为什么在旧版本上发生这种情况让我不知所措。

就我自己而言，我染上了典型的季节性疾病，但并不严重。

小心，祝你好运。

David Bethel · 发表于 2022-7-6 12:55:34

您可以在设置模式等后尝试添加此项。它可以帮助调试：

copy

(defun debughelp ()
  (setq *error* nil)
  (setvar "CMDECHO" 1)
  (trace c:lsd)
  (vl-load-com)
  (vl-bt))
(debughelp)

-大卫

Lee Mac · 发表于 2022-7-6 12:59:59

维维安，

很难从你的代码中看出你想要创建什么，但我会尽我所能帮助你。

我会避免使用对齐和擦除，只在正确的位置创建必要的内容。

我已经写了一个快速的“shell”，你可以围绕它来构建你的程序-这应该给你一个良好的基础，是没有错误的。

我已经为您提供了一些子函数，这些子函数可以简化poyline的创建：

copy


(defun c:lsd (/ *error* [b][color=Blue]Make_Layer[/color][/b] [color=Red][b]Make_Polyline[/b][/color]
               vl ov ss nos plen)
 (defun *error* (msg)
   (and ov (mapcar 'setvar vl ov))
   (or (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*")
       (princ (strcat "\n** Error: " msg " **")))
   (princ))
 
[b][color=Blue]  (defun Make_Layer (lay col)
   (or (tblsearch "LAYER" lay)
       (command "_.-layer" "_M" lay "_C" col lay "")))[/color][/b]
 
[color=Red][b]  (defun Make_Polyline (pts cls)
   (entmakex (append (list (cons 0 "LWPOLYLINE")
                           (cons 100 "AcDbEntity")
                           (cons 100 "AcDbPolyline")
                           (cons 90 (length pts))
                           (cons 70 cls))
                     (mapcar (function (lambda (x) (cons 10 x))) pts))))[/b][/color]
                   
 (setq vl '("CLAYER" "CMDECHO" "OSMODE")
       ov  (mapcar 'getvar vl))
 (if (and (setq ss   (ssget "_:S" '((0 . "LINE"))))
          (setq nos  (getint "\nEnter Number of Slots: "))
          (setq plen (getdist "\nEnter Length of Plenum: ")))
   (progn
     (mapcar 'Make_Layer '("GRILLE" "DUCTING") '(30 6))
     (mapcar 'setvar (cdr vl) '(0 0 0))
     
                [color=SeaGreen][b];< Draw Stuff Here>[/b][/color]
     ) ; End Progn
   ) ; End IF
 (mapcar 'setvar vl ov)
 (princ))

请注意蓝色和红色显示的两个子函数。

使用Make_layer sub，您可以为其提供层名称和颜色，它将为您创建层，如上图所示。

使用Make_Polyline sub，可以为其提供点列表和位代码，以确定是要闭合多边形还是开放多边形（1或0）。

例如：

copy

将返回通过1,2,0 3,10,0和5,6,0创建的闭合多段线的实体名称。

我希望这有帮助，

李

[编程交流] 需要小俯卧撑

发表回复

精选推荐