关于支持路径的一个问题？

尘缘一生 · 发表于 2021-10-27 09:12

本帖最后由尘缘一生于 2021-10-28 18:51 编辑

一个标准的CAD，它的支持路是图一这样的（重置CAD，就能看出来是这格式）。
但对于一些非标开发的工具箱，安装后，它会把支持路径后面，全给改了加个斜杠
这个问题非同小可，为什么不与CAD标准符合，还是故意为之，不好说，但说这个问题如何解决，也没查出来，这个斜杆是不是系统变量控制，好像不是。

这个斜杆，会造成工具箱的冲突，不能安装，不能兼容，并且会造成频繁，BASE.DCL丢失。解决这个问题，可以代码配套适合这两种，是可以办到的，然而，你会发现即便你卸载了这些非标工具，你CAD还是崩溃的，重置都不行！所以一些工具，不要随便安装了。

tigcat · 发表于 2021-10-27 22:16

没怎么装工具箱,没遇到过

wzg356 · 发表于 2021-10-27 23:23

你的工具最多

尘缘一生 · 发表于 2021-10-28 18:46

本帖最后由尘缘一生于 2021-10-28 18:57 编辑

wzg356 发表于 2021-10-27 23:23
你的工具最多

我没有什么其他工具，需要我自己就开发了，只是爱好研究问题罢了，这个问题，我发现了，希望本坛有人说出解决根本在哪里？

;;去除路径最后 "\\" 控制三领路径正确---(一级)------
(defun slpath (str / len)
(setq str (slreverstr str))
(setq len (strlen str))
(while (= (substr str 1 1) "\\")
(setq str (substr str 2 (- len 1)))
)
(if (not (wcmatch str "*三领设计*")) ;;无三领路径
(setq str (slreverstr str))
(setq sl-path0 (slreverstr str))
)
str
)
;;倒置字符串--(一级)-----------
(defun slreverstr (str / a b)
(setq b "")
(while (> str "")
(if (< (ascii (substr str 1 1)) 129)
(setq b (strcat (substr str 1 1) b) str (substr str 2))
(setq b (strcat (substr str 1 2) b) str (substr str 3))
)
)
b
)

为解决此问题，我专门写了处理函数。
那就是，我们不管别人怎么作的，要叫自己的，不变应万变。

账号		自动登录	找回密码
密码			注册

[讨论] 关于支持路径的一个问题？

本帖子中包含更多资源