CAD新军 发表于 2019-3-24 01:33:18

好用的，解决了我的问题。感谢楼主。

alexmai 发表于 2019-3-24 21:47:10

一直在用旧版，很好用，可惜我的图框是外部参照，每次使用到要选一次，

请问最新 SmartBatchPlot 版本在哪里下载？能记住上次选的外部参照图框吗？

自贡黄明儒 发表于 2019-3-25 15:22:55

小菜123 发表于 2018-12-6 09:40
(getvar "lastprompt")永远返回："Command: (getvar \"lastprompt\")"
CAD2005

看来2005版还是用(command "_.copyhist")处理好些。

念悬工具箱 发表于 2019-12-23 12:56:13

(defun c:nx_jzcx ( / str1 nn str html adver    )

(if (not (menugroup "念悬工具箱"))            
    (progn
(princ "\n程序正在加载中……");乱世江湖，只需一句不需愁

;acad也可以用lastprompt的方法的,这里只是展示_.copyhist的用法,但是浩辰无法用lastprompt
                   (setq
                     str1 (getvar "lastprompt")         ;获得最后一行命令
                     nn (vl-string-search "(LOAD \"" str1);在字符串中搜索指定子串
                   )
                   (if nn
(progn ;是执行
            ;字符串处理,得到完整路径:

                  (command "_.copyhist")
                     (setq html (vlax-create-object "htmlfile"))
                     (setq str (vlax-invoke-method (vlax-get (vlax-get html 'parentwindow) 'clipboarddata) 'getdata "text")
                           str (strcase (if (= (type str) 'variant) (vlax-variant-value str) str))
                     )

                  (setq str (vl-string-right-trim " " str))
                  (while (vl-string-search "\r\n" str)
                           (setq str (vl-string-subst "" "\r\n" str))
                  )

                  (while (setq nn (vl-string-search "(LOAD \"" str))
                           (setq str (substr str (+ nn 8)))
                  )

                  (and (setq nn (vl-string-search "\")" str))
                         (setq str (substr str 1 (1+ nn))) ;file name
                  )

                  (setq str (vl-filename-directory (vl-string-translate "/" "\\" str)))
                  (setq str ( strcat str "\\"))
                  (setq *nxljpa* str)
                  (and html (vlax-release-object html))
                );progn

(progn
    (setq str (vl-registry-read (strcat "HKEY_CURRENT_USER\\" (vlax-product-key) "\\Profiles\\" (getvar "CPROFILE") "\\Dialogs\\Appload") "MainDialog"))
                  (setq *nxljpa* str)
    )

                   );if

;;********
(setq adver (atof (getvar "acadver")))
(if(>= adver 19.1)
    (progn
(nx:tj_trustedpaths)
(nx:add_sfsp)
(nx:createnxgjx)
   )
    (progn
(nx:add_sfsp)
(nx:createnxgjx)
   )
)
;;********


)
)
(princ)
);end

念悬工具箱 发表于 2019-12-23 12:59:48

逛遍了明经与晓东，还是这个最靠谱

言戲無軍 发表于 2020-2-24 01:28:20

念悬工具箱 发表于 2019-12-23 12:59
逛遍了明经与晓东，还是这个最靠谱

确实 你这个获取路径应该是最完善的一个。

zhangkui9070 发表于 2022-10-4 21:33:55

很厉害！非常有借鉴意义:loveliness:

13763815647 发表于 2024-9-26 14:56:52

帮了大忙了。论坛找遍了，就你这个最实用

shirker 发表于 2024-10-4 10:21:30

学习一下了

dolcat 发表于 2024-10-13 13:27:55

学习一下了
页: 1 [2] 3
查看完整版本: 获取LSIP、FAS、VLX程序自身加载路劲