关于支持路径的一个问题？
本帖最后由 尘缘一生 于 2021-10-28 18:51 编辑一个标准的CAD，它的支持路是图一这样的（重置CAD，就能看出来是这格式）。
但对于一些非标开发的工具箱，安装后，它会把支持路径后面，全给改了加个斜杠
这个问题非同小可，为什么不与CAD标准符合，还是故意为之，不好说，但说这个问题如何解决，也没查出来，这个斜杆是不是系统变量控制，好像不是。
这个斜杆，会造成工具箱的冲突，不能安装，不能兼容，并且会造成频繁，BASE.DCL丢失。解决这个问题，可以代码配套适合这两种，是可以办到的，然而，你会发现即便你卸载了这些非标工具，你CAD还是崩溃的，重置都不行！所以一些工具，不要随便安装了。
没怎么装工具箱,没遇到过 你的工具最多 本帖最后由 尘缘一生 于 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
[*])
为解决此问题，我专门写了处理函数。
那就是，我们不管别人怎么作的，要叫自己的，不变应万变。
页:
[1]