Leaderboard

Members who use BricsCAD as their main CAD product can now add the Lite, Pro, BIM or Mechanical versions to their profile. To do so, go to your profile page, click on Edit Profile, look for My Software and select your BricsCAD product from the drop-down list at Main CAD Product.

Sounds like @steven-g will have sorted you out. Alternately you can hold down the Ctrl button, and you should then be able to move it, even if it is locked.

Hi @wiebe and welcome to our forum. Take a look at this useful tool from our downloads area - it may help:

You need to take a look at the variable 'LOCKUI' or right click on your toolbar and down at the bottom of the list of toolbars are the various options to dock toolbars

Look at the ActiveX intersectwith method - some examples may be found here.

As others have noted Civil3D will install AutoCAD if it's not on the machine In a network setup there is an advantage to installing AutoCAD first using one serial and carrying out another deployment for Civil 3D. If you have a license pool with limited Civil 3D licenses, some tasks may be suited to just AutoCAD. These tasks could be carried out from the vanilla AutoCAD licence pool which will free a Civil3D license for others. (Lmtools should cascade license. Running AutoCAD will use an AutoCAD license, Civil3D a Civil3D license)

Still sick mate so I haven't have a time to help you Here is quick and dirty code ;;demo2.lsp ;; helpers: (defun goto_start (wrdapp / sel) (setq sel (vlax-get-property wrdapp 'Selection)) (vlax-invoke-method sel 'WholeStory) (vlax-invoke-method sel 'Collapse 1) (vlax-get-property wrdapp 'Selection) ) (defun write_footer (wrdapp text / block blocks range sel start wbasic) (setq wbasic (vlax-get-property wrdapp 'WordBasic)) (vlax-invoke-method wbasic 'ViewFooterOnly) (setq blocks (vlax-get-property (vlax-variant-value (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'AttachedTemplate)) 'BuildingBlockEntries)) (setq block (vlax-invoke-method blocks 'Item 1)) (setq sel (vlax-get-property wrdapp 'Selection)) (setq range (vlax-get-property sel 'Range)) (vlax-invoke-method block 'Insert range :vlax-true) (vlax-put-property range 'Text "") (vlax-invoke-method sel 'TypeText (vlax-make-variant text 12)) (vlax-release-object wbasic) ) (defun write_header (wrdapp text / acwnd block blocks range view) (setq view (vlax-get-property (setq acwnd (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'ActiveWindow)) 'View ) ) (if (not (zerop (vlax-get-property view 'SplitSpecial))) (progn (setq panes (vlax-get-property acwnd 'Panes)) (setq pane (vlax-get-property 'Items 1)) (vlax-invoke-method pane 'Close)) ) (if (or (= 1 (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'ActiveWindow) 'ActivePane) 'View) 'Type) ) (= 2 (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'ActiveWindow) 'ActivePane) 'View) 'Type))) (vlax-put-property (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'ActiveWindow) 'ActivePane) 'View) 'Type) 3 ) ) (vlax-put-property (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'ActiveWindow) 'ActivePane) 'View) 'SeekView 9 ) (setq blocks (vlax-get-property (vlax-variant-value (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'AttachedTemplate)) 'BuildingBlockEntries)) (setq block (vlax-invoke-method blocks 'Item 1)) (setq start (goto_start wrdapp) ) (vlax-invoke-method start 'Select) (setq range (vlax-get-property start 'Range)) (vlax-invoke-method block 'Insert range :vlax-true) (vlax-put-property range 'Text "") (vlax-invoke-method start 'TypeText (vlax-make-variant text 12)) ) (defun write_to_end (wrdapp text / endrange) (setq endrange (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'Paragraphs) 'Last ) 'Range ) ) (vlax-invoke-method endrange 'InsertAfter text) ) (defun write_to_place (wrdapp num text / endrange) (setq endrange (vla-item (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'Sentences) num ) ) (vlax-invoke-method endrange 'InsertAfter text) ) ;; main prog (defun C:demo2(/ docname wrdapp wrddoc wrddocs wrdrange) (setq docname (getfiled "Select Word Document" (getvar "dwgprefix") "doc;dot;*" 16)) (alert "Wait For Closing Word Application") (setq wrdapp (vlax-get-or-create-object "Word.Application")) (vla-put-visible wrdapp :vlax-true) (vlax-put-property wrdapp 'ScreenUpdating :vlax-false) (setq wrddocs (vlax-get-property wrdapp 'Documents)) (vlax-invoke-method wrddocs 'Open docname :vlax-false) (setq wrddoc (vlax-get-property wrdapp 'Activedocument)) (vlax-invoke-method wrddoc 'Activate) (setq sel (goto_start wrdapp)) (write_header wrdapp "Type Header Text Here") (write_to_end wrdapp "Now it is the last line in the document" ) (write_to_place wrdapp 2 "Now it is the first sentense in the second line in the document" ) (write_footer wrdapp "Type Footer Text Here") (vlax-put-property wrdapp 'ScreenUpdating :vlax-true) (vlax-invoke-method wrddoc 'Saveas docname ) (vlax-invoke-method wrddoc 'Close) (vlax-invoke-method wrdapp 'Quit) (mapcar (function (lambda (x) (vl-catch-all-apply (function (lambda () (progn (vlax-release-object x) (setq x nil) ) ) ) ) ) ) (list wrddoc wrddocs wrdapp) ) (gc) (princ) ) (prompt "\n\t\t>>>\tType DEMO2 to execute\t<<<" ) (prin1) ~'J'~

Play around this one You can easily write your own user defined function I called them 'helpers' ;;demo.lsp ;; helpers (defun write_to_end (wrdapp text / endrange) (setq endrange (vlax-get-property (vlax-get-property (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'Paragraphs) 'Last ) 'Range ) ) (vlax-invoke-method endrange 'InsertAfter text) ) (defun write_to_place (wrdapp num text / endrange) (setq endrange (vla-item (vlax-get-property (vlax-get-property wrdapp 'ActiveDocument) 'Sentences) num ) ) (vlax-invoke-method endrange 'InsertAfter text) ) ;; main prog (defun C:demo(/ docname wrdapp wrddoc wrddocs wrdrange) (setq docname (getfiled "Select Word Document" (getvar "dwgprefix") "doc;dot;*" 16)) (alert "Wait For Closing Word Application") (setq wrdapp (vlax-get-or-create-object "Word.Application")) (vla-put-visible wrdapp :vlax-true) (vlax-put-property wrdapp 'ScreenUpdating :vlax-false) (setq wrddocs (vlax-get-property wrdapp 'Documents)) (vlax-invoke-method wrddocs 'Open docname :vlax-false) (setq wrddoc (vlax-get-property wrdapp 'Activedocument)) (vlax-invoke-method wrddoc 'Activate) (write_to_end wrdapp "Now it is the last line in the document" ) (write_to_place wrdapp 2 "Now it is the first sentense in the second line in the document" ) (vlax-put-property wrdapp 'ScreenUpdating :vlax-true) (vlax-invoke-method wrddoc 'Saveas docname ) (vlax-invoke-method wrddoc 'Close) (vlax-invoke-method wrdapp 'Quit) (mapcar (function (lambda (x) (vl-catch-all-apply (function (lambda () (progn (vlax-release-object x) (setq x nil) ) ) ) ) ) ) (list wrddoc wrddocs wrdapp) ) (gc) (princ) ) (prompt "\n\t\t>>>\tType DEMO to execute\t<<<" ) (prin1) ~'J'~