窗扇图纸代码

Rob-GB · 发表于 2022-7-6 14:18:05

我是lisp的新手，这段代码占用了我本周大部分的业余时间，有些代码是借用的，比如Afralisp网站上的defun DTR，但它们很明显。
受我在这里所看到的启发，我希望能将我的大部分门窗设计自动化。
虽然这个代码并不漂亮，但它确实可以工作，需要调整（希望下一步能在玻璃条中工作）。
欢迎任何观察，但请将笑声保持在沉闷的咆哮中！谢谢

copy

 
(defun DTR (a) (* PI (/ a 180.0))
)
(defun C:SASH1 (/ IP P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 
HEIGHT WIDTH GRT GL1 GL2 RW1 BORA HEAD STILE OLDSNAP OLDBLIP OLDLIGHT)
; lisp routine to draw basic casement sash
; by Rob-GB 
(setq OLDSNAP (getvar "OSMODE")
)
(setq OLDBLIP (getvar "BLIPMODE")
)
(setq OLDLIGHT (getvar "HIGHLIGHT")
)
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
(setq IP (getpoint "\nInsertion Point: "))
(setvar "OSMODE" 0)
(setq HEIGHT (getreal "\nEnter height of sash : ")
)
(setq WIDTH (getreal "\nEnter Width of sash : ")
)
(setq BORA (getreal "\nEnter Bottom Rail : ")
)
(setq HEAD (getreal "\nEnter Top Rail : ")
)
(setq STILE (getreal "\nEnter Stile : ")
)
(setq GRT (getreal "\nEnter Glass Rebate : ")
)
;Basic dims required
(setq GL1 (- HEIGHT (+(- HEAD GRT)(- BORA GRT)))
)
(setq GL2 (- WIDTH (* 2 (- STILE GRT)))
)
(setq RW1 (- WIDTH (* 2 STILE))
)
(setq P1 (POLAR IP (DTR 90.0) HEIGHT)
) ; PLOT POINTS
(setq P2 (POLAR P1 (DTR 0.0) STILE)
)
(setq P3 (POLAR P2 (DTR 0.0) RW1)
)
(setq P4 (POLAR P3 (DTR 0.0) STILE)
)
(setq P5 (POLAR P4 (DTR 270.0) HEIGHT)
)
(setq P6 (POLAR P5 (DTR 180.0) STILE)
)
(setq P7 (POLAR P6 (DTR 180.0) RW1)
)
(setq P8 (POLAR P3 (DTR 270.0) HEAD)
)
(setq P9 (POLAR P8 (DTR 180.0) RW1)
)
(setq P10 (POLAR P6 (DTR 90.0) BORA)
)
(setq P11 (POLAR P10 (DTR 180.0) RW1)
)
(setq P12 (POLAR P7 (DTR 90.0) (- BORA GRT))
)
(setq P13 (POLAR P12 (DTR 180.0) GRT)
)
(setq P14 (POLAR P13 (DTR 90.0) GL1)
)
(setq P15 (POLAR P14 (DTR 0.0) GL2)
)
(setq P16 (POLAR P15 (DTR 270.0) GL1)
)
;points plotted
(command "PLINE" IP P1 P2 P3 P4 P5 P6 P7 IP ""
); outside drawn
(command "PLINE" P2 P7 ""
)
(command "PLINE" P3 P6 ""
)
(command "PLINE" P8 P9 ""
)
(command "PLINE" P10 P11 ""
)
(command "PLINE" P13 P14 P15 P16 P13 ""
)
(setvar "OSMODE" OLDSNAP)
(setvar "BLIPMODE" OLDBLIP)
(setvar "HIGHLIGHT" OLDLIGHT)
(princ)
);defun

The Buzzard · 发表于 2022-7-6 14:22:27

Rob GB不错，

但我建议您将插入点提示移到标注输入提示之后。这会更有意义。

干得好！
秃鹰

copy

