绘制楼梯

harilalmn · 发表于 2022-7-6 09:51:19

大家好，
我试图写一个函数来绘制楼梯的基本轮廓。
有一两次它对我非常有效。但在那之后，它只是画了一些垃圾。有人能看看下面的代码并提出一些建议吗？


(defun c:Stp()
(setq Point (getpoint "\nPick a Point:"))
(setq Rise (getdist "\nEnter rise of each step:"))
(setq Tread (getdist "\nEnter tread of each step:"))
(setq Nos (getint "\nEnter number of steps:"))
(setq LandingAt (Getint "Number of steps in first flight:"))
(setq P1 (list (car Point) (cadr Point)))
(setq LandingLength (getdist "\nEnter Length of Landing:"))
(setq n 0)
(While (< n Nos) 
(if
 (<= n LandingAt)
 (Progn ;If True
   (Setq
     P2 (polar Point (GetRad 90) Rise)
     P3 (Polar P2 0 Tread)
   )
 )
 (progn ;Else
   (Setq
     P2 (polar Point (GetRad 90) Rise)
     P3 (Polar P2 (GetRad 180) Tread)
   )
 )
)
   (command "LINE" Point P2 P3 "")
   (Setq Point P3)
   (setq n (1+ n))
);While Ends
);STP Ends
;======================================::::::
;Function to Convert Degrees to Radians::::::
;======================================::::::
(defun GetRad(Ang)
(/ (* 3.14 Ang) 180)
)

应该是这样的。

copy

 (defun c:Stp()

copy

(defun c:Stp ()

应该是

copy

(defun GetRad(Ang)

除此之外，请将您的论点本地化。

这是很好的练习，伙计。

当做

塔瓦特

MarcoW · 发表于 2022-7-6 10:00:21

当然我会。。。

这是我从零开始认真学习Autolisp的第四天。。。
因此，我在这里得到的任何建议都将非常有价值。。！！！
谢谢。。。

Tharwat · 发表于 2022-7-6 10:03:17

只是有这样的冲动：

copy

(defun GetRad (Ang)

做起来很有趣，我只是一个学习者；-）

harilalmn · 发表于 2022-7-6 10:08:05

这将避免与捕捉点混淆。

copy


(defun c:Stp (/ Point Rise Tread Nos LandingAt P1 LandingLength n P2 P3 OsmodeOld)
 (setq Point       (getpoint "\nPick a Point:")
Rise       (getdist "\nEnter rise of each step:")
Tread       (getdist "\nEnter tread of each step:")
Nos       (getint "\nEnter number of steps:")
LandingAt     (Getint "\nNumber of steps in first flight:")
P1       (list (car Point) (cadr Point))
LandingLength (getdist "\nEnter Length of Landing:")
n       0
OsmodeOld     (getvar "OSMODE")
 ) ;_setq
 (setvar "OSMODE" 0)
 (While
   (< n Nos)
    (if
      (<= n LandingAt)
(Progn ;If True
  (Setq
    P2 (polar Point (GetRad 90) Rise)
    P3 (Polar P2 0 Tread)
  ) ;_setq
) ;_progn
(progn ;Else
  (Setq
    P2 (polar Point (GetRad 90) Rise)
    P3 (Polar P2 (GetRad 180) Tread)
  ) ;_setq
) ;_progn
    )
    (vl-cmdf "_.LINE" Point P2 P3 "")
    (Setq Point P3
   n (1+ n)
    ) ;_setq
 ) ;While Ends
 (setvar "OSMODE" OsmodeOld)
 (princ)
) ;STP Ends
 ;======================================::::::
 ;Function to Convert Degrees to Radians::::::
 ;======================================::::::
(defun GetRad (Ang)
 (/ (* 3.14 Ang) 180)
)
;|«Visual LISP© Format Options»
(120 2 2 2 nil "Ende von " 100 9 0 0 0 T T nil T)
;*** DO NOT add text below the comment! ***|;

塔瓦特

MarcoW · 发表于 2022-7-6 10:18:20

harilalmn · 发表于 2022-7-6 10:23:05

Still OSMODE was not set when I did it. I set it to '0' at the beginning and it it worked.
Thankyou MacroW for the revised code...!!

MarcoW · 发表于 2022-7-6 10:27:53

You are right, too much hurrie is no good, code above is updated.

harilalmn · 发表于 2022-7-6 10:34:53

Thankyou...!!!

harilalmn · 发表于 2022-7-6 10:36:27

Thankyou All,
I modified my code, atlast, like this;

[code](defun c:Stp (/ Point Rise Tread Nos LandingAt P1 LandingLength n P2 P3 OSM) (setq Point (getpoint "\nPick a Point:")) (Setq OSM (getvar "OSMODE")) (setvar "OSMODE" 0) (setq Rise (getdist "\nEnter rise of each step:") Tread (getdist "\nEnter tread of each step:") Nos (getint "\nEnter number of steps:") LandingAt (Getint "Number of steps in first flight:") LandingLength (getdist "\nEnter length of the landing:") P1 (list (car Point) (cadr Point)) n 0 ) ;_setq (setq LandingDrawn 0) (While (< n Nos) (if (

Tharwat · 发表于 2022-7-6 10:40:35

Good to hear .

Best regards .

Tharwat

[编程交流] 绘制楼梯

发表回复

精选推荐