Trying to -INSERT a "ARROW" block with a script
| -insert arrow 3263923.0305,1263407.6526 246.7 |
when copy on command line it says
How to overcome this "Substitute block name" dialoge box and run the SCRIPT
Script to -INSERT a block
Thanks for a good advise but sotion is same
if u see the command line after writing arrow, it does not goto next line to get the coordinates
I think thats problem
If this is a Script, then use Enter to a new line after the "arrow" Block name, rather than a space. Block names can contain spaces [there was a time when they could not, which I thought was better], and those are honored in a Script, so it thinks your coordinates etc. are part of the intended Block name, which therefore includes characters not allowed in Block names [see Help about the -BLOCK command and the EXTNAMES System Variable].
Kent Cooper, AIA 
Accepted solution
No variable that I'm aware of to force AutoCAD to only take short block names.
As for Excel, you can enter the cell like this:
="(command ""-insert"" ""arrow"" """&$G6&","&$H6&""" ""1"" ""1"" "&$F6&")"
There is 2 ways to do this write a macro in excel that has 2 function do a pline and insert a block.
The second for me is read the cells direct from excel and draw the pline then add the block.
In saying above there is a draw pline with arrow head it uses the method of changing the pline width as you construct the 2 part pline. Much easier than having 2 objects. It uses, pline startpt w 0 0 nextpoint w arrowsize 0 next point. Try it.
Added to "my to do" will read direct excel.
Try this, just open the excel, load the program, select the range, go back to CAD should be done.
; https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/script-to-insert-a-block/td-p/13054011
((defun c:wow ( / myxl oldsnap ahead x val pt dist ang pt2 pt3)
(defun dtr (a)
(* pi (/ a 180.0))
)
; Alpha2Number - Converts Alpha string into Number
; Function By: Gilles Chanteau from Marseille, France
; Arguments: 1
; Str$ = String to convert
; Syntax example: (Alpha2Number "ABC") = 731
;-------------------------------------------------------------------------------
(defun Alpha2Number (Str$ / Num#)
(if (= 0 (setq Num# (strlen Str$)))
0
(+ (* (- (ascii (strcase (substr Str$ 1 1))) 64) (expt 26 (1- Num#)))
(Alpha2Number (substr Str$ 2))
)
)
)
; ColumnRow - Returns a list of the Column and Row number
; Function By: Gilles Chanteau from Marseille, France
; Arguments: 1
; Cell$ = Cell ID
; Syntax example: (ColumnRow "ABC987") = '(731 987)
;default to "A1" if there's a problem
;-------------------------------------------------------------------------------
(defun ColumnRow (Cell$ / Column$ Char$ Row#)
(setq Column$ "")
(while (< 64 (ascii (setq Char$ (strcase (substr Cell$ 1 1)))) 91)
(setq Column$ (strcat Column$ Char$)
Cell$ (substr Cell$ 2)
)
)
(if (and (/= Column$ "") (numberp (setq Row# (read Cell$))))
(list (Alpha2Number Column$) Row#)
'(1 1)
)
)
; Number2Alpha - Converts Number into Alpha string
; Function By: Gilles Chanteau from Marseille, France
; Arguments: 1
; Num# = Number to convert
; Syntax example: (Number2Alpha 731) = "ABC"
;-------------------------------------------------------------------------------
(defun Number2Alpha (Num# / Val#)
(if (< Num# 27)
(chr (+ 64 Num#))
(if (= 0 (setq Val# (rem Num# 26)))
(strcat (Number2Alpha (1- (/ Num# 26))) "Z")
(strcat (Number2Alpha (/ Num# 26)) (chr (+ 64 Val#)))
)
)
);defun Number2Alpha
; thanks to Lee-mac for this defun
; www.lee-mac.com
; 44 is comma 9 is tab 34 is space 58 is colon
(defun _csv->lst58 ( str / pos )
(if (setq pos (vl-string-position 58 str))
(cons (substr str 1 pos) (_csv->lst58 (substr str (+ pos 2))))
(list str)
)
)
; this code was done by the great FIXO
; no longer with us
(defun getrangexl2 ( / lst UR CR RADD )
(vl-catch-all-error-p
(setq Rng
(vl-catch-all-apply
(function (lambda ()
(vlax-variant-value
(vlax-invoke-method
(vlax-get-property myxl 'Application)
'Inputbox
"Select a Range: "
"Range Selection "
nil
nil
nil
nil
nil
8))))))
)
(setq xrng (vlax-get-property rng "address"))
(setq xxrng xrng)
(repeat 4 (setq xxrng(vl-string-subst "" "$" xxrng)))
(setq xxxrng (_csv->lst58 xxrng))
(setq rngst (columnrow (nth 0 xxxrng)) rngend (columnrow (nth 1 xxxrng)))
(setq *ExcelData@ nil )
(setq Row# (nth 1 rngst))
(repeat (+ (- (nth 1 rngend)(nth 1 rngst) ) 1)
(setq Data@ nil)
(setq Column# (nth 0 rngst))
(repeat (+ (- (nth 0 rngend)(nth 0 rngst) ) 1)
(setq Range$ (strcat (Number2Alpha Column#)(itoa Row#)))
(setq ExcelRange (vlax-get-property myxl "Range" range$))
(setq ExcelVariant (vlax-get-property ExcelRange 'Value))
(setq ExcelValue (vlax-variant-value ExcelVariant))
(setq Data@ (append Data@ (list ExcelValue)))
(setq Column# (1+ Column#))
)
(setq *ExcelData@ (append *ExcelData@ (list Data@)))
(setq Row# (1+ Row#))
)
(princ *ExcelData@)
(princ)
)
(or (setq myxl (vlax-get-object "Excel.Application"))
(setq myxl (vlax-get-or-create-object "excel.Application"))
)
(vla-put-visible myXL :vlax-true)
(vlax-put-property myxl 'ScreenUpdating :vlax-true)
(vlax-put-property myXL 'DisplayAlerts :vlax-true)
(alert "Select the range of values start at say A6 end IX \n\n dont include average \n Press ok. then go to Excel")
(getrangexl2)
(setq oldsnap (getvar 'osmode))
(setvar 'osmode 0)
(setq ahead 1 x 1)
(foreach val *ExcelData@
(princ (setq x (1+ x)))
(setq pt (list (nth 6 val) (nth 7 val)))
(setq dist (nth 3 val) ang (nth 5 val))
(setq pt2 (polar pt (dtr ang) dist))
(setq pt3 (polar pt2 (+ (dtr ang) pi) 3))
(command "pline" pt "w" 0.0 0.0 pt3 "w" ahead 0.0 pt2 "")
)
(command "zoom" "e")
(setvar 'osmode oldsnap)
(princ)
)