(defun DTR (a) (* PI (/ a 180.0)))
(defun C:SASH1 (/ IP P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 
                 HEIGHT WIDTH GRT GL1 GL2 RW1 BORA HEAD STILE OLDSNAP OLDBLIP OLDLIGHT)
; lisp routine to draw basic casement sash
; by Rob-GB 
(setq OLDSNAP (getvar "OSMODE"))
(setq OLDBLIP (getvar "BLIPMODE"))
(setq OLDLIGHT (getvar "HIGHLIGHT"))
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
(setvar "OSMODE" 0)
(setq HEIGHT (getreal "\nEnter height of sash : "))
(setq WIDTH (getreal "\nEnter Width of sash : "))
(setq BORA (getreal "\nEnter Bottom Rail : "))
(setq HEAD (getreal "\nEnter Top Rail : "))
(setq STILE (getreal "\nEnter Stile : "))
(setq GRT (getreal "\nEnter Glass Rebate : "))
[color=red](setq IP (getpoint "\nInsertion Point: "))  ;Move insertion point prompt here[/color]
;Basic dims required
(setq GL1 (- HEIGHT (+(- HEAD GRT)(- BORA GRT))))
(setq GL2 (- WIDTH (* 2 (- STILE GRT))))
(setq RW1 (- WIDTH (* 2 STILE)))
; PLOT POINTS
(setq P1 (POLAR IP (DTR 90.0) HEIGHT))
(setq P2 (POLAR P1 (DTR 0.0) STILE))
(setq P3 (POLAR P2 (DTR 0.0) RW1))
(setq P4 (POLAR P3 (DTR 0.0) STILE))
(setq P5 (POLAR P4 (DTR 270.0) HEIGHT))
(setq P6 (POLAR P5 (DTR 180.0) STILE))
(setq P7 (POLAR P6 (DTR 180.0) RW1))
(setq P8 (POLAR P3 (DTR 270.0) HEAD))
(setq P9 (POLAR P8 (DTR 180.0) RW1))
(setq P10 (POLAR P6 (DTR 90.0) BORA))
(setq P11 (POLAR P10 (DTR 180.0) RW1))
(setq P12 (POLAR P7 (DTR 90.0) (- BORA GRT)))
(setq P13 (POLAR P12 (DTR 180.0) GRT))
(setq P14 (POLAR P13 (DTR 90.0) GL1))
(setq P15 (POLAR P14 (DTR 0.0) GL2))
(setq P16 (POLAR P15 (DTR 270.0) GL1))
;points plotted
(command "PLINE" IP P1 P2 P3 P4 P5 P6 P7 IP ""); outside drawn
(command "PLINE" P2 P7 "")
(command "PLINE" P3 P6 "")
(command "PLINE" P8 P9 "")
(command "PLINE" P10 P11 "")
(command "PLINE" P13 P14 P15 P16 P13 "")
(setvar "OSMODE" OLDSNAP)
(setvar "BLIPMODE" OLDBLIP)
(setvar "HIGHLIGHT" OLDLIGHT)
(princ)
);defun

Lee Mac · 发表于 2022-7-6 14:26:20

嘿Rob，

第一次尝试不错，干得好伙计

几点提示：-

[列表]

我会在代码中包含一个错误处理程序，因为您正在篡改系统变量，如OSMODE和CMDECHO等-因此，如果用户点击Esc，您的OSNAP将被破坏。
[/列表]
[列表]

我会在IF语句中包含所有提示，这样如果用户没有输入某个条目，例程就不会出错。
[/列表]
[列表]

包括“_”作为命令的前缀，即。
[/列表]

copy

 (command "_.pline"...)

因为这将使其语言和版本兼容。“_”表示语言兼容性，以及“。”如果用户重新定义了函数。

除此之外，我认为它可以变得更简洁，但这是迟早的事

干得好

李

David Bethel · 发表于 2022-7-6 14:29:06

一点也不坏。

代替（getreal），我更喜欢：

它强制用户进行正确的输入：
（initget 7）强制输入非负、非零和非零
（getdist）允许以十进制和/或当前单位设置拾取点和键盘输入

-大卫

Rob-GB · 发表于 2022-7-6 14:31:38

谢谢大家的指点，我会做一些修补。

Buzzard这更符合逻辑，但我想在关闭快照之前选择IP。我只是把它们关掉，因为每个人似乎都这么做。

我有李（命令行…）在那里，但当我运行测试时，我遇到了问题，最终使用了（命令“pline”…）而是使用前缀。我将进一步研究错误处理程序和IF语句。

David Bethel（initget 7）我到现在还没有遇到“和（getdist）我没有选择，因为我眨眼的思维都是公制的，因为我早就忘记了其他度量单位。不过，这将使它更便于用户使用。

另一方面：代码是否必须与左边距对齐，或者漂亮的锯齿形外观是否也可以工作？
但是

Lee Mac · 发表于 2022-7-6 14:35:02

