Enable to start the Ansys Classics GUI

apdl-mode.el

@@ -1,5 +1,5 @@
 ;;; apdl-mode.el --- Major mode for the scripting language APDL -*- lexical-binding: t -*-
-;; Time-stamp: <2020-03-29>
+;; Time-stamp: <2020-03-31>
 
 ;; Copyright (C) 2006 - 2020  H. Dieter Wilhelm GPL V3
 
@@ -1183,13 +1183,13 @@ number vXXX (apdl-ansys-install-directory)"]
 (apdl-license)"]
    ["Change Job Name of Run" apdl-job
     :label (concat "Change Job Name [" apdl-job "]")
-    :visible apdl-is-unix-system-flag
+    ;; :visible apdl-is-unix-system-flag
     :help "Specify the job name for an solver/interpreter
    run (apdl-job)"]
    ["Change the No of Processors" apdl-no-of-processors
     :label (format "Change the Number of Processors [%d]"
                    apdl-no-of-processors)
-    :visible apdl-is-unix-system-flag
+    ;; :visible apdl-is-unix-system-flag
     :help "Specify the number of processors to use for the Ansys
 run definition (apdl-no-of-processors)"]
    "--"
@@ -1212,7 +1212,7 @@ used (apdl-user-license-status)"
 (apdl-start-launcher)"]
    ["Ansys MAPDL Classics GUI" apdl-start-classics
     :active (and apdl-ansys-program (file-executable-p apdl-ansys-program))
-    :visible apdl-is-unix-system-flag ; -TODO- can't get it to run!
+    ;;    :visible apdl-is-unix-system-flag
     :help "Start the Ansys Classics MAPDL
    GUI (apdl-start-classics)"]
    ["Start Interactive Solver/Interpreter" apdl-start-ansys

apdl-mode.info

@@ -3057,6 +3057,10 @@ File: apdl-mode.info,  Node: Todos bugs,  Next: minor bugs,  Up: Version 2040 1
 12.2.1 Todos, bugs
 ------------------
 
+   • apdl-start-ansys (make-comint) - doesn’t start the launcher under
+     windows
+   • apdl-start-classics (start-process) -
+
 * Menu:
 
 * State of documentation::
@@ -4433,36 +4437,36 @@ Node: Todos125979
 Node: Version 2050 ?126317
 Node: Version 2040 1126444
 Node: Todos bugs126730
-Node: State of documentation126889
-Node: minor bugs129584
-Node: check129951
-Node: wishes130146
-Node: templates130295
-Node: misc130630
-Node: Done131062
-Node: Release proceedures131188
-Node: Version 2030 1131859
-Node: Version 2020 1132079
-Node: Version 2011 1132259
-Node: Version 162-2132731
-Node: Bugs133009
-Node: Freeze133978
-Node: Wish-list134335
-Node: Deficiencies140451
-Node: Procedures142112
-Node: Freeze proceedures142634
-Node: Release144161
-Node: Ideas for further versions144764
-Node: Parameter help and documentation145195
-Node: Ansys process and interpreter buffer147497
-Node: Skeletons outline and abbrevs150360
-Node: Miscellaneous 1152092
-Node: Ansys syntax restrictions not (yet) accounted for157082
-Node: Unknown Ansys stuff157985
-Node: Acknowledgements158268
-Node: GNU Free Documentation License158838
-Node: Variable Index183864
-Node: Concept Index184013
+Node: State of documentation127023
+Node: minor bugs129718
+Node: check130085
+Node: wishes130280
+Node: templates130429
+Node: misc130764
+Node: Done131196
+Node: Release proceedures131322
+Node: Version 2030 1131993
+Node: Version 2020 1132213
+Node: Version 2011 1132393
+Node: Version 162-2132865
+Node: Bugs133143
+Node: Freeze134112
+Node: Wish-list134469
+Node: Deficiencies140585
+Node: Procedures142246
+Node: Freeze proceedures142768
+Node: Release144295
+Node: Ideas for further versions144898
+Node: Parameter help and documentation145329
+Node: Ansys process and interpreter buffer147631
+Node: Skeletons outline and abbrevs150494
+Node: Miscellaneous 1152226
+Node: Ansys syntax restrictions not (yet) accounted for157216
+Node: Unknown Ansys stuff158119
+Node: Acknowledgements158402
+Node: GNU Free Documentation License158972
+Node: Variable Index183998
+Node: Concept Index184147
 
 End Tag Table
 

apdl-process.el

@@ -240,7 +240,8 @@ Return nil if we can't find an MAPDL GUI."
 (defun apdl-start-classics ()
   "Start the Ansys MAPDL Classics graphical user interface.
 The output of the solver is captured in an Emacs buffer called
-*Classics*."
+*Classics* under GNU-Linux.  Under Windows it is not possible to
+capture the output."
   (interactive)
   (let ((bname (concat "*"apdl-classics-process"*")))
     (when (file-readable-p (concat default-directory apdl-job ".lock"))
@@ -258,7 +259,7 @@ The output of the solver is captured in an Emacs buffer called
           (if (> apdl-no-of-processors 4)
               (concat ", No of procs: " (number-to-string apdl-no-of-processors))
             "")
-          ", job: " (if (boundp 'apdl-job) apdl-job)
+          ", job: " apdl-job
           " in " default-directory ", lic server: " apdl-license-file " "))
         (message "Starting MAPDL in GUI mode (Ansys Classics) ...")
       (error "Calling MAPDL solver (Ansys Classics) cancelled"))
@@ -274,12 +275,16 @@ The output of the solver is captured in an Emacs buffer called
 		       bname
 		     nil)
                    apdl-ansys-program
-                   (concat " -g"
-			   (concat " -p " apdl-license)
-                           (concat " -np " (number-to-string apdl-no-of-processors))
-                           (concat " -j \"" apdl-job "\"")
-                           " -d 3D" ; 3d device, win32
-                           ))
+                   "-g"
+		   "-p" apdl-license
+		   "-lch"
+		   "-np" (number-to-string apdl-no-of-processors)
+		   "-j" apdl-job
+		   "-s read"
+		   "-l en-us"
+		   "-t"
+		   "-d 3D" ; 3d device, win32
+		   )
     (display-buffer bname 'other-window)))
 
 (defun apdl-start-launcher ()
@@ -602,12 +607,23 @@ initial input."
                                apdl-process-name)) (concat s "\n"))
       (display-buffer (concat "*" apdl-process-name "*") 'other-window)))))
 
+;; from procuct launcher:
+;; "C:\CAx\App\ANSYS Inc\v201\ansys\bin\winx64\MAPDL.exe"  -g -p ansys -lch -dir "H:\" -j "file" -s read -l en-us -t -d 3D
+
+
 (defun apdl-start-mapdl ()
   "Start the MAPDL interpreter (Ansys Classics) under Windows."
   (interactive)
+  ;(setq default-directory "c:/CAx/")
   (start-process   ; asynchronous process
-   "MAPDL" "*MAPDL*" apdl-ansys-program
-   "-g -p " apdl-license " -j \"" apdl-job "\""))
+   "MAPDL" "*MAPDL*" ; "c:/CAx/App/ANSYS Inc/v201/ansys/bin/winx64/MAPDL.exe"
+   apdl-ansys-program
+      "-g" "-p" apdl-license "-lch" (concat "-j " apdl-job) "-s read" "-l en-us" "-t" "-d 3D"
+;;      (concat "-g -p " apdl-license " -j " apdl-job "-d 3D")
+;;      (concat " -g -p " apdl-license )
+      ;; (concat "-dir " default-directory)
+   ))
+
 
 ;;;###autoload
 (defun apdl-start-ansys ()

info/TODO.md

@@ -1,21 +1,21 @@
 
 # Table of Contents
 
-1.  [Version 20.5.0 ?](#org4c764d0)
-2.  [Version 20.4.0](#orgb9c7b85)
-3.  [Version 20.3.0](#org0dc2aab)
-4.  [Version 20.2.0](#orgcf7051a)
-5.  [Version 20.1.1](#org361ffca)
-6.  [Version 162-2:](#org1e55ca1)
+1.  [Version 20.5.0 ?](#orgd49629d)
+2.  [Version 20.4.0](#org715d40b)
+3.  [Version 20.3.0](#org641137f)
+4.  [Version 20.2.0](#orgdab2f13)
+5.  [Version 20.1.1](#org4a5c4c1)
+6.  [Version 162-2:](#orgd7e5a24)
 
 
 
-<a id="org4c764d0"></a>
+<a id="orgd49629d"></a>
 
 # Version 20.5.0 ?
 
 
-<a id="orgb9c7b85"></a>
+<a id="org715d40b"></a>
 
 # TODO Version 20.4.0
 
@@ -24,6 +24,10 @@ updated to 2020R1
 
 ## Todos, bugs
 
+-   apdl-start-ansys (make-comint) - doesn't start the launcher under
+    windows
+-   apdl-start-classics (start-process) -
+
 
 ### State of documentation
 
@@ -176,7 +180,7 @@ APDL<sub>PATCH</sub> := 0
 (tags-search "((emacs \\"25.1\\"))")
 
 
-<a id="org0dc2aab"></a>
+<a id="org641137f"></a>
 
 # DONE Version 20.3.0
 
@@ -185,14 +189,14 @@ Melpa
 feature freeze <span class="timestamp-wrapper"><span class="timestamp">[2020-03-20 Fri]</span></span>
 
 
-<a id="orgcf7051a"></a>
+<a id="orgdab2f13"></a>
 
 # DONE Version 20.2.0
 
 <span class="timestamp-wrapper"><span class="timestamp">[2020-03-10 Tue]</span></span>
 
 
-<a id="org361ffca"></a>
+<a id="org4a5c4c1"></a>
 
 # DONE Version 20.1.1
 
@@ -205,7 +209,7 @@ feature freeze <span class="timestamp-wrapper"><span class="timestamp">[2020-03-
 -   bug-report about package.el "NAME-readme.txt", done
 
 
-<a id="org1e55ca1"></a>
+<a id="orgd7e5a24"></a>
 
 # Version 162-2:
 

info/TODO.org

@@ -112,6 +112,9 @@
      the respective page section on Chrome and Edge!?
    - 1/en, en is variable but fraction not fontified?
 ** check
+   - apdl-start-ansys (make-comint) - doesn't start the launcher under
+     windows, but is redundant with -start-classics
+   - apdl-start-classics (start-process)
    - changed file size without warning to 30 MB what is Emacs-26
      using?
 ** wishes