需要修复2个LISP（斜率

danielk · 发表于 2022-7-6 06:23:53

第一个lisp斜率。LSP以百分比标记直线的坡度，并且能够使用不同的水平和垂直比例，这在创建管段时非常有用。。。有时在autocad 2013或2014中，当我尝试重复该命令时，它工作得很好，因此我需要重新启动autocad。

第二个Lisp程序的斜线。LSP在指定坡度处创建直线。问题如下：
1）仅当我将文件拖动到autocad屏幕时，lisp才会启动
2）该线是在与我单击以创建它的点相反的方向创建的。

谢谢大家，我希望其他人也会发现它很有用。lsp
斜坡lsp

danielk · 发表于 2022-7-6 06:35:55

有人吗？

GP_ · 发表于 2022-7-6 06:46:12

也许吧：
rem是lisp函数，不能表示为变量。

copy

 (setvar "osmode" rem)

copy


;CODE
;by Maurizio - July 2011
[b][color=red]([/color][/b]defun C:Slopedraw () ;; [color=red][b]1)[/b][/color] [color=red]missing parenthesis[/color]
   ;INPUT SLOPE
   (if (= pSlope nil)
       (setq pSlope 3.03)
   )
   (setq perc (getreal (strcat "\nSlope % <" (rtos pSlope 2 2) "> :")))
   (if (/= perc nil)
       (setq pSlope perc)
   )
   ;FIRST POINT - DISTANCE
   (setq p1 (getpoint "\nStart point: "))
   (setq dd (getdist "\nDistance: " p1))
   (setq dy (/ (* dd pSlope) 100.0))
   ;SECOND POINT AT LEFT AND DY > 0
   (setq p2 (mapcar '+ p1 (list ([b][color=red]+[/color][/b] dd) dy 0))) ;; [color=red][b]2)[/b] substitute - with +[/color]
   (command "_line" p1 p2 "")
   (princ)
)