LISP解释器（解释您在机器对话中所写内容的东西）不关心代码中的空白（空白）。

我发现当代码缩进时更容易阅读，即。

copy


(if (setq pt (getpoint "\nSelect a Point: "))
 (progn  ; <<-- Indent as IF statement isn't closed
   (setq a ...  ; <<-- Indent as Progn statement isn't closed

Rob-GB · 发表于 2022-7-6 14:39:11

顺便说一句，我还希望启用捕捉，以便在插入时可以捕捉到任何对象。创建窗扇之前，请关闭捕捉。

copy

(defun DTR (a) (* PI (/ a 180.0)))
(defun C:SASH1 (/ IP P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 
                 HEIGHT WIDTH GRT GL1 GL2 RW1 BORA HEAD STILE OLDSNAP OLDBLIP OLDLIGHT)
; lisp routine to draw basic casement sash
; by Rob-GB 
(setq OLDSNAP (getvar "OSMODE"))
(setq OLDBLIP (getvar "BLIPMODE"))
(setq OLDLIGHT (getvar "HIGHLIGHT"))
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
(setq HEIGHT (getreal "\nEnter height of sash : "))
(setq WIDTH (getreal "\nEnter Width of sash : "))
(setq BORA (getreal "\nEnter Bottom Rail : "))
(setq HEAD (getreal "\nEnter Top Rail : "))
(setq STILE (getreal "\nEnter Stile : "))
(setq GRT (getreal "\nEnter Glass Rebate : "))
[color=red](setq IP (getpoint "\nInsertion Point: "))            ;Move insertion point prompt here[/color]
[color=red](setvar "OSMODE" 0)                                   ;Snap mode moved here[/color]
;Basic dims required
(setq GL1 (- HEIGHT (+(- HEAD GRT)(- BORA GRT))))
(setq GL2 (- WIDTH (* 2 (- STILE GRT))))
(setq RW1 (- WIDTH (* 2 STILE)))
; PLOT POINTS
(setq P1 (POLAR IP (DTR 90.0) HEIGHT))
(setq P2 (POLAR P1 (DTR 0.0) STILE))
(setq P3 (POLAR P2 (DTR 0.0) RW1))
(setq P4 (POLAR P3 (DTR 0.0) STILE))
(setq P5 (POLAR P4 (DTR 270.0) HEIGHT))
(setq P6 (POLAR P5 (DTR 180.0) STILE))
(setq P7 (POLAR P6 (DTR 180.0) RW1))
(setq P8 (POLAR P3 (DTR 270.0) HEAD))
(setq P9 (POLAR P8 (DTR 180.0) RW1))
(setq P10 (POLAR P6 (DTR 90.0) BORA))
(setq P11 (POLAR P10 (DTR 180.0) RW1))
(setq P12 (POLAR P7 (DTR 90.0) (- BORA GRT)))
(setq P13 (POLAR P12 (DTR 180.0) GRT))
(setq P14 (POLAR P13 (DTR 90.0) GL1))
(setq P15 (POLAR P14 (DTR 0.0) GL2))
(setq P16 (POLAR P15 (DTR 270.0) GL1))
;points plotted
(command "PLINE" IP P1 P2 P3 P4 P5 P6 P7 IP ""); outside drawn
(command "PLINE" P2 P7 "")
(command "PLINE" P3 P6 "")
(command "PLINE" P8 P9 "")
(command "PLINE" P10 P11 "")
(command "PLINE" P13 P14 P15 P16 P13 "")
(setvar "OSMODE" OLDSNAP)
(setvar "BLIPMODE" OLDBLIP)
(setvar "HIGHLIGHT" OLDLIGHT)
(princ)
);defun

The Buzzard · 发表于 2022-7-6 14:43:06

这些错误会告诉你出了什么问题，以及你需要修复什么。

例如，我通常是这样解释它们的：

copy

(defun DTR (a) (* PI (/ a 180.0)))
(defun C:SASH1 (/ IP P1 P2 P3 P4 P5 P6 P7 P8 P9 P10 P11 P12 P13 P14 P15 P16 
                 HEIGHT WIDTH GRT GL1 GL2 RW1 BORA HEAD STILE OLDSNAP OLDBLIP OLDLIGHT)
; lisp routine to draw basic casement sash
; by Rob-GB 
(setq OLDSNAP (getvar "OSMODE"))
(setq OLDBLIP (getvar "BLIPMODE"))
(setq OLDLIGHT (getvar "HIGHLIGHT"))
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
[color=red](setvar "OSMODE" 575) ;Set object snap to end, mid, cen, node, qua, int and nea on[/color]
(setq HEIGHT (getreal "\nEnter height of sash : "))
(setq WIDTH (getreal "\nEnter Width of sash : "))
(setq BORA (getreal "\nEnter Bottom Rail : "))
(setq HEAD (getreal "\nEnter Top Rail : "))
(setq STILE (getreal "\nEnter Stile : "))
(setq GRT (getreal "\nEnter Glass Rebate : "))
[color=red](setq IP (getpoint "\nInsertion Point: "))            ;Move insertion point prompt here[/color]
[color=red](setvar "OSMODE" 0)                                   ;Snap mode moved here[/color]
;Basic dims required
(setq GL1 (- HEIGHT (+(- HEAD GRT)(- BORA GRT))))
(setq GL2 (- WIDTH (* 2 (- STILE GRT))))
(setq RW1 (- WIDTH (* 2 STILE)))
; PLOT POINTS
(setq P1 (POLAR IP (DTR 90.0) HEIGHT))
(setq P2 (POLAR P1 (DTR 0.0) STILE))
(setq P3 (POLAR P2 (DTR 0.0) RW1))
(setq P4 (POLAR P3 (DTR 0.0) STILE))
(setq P5 (POLAR P4 (DTR 270.0) HEIGHT))
(setq P6 (POLAR P5 (DTR 180.0) STILE))
(setq P7 (POLAR P6 (DTR 180.0) RW1))
(setq P8 (POLAR P3 (DTR 270.0) HEAD))
(setq P9 (POLAR P8 (DTR 180.0) RW1))
(setq P10 (POLAR P6 (DTR 90.0) BORA))
(setq P11 (POLAR P10 (DTR 180.0) RW1))
(setq P12 (POLAR P7 (DTR 90.0) (- BORA GRT)))
(setq P13 (POLAR P12 (DTR 180.0) GRT))
(setq P14 (POLAR P13 (DTR 90.0) GL1))
(setq P15 (POLAR P14 (DTR 0.0) GL2))
(setq P16 (POLAR P15 (DTR 270.0) GL1))
;points plotted
(command "PLINE" IP P1 P2 P3 P4 P5 P6 P7 IP ""); outside drawn
(command "PLINE" P2 P7 "")
(command "PLINE" P3 P6 "")
(command "PLINE" P8 P9 "")
(command "PLINE" P10 P11 "")
(command "PLINE" P13 P14 P15 P16 P13 "")
(setvar "OSMODE" OLDSNAP)
(setvar "BLIPMODE" OLDBLIP)
(setvar "HIGHLIGHT" OLDLIGHT)
(princ)
);defun

这应该足以为你指明正确的方向

The Buzzard · 发表于 2022-7-6 14:45:42

谢谢Buzzard。

如果例程允许（getdist）部分，那么这当然是非常有意义的，这将从快照打开中受益！
Lisp程序的迷雾正在变成一种短暂的喘息（我希望如此）。

Lee Mac · 发表于 2022-7-6 14:47:58

至于SNAP和其他系统变量，我只会尽可能晚地更改它们，并尽快将其重新打开。这意味着，如果没有错误处理程序，您的代码不太可能与sys vars发生冲突。

所以在这种情况下，我会：

copy


malformed list  =  Missed right parenthesis ")"
extra right paren  =  Extra Right parenthesis ")"
too few arguments  =  A function doesn't have all the necessary information to run.
too many arguments  =  A function has been given too much information
bad argument type: stringp/numberp/etc =  A function has been provided with the wrong type of argument (i.e. try at the command line: (rtos "2")

因为这些只需要为“命令”调用更改。

或者：

copy


(setvar "CMDECHO" 0) (setvar "OSMODE" 0)
(command "PLINE" IP P1 P2 P3 P4 P5 P6 P7 IP ""); outside drawn
(command "PLINE" P2 P7 "")
(command "PLINE" P3 P6 "")
(command "PLINE" P8 P9 "")
(command "PLINE" P10 P11 "")
(command "PLINE" P13 P14 P15 P16 P13 "")
(setvar "OSMODE" OLDSNAP)
(setvar "BLIPMODE" OLDBLIP)
(setvar "HIGHLIGHT" OLDLIGHT)
(princ)
);defun

李

[编程交流] 窗扇图纸代码

发表回复

精选推荐