Avoiding Copy and Paste to secure clipboard data progress!

[ScottMC]

Need someone to get this tool to crash for a test and get me to find solution.

Had this previously using no entmake or trans but seems to work now.

 

(defun c:4x  (/ *error* pt1 pt2 ss  )
(princ (strcat "\n 45"(chr 186)"/135"(chr 186)" 3D.XLines <!pp>"))

  (defun *error* ( msg )
     (setvar 'cmdecho 0)    
   (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
      (if msg (prompt (strcat "\n" msg)))
        (setvar 'cursorsize 100)    ;; reset to my prefer
     (setvar 'cmdecho 1)    
 (princ)
  )
    
  (setvar 'cursorsize 1)
  
  (entmakex ;;                  <LM
   '(
        (000 . "LAYER")
        (100 . "AcDbSymbolTableRecord")
        (100 . "AcDbLayerTableRecord")
        (002 . "XLINE")      ;; Layer Name
        (070 .  0)           ;; Layer Status     (bit-coded)
        (006 . "Continuous") ;; Layer Linetype   (must be loaded)
        (062 .  252)          ;; Layer Colour     (1-255)
        (290 .  0)           ;; Non-Plot Flag    (0=Plot, 1=NoPlot)
        (370 . -3)           ;; Layer Lineweight (-3=Default)
    )
) 

   (defun zPoint ( / exv) ;; 3d point mfg
      (setq pt1 (trans pt1 1 0))
      (setq exv (trans (list 0 0 1) 1 0 T))
      (entmakex (list (cons 0 "POINT")
      (cons 10 pt1)
      (cons 210 exv)))
    )

   (defun cdd ()
      (princ "\n")
        (princ 
          (setq pp                               ;;  make/prints coords & paste usable
                  (strcat 
                     (rtos (car pt1) 2 4) ","        ;; 'p' -- vertex from pgm /\ getpoint,...
                     (rtos (cadr pt1) 2 4) ","
                     (rtos (caddr pt1) 2 4) 
                    )
                 )
        ) 
   (princ " cucs ");;    ;   (entmakex (list (cons 0 "POINT") (cons 10 pt))) ;; clean point 
                 
  (setenv "pp" pp) ;; crash saved coords
 )

;;// -----------------------------------------------------------------------------------------------------------
      ;; Get the initial placement point
(while (setq pt1 (getpoint "\nSpecify Point for XLines: "))
(setvar 'cmdecho 0)
    (progn
      ;; Create a new empty selection set
      (setq ss (ssadd))
      
      ;; Create horizontal xline and add to selection set
      (command "_.xline" "_a" 45 pt1 "")
      (command "chprop" "_L" "" "la" "XLINE" "") ;; make xline grey
      (ssadd (entlast) ss)
      
      ;; Create vertical xline and add to selection set
      (command "_.xline" "_a" 135 pt1 "")
       (command "chprop" "_L" "" "la" "XLINE" "") ;; make xline grey
     (ssadd (entlast) ss)
     (cdd) ;; post coords
    (zPoint) ;; point at 'pick.point
    )
(setvar 'cmdecho 1) 
  ) ;; end of while
  
  (princ)
)

 

Edited 12 hours ago by ScottMC
forgot variable..

[Nikon]

3 hours ago, ScottMC said:

(command "chprop" "_L" "" "la" "XLINE" "") ;; make xline grey

The character (_) is missing in these lines.

(command "_chprop" "_L" "" "_la" "XLINE" "") ;; make xline grey

Maybe that's the problem.

[pkenewell]

12 hours ago, ScottMC said:

Need someone to get this tool to crash for a test and get me to find solution.

Had this previously using no entmake or trans but seems to work now.

@ScottMC I don't see any functional problems with it, other than as Nikon said, you should use the "_." before commands, even though they are not strictly necessary.

 

FYI - The "." (dot) ensures the actual AutoCAD command is used, in case it has been redefined, and the "_" (underscore) allows the command and any options within it to be used in any localized language version of AutoCAD. Example in your routine: (command "_.chprop" "_L" "" "_la" "XLINE" "")

 

Additionally:

1) You should also reset your "cursorsize" variable at the end of the routine: (setvar 'cursorsize 100)

2) You are resetting an undo mark in your error routine, and you never included a starting undo mark, i.e. (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) at the beginning of the routine.

3) Your routine or file should have (vl-load-com) if you use the Visual LISP ActiveX functions in #2 above.

4) You don't need a (progn ...) statement within a (while) loop. (Added)

 

That being said. I cannot properly test the purpose of the "zpoint" function without knowing in what context you are using it, i.e. a sample drawing situation to test with? Otherwise I don't really understand your purpose for it.

Edited 43 minutes ago by pkenewell

[pkenewell]

@ScottMC P.S. - I see now what the "zpoint" function intent is; for using (entmake) to create the points. I tried it out in a 3D drawing file, changing the current UCS, and it seems to work. fine.

[ScottMC]

Suggestions received, posted and updated. As with the coords, the point is a reference entity. Thanks

 

(defun c:4x  (/ *error* pt1 pt2 ss  )
(princ (strcat "\n 45"(chr 186)"/135"(chr 186)" 3D.XLines <!pp>"))
;; ai: https://www.google.com/search?q=saving+2+lines+selection%2C+autolisp&client=firefox-b-1-e&hs=AnK&sca_esv=3c4c5acec5573df9&biw=1198&bih=593&ei=JazVaZ2GN-3fp84P46_CyAM&ved=0ahUKEwjdrJWQit2TAxXt78kDHeOXEDkQ4dUDCBE&oq=saving+2+lines+selection%2C+autolisp&gs_lp=Egxnd3Mtd2l6LXNlcnAiInNhdmluZyAyIGxpbmVzIHNlbGVjdGlvbiwgYXV0b2xpc3AyBRAAGO8FMgUQABjvBTIFEAAY7wUyCBAAGKIEGIkFSKOCAVDmIlj5PHABeACQAQCYAakBoAHdCKoBAzEuN7gBDMgBAPgBAZgCCaACqAvCAg4QABiABBiwAxiGAxiKBcICCBAAGLADGO8FwgILEAAYsAMYogQYiQXCAgoQIRigARjDBBgKwgIIECEYoAEYwwSYAwCIBgGQBgqSBwUxLjYuMqAHwSSyBwUwLjYuMrgHzwrCBwczLTYuMi4xyAfBAYAIAA&sclient=gws-wiz-serp

(vl-load-com)

  (defun *error* ( msg )
     (setvar 'cmdecho 0)    
   (vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
      (if msg (prompt (strcat "\n" msg)))
        (setvar 'cursorsize 100)    ;; reset to my prefer
     (setvar 'cmdecho 1)    
 (princ)
  )
    (vla-startundomark (vla-get-activedocument (vlax-get-acad-object))) ;; 
  (setvar 'cursorsize 1)
  
  (entmakex ;;                  <LM
   '(
        (000 . "LAYER")
        (100 . "AcDbSymbolTableRecord")
        (100 . "AcDbLayerTableRecord")
        (002 . "XLINE")      ;; Layer Name
        (070 .  0)           ;; Layer Status     (bit-coded)
        (006 . "Continuous") ;; Layer Linetype   (must be loaded)
        (062 .  252)          ;; Layer Colour     (1-255)
        (290 .  0)           ;; Non-Plot Flag    (0=Plot, 1=NoPlot)
        (370 . -3)           ;; Layer Lineweight (-3=Default)
    )
) 

   (defun zPoint ( / exv) ;; 3d point at xline _mid (not on 'xline layer)
      (setq pt1 (trans pt1 1 0))
      (setq exv (trans (list 0 0 1) 1 0 T))
      (entmakex (list (cons 0 "POINT")
      (cons 10 pt1)
      (cons 210 exv)))
    )

   (defun cdd ()
      (princ "\n")
        (princ 
          (setq pp                               ;;  make/prints coords & paste usable
                  (strcat 
                     (rtos (car pt1) 2 4) ","        ;; 'p' -- vertex from \/ getpoint
                     (rtos (cadr pt1) 2 4) ","
                     (rtos (caddr pt1) 2 4) 
                    )
                 )
        ) 
   (princ " cucs ");; 
                 
  (setenv "pp" pp) ;; crash saved coords in reg
 )

;;// -----------------------------------------------------------------------------------------------------------
      ;; Get the initial placement point ;; 
(while (setq pt1 (getpoint "\nSpecify Point for XLines: "))
 (setvar 'cmdecho 0)
   (progn
      ;; Create a new 'usable' empty selection set
      (setq ss (ssadd)) ;; Initialize an empty set:
      
      ;; Create horizontal xline and add to selection set
      (command "_.xline" "_a" 45 pt1 "")
      (command "_.chprop" "_L" "" "_la" "XLINE" "") ;; make xline grey
      (ssadd (entlast) ss) ;; adds 'xline to empty 'ss selection set
      
      ;; Create vertical xline and add to selection set
      (command "_.xline" "_a" 135 pt1 "")
       (command "_.chprop" "_L" "" "_la" "XLINE" "") ;; make xline grey
     (ssadd (entlast) ss)  ;; adds another 'xline to 'ss selection set 
     (cdd) ;; post coords of 'pick.point
    (zPoint) ;; point at 'pick.point
    )
   (setvar 'cursorsize 100)    ;; reset to my prefer
(setvar 'cmdecho 1) 
  ) ;; end of while
(vla-endundomark (vla-get-activedocument (vlax-get-acad-object)))
(*error* nil)
  (princ)
)