Topic: vlax-add-cmd and acrx_cmd_transparent

[domenicomaria]

@vovka

;   MPP returns the middle point between 2 points ...
(defun MPP ( / mid-pt pt1 pt2 )
   (and
      (setq pt1 (getpoint "\nfirst point :") )
      (setq pt2 (getpoint pt1 "\nsecond point :") )
      (setq mid-pt (list (/ (+ (car pt1) (car pt2) ) 2.0) (/ (+ (cadr pt1) (cadr pt2) ) 2.0) ) )
   )
   mid-pt
)

command :
LINE
Specify first point:
Specify next point or [Undo]:
Specify next point or [Undo]:
Specify next point or [Close/Undo]:
Specify next point or [Close/Undo]:
(MPP)

It still LOCKS the CURRENT COMMAND
and I have to press ESC to continue the command !

(acad architecture 2022)

[BIGAL]

Another example

(defun c:000 ()(princ (list 0 0 0)))

LINE '000
then pick more points
'000 to go back to this pt
Enter

Make sure you use the single quote before the 000  '000

Yes it works, have used it before, another function that is inbulit is 'Cal

Cal has all sort of extra commands like get a point along a line at a distance, find mid of 2 points which is also m2p. Check help for Cal.

[domenicomaria]

@dan allen

Code - Auto/Visual Lisp: [Select]

1. (defun C:XXX ()
2.    (while (setq p (getpoint "\nenter a point") ) (command "point" p) )
3. )
4.  
5. (defun :POINT>STRING (pt)
6.    (if(= (length pt) 2)
7.       (strcat (rtos (nth 0 pt) 2 12) "," (rtos (nth 1 pt) 2 12) )
8.       (strcat (rtos (nth 0 pt) 2 12) "," (rtos (nth 1 pt) 2 12) "," (rtos (nth 2 pt) 2 12) )
9.    )
10. )
11.  
12. ;   MPP returns the middle point between 2 points ...
13. (defun MPP ( / mid-pt pt1 pt2 )
14.    (and
15.       (setq pt1 (getpoint "\nfirst point :") )
16.       (setq pt2 (getpoint pt1 "\nsecond point :") )
17.       (setq mid-pt (list (/ (+ (car pt1) (car pt2) ) 2.0) (/ (+ (cadr pt1) (cadr pt2) ) 2.0) ) )
18.    )
19.    (vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) (strcat (:POINT>STRING mid-pt) "\n") )
20. )
21.  
22. (vlax-remove-cmd "MPP")
23. (vlax-add-cmd "MPP"  (function MPP) "MPP" acrx_cmd_transparent)
24.  

Try this :
command : XXX
(enter a point)
(enter a point)
'MPP

[danAllen]

@dan allen

Bricscad needs tweak to vlax-add-cmd, see history
: (defun C:XXX ()
(_>    (while (setq p (getpoint "\nenter a point") ) (command "point" p) )
(_> )
C:XXX
: (defun :POINT>STRING (pt)
(_>    (if(= (length pt) 2)
((_>       (strcat (rtos (nth 0 pt) 2 12) "," (rtos (nth 1 pt) 2 12) )
((_>       (strcat (rtos (nth 0 pt) 2 12) "," (rtos (nth 1 pt) 2 12) "," (rtos (nth 2 pt) 2 12) )
((_>    )
(_> )
:POINT>STRING
: (defun MPP ( / mid-pt pt1 pt2 )
(_>    (and
((_>       (setq pt1 (getpoint "\nfirst point :") )
((_>       (setq pt2 (getpoint pt1 "\nsecond point :") )
((_>       (setq mid-pt (list (/ (+ (car pt1) (car pt2) ) 2.0) (/ (+ (cadr pt1) (cadr pt2) ) 2.0) ) )
((_>    )
(_>    (vla-SendCommand (vla-get-activedocument (vlax-get-acad-object)) (strcat (:POINT>STRING mid-pt) "\n") )
(_> )
MPP
: (vlax-remove-cmd "MPP")

; ----- Error around expression -----
(VLAX-REMOVE-CMD MPP)
;
; error : Unknown Error in Lisp or CAD system or 'Stack Overflow'
: (vlax-add-cmd "MPP"  (function MPP) "MPP" acrx_cmd_transparent)

; ----- Error around expression -----
#'MPP
;
; error : bad argument type <NIL> ; expected <INTEGER> at [vlax-add-cmd]
: (vlax-add-cmd "MPP"  (function MPP) "MPP" 1)

; ----- Error around expression -----
#'MPP
;
; error : bad argument type <#<<FUNCTION> #x33 @fffdc4fc6>> ; expected <SYMBOL> at [vlax-add-cmd]
: (vlax-add-cmd "MPP"  'MPP "MPP" 1)
(("MPP" . "MPP"))

seemed to work as expected. Used XXX to add two points, then typed 'MPP, selected two points and a point was created between them

: XXX
enter a point
: point
Settings/Multiple/<Location of point>:
enter a point
: point
Settings/Multiple/<Location of point>:
enter a point'MPP
first point :
second point :
enter a point
: point
Settings/Multiple/<Location of point>:
enter a pointnil

[domenicomaria]

@dan allen

ok !

with some easy modifications, it seem to work well in BricsCAD !

thank you

[danAllen]

...it seem to work well in BricsCAD !

I'm on R15, current version is R23...

[domenicomaria]

Code - Auto/Visual Lisp: [Select]

1. (defun POINT>STRING (pt)
2.    (if (= (length pt) 2)
3.       (strcat (rtos (nth 0 pt) 2 12) "," (rtos (nth 1 pt) 2 12) )
4.       (strcat (rtos (nth 0 pt) 2 12) "," (rtos (nth 1 pt) 2 12) "," (rtos (nth 2 pt) 2 12) )
5.    )
6. )
7.  
8.  
9. (defun ACTIVE-DOCUMENT () (vla-get-activedocument (vlax-get-acad-object) ) )
10.  
11.  
12. (defun PR ( / oom osa ptr xpt)
13.    (setq oom (getvar "orthomode") osa (getvar "snapang"))
14.    (setvar "orthomode" 1)
15.    (if(setq ptr (getpoint "\nreference point :"))
16.       (setq xpt (getpoint  ptr "\ntarget point :"))
17.    )
18.    (setvar "orthomode"    oom)   (setvar "snapang" osa)
19.  
20.    xpt
21.  
22.    ;   (vla-SendCommand (ACTIVE-DOCUMENT) (strcat (POINT>STRING xpt) "\n") )
23.    ;   (dcl-sendstring (strcat (POINT>STRING xpt) "\n") )
24. )
25.  
26.    
27. (vlax-remove-cmd "PR")
28. (vlax-add-cmd "PR" 'PR "PR" acrx_cmd_transparent)

Try this :
command : LINE (enter)
                 enter a point
                 enter a point
                'PR (enter) . . .

I still don't understand why it doesn't work at all !

[ribarm]

Maybe I am missing something, but can you achieve this just by :
LINE
click
click
F8 (ortho)
click
...
and so on, so on...
ENTER - finish

[domenicomaria]

@ribarm
I want understand why
(vlax-add-cmd "PR" 'PR "PR" acrx_cmd_transparent)
does not work!

[Marc'Antonio Alessi]

@ribarm
I want understand why
(vlax-add-cmd "PR" 'PR "PR" acrx_cmd_transparent)
does not work!

Maybe this can help: http://www.theswamp.org/index.php?topic=51409.msg576468#msg576468