Bugfix: ENDVIEW fails @ LX66

2 months ago · 2dc7c63654
parent 2f4dfd2b9a
commit 2dc7c63654
1 changed files with 3 additions and 2 deletions
--- a/land/endview.lsp
+++ b/land/endview.lsp
@ -331,13 +331,14 @@ draw (relative to the view of the section)."
      ((lambda (/ obj)
          (setq obj (add-polyline blockObj
 				  '(0 0)
-				  (list (list (+ gap 2) 0 0) (list (+ gap 2) 4 0))
+				  (list (list (+ (cornerkey "gap") 2) 0 0)
+                                        (list (+ (cornerkey "gap") 2) 4 0))
 				  nil))
          (offset&close obj 0.3125 T '(0 1))
          (vla-delete obj)
 	  ;; slot
          (setq obj (add-polyline blockObj
-				  (list (+ gap 2) 4)
+				  (list (+ (cornerkey "gap") 2) 4)
 				  (list (list -1.125 0 0) (list 1.125 0 0))
 				  nil))
          (offset&close obj 0.34375 T '(1 1))