Quote from: kenkrupa on July 01, 2024, 09:08:59 AMI tried following the above and got nowhere. I get no check box for I know their bank details. So I enter support@manusoft.com and Owen Wengerd, which is all I know (there is no Language entry). When I click Confirm, it insists I enter all the other info. Jeez - I would really like to donate! (from USA)
Quote from: DW on May 01, 2024, 02:40:06 AM
- Click the green Continue button.
- Click Enter bank details button on the next page.
- Click the Someone else button
- Deselect the I know their bank details check box
- and enter Email address, Name and Language
- Click Confirm button...
(defun c:ttt (/)
(command "OPENDCL")
(dcl_Project_Load "BlockManager" T)
(dcl_Form_Show BlockManager_Form1)
(princ)
)
(defun c:Untitled/Form1#OnInitialize (/)
(setq strPath (list
(list "Metric" "W:\\Engineering\\AutoCAD Support\\Blocks\\Borders\\Metric")
(list "Imperial" "W:\\Engineering\\AutoCAD Support\\Blocks\\Borders\\Imperial"))
);setq
(dcl-Control-SetList BlockManager/Form1/Shortcut (mapcar '(lambda (x) (car x)) strPath))
(dcl-BlockView-LoadDwg BlockManager/Form1/BlockView "") ;; new line to clear viewblock
;(dcl-BlockView-Clear BlockManager/Form1/BlockView)
)
(defun c:BlockManager/Form1/Shortcut#OnSelChanged (ItemIndexOrCount Value /)
(dcl-ListBox-Dir BlockManager/Form1/DWGList (setq oBlockPreviewFolder (cadr(nth (dcl-ListBox-GetCurSel BlockManager/Form1/shortcut) strPath))) "*.dwg")
)
(defun c:BlockManager/Form1/DWGList#OnSelChanged (ItemIndexOrCount Value /)
(dcl-BlockView-LoadDwg BlockManager/Form1/BlockView (setq oBlockPreviewFile(strcat oBlockPreviewFolder "\\" Value)));_ load the DWG
(dcl-BlockView-Zoom BlockManager/Form1/BlockView 0.75)
)
(defun c:BlockManager/Form1/Insert#OnClicked (/)
(dcl_Form_Hide BlockManager_Form1)
(command "._insert" oBlockPreviewFile '(0 0 0) 1 1 0)
)