批量合并线段的工具有待改进

shqvc

XDTB_LineJoin   我不知道我说的工具和您们想的工具是不是一样   就是这个命令下的工具  它的默认是0.5  但是在很多图形里面  或者说某一些行业里面 它就已经很大了  但是在一些行业里面  这个数值又会显的小，
我建议这个默认数值  能不能让个人自定义   或是按上一次的数值  只要不键入新的数值   它就一直是上次键入的数值，比方说  我输入过一次0.05   下次开机开软件   这个墨认的值都是这个数    而我在把默认值输入成50的时候   下次开机开软件  也是按默认50。
或者是让使用者可以自定义默认值

王鹏_pBZlo

不知道XDTB_LineJoin是不是用的Pedit里的合并成多义线功能,如果是,可以试下下面这个
(defun linejoin(ss / rc par)
        (if (not rcpar) (setq rcpar 0.5))
        (setq rc (getreal (strcat "\n输入容差<" (rtos rcpar) ">:")))
        (if (not rc) (setq rc rcpar) (setq rcpar rc))
        (setq par (getvar "peditaccept"))
        (setvar "peditaccept" 1)
        (command "pedit" "M" ss "" "J" rc "")
        (setvar "peditaccept" par)
)

Lisphk

王鹏_pBZlo 发表于 2020-5-4 15:06
不知道XDTB_LineJoin是不是用的Pedit里的合并成多义线功能,如果是,可以试下下面这个
(defun linejoin(ss / ...

工具箱用的是API，不过从楼主反应看，他是想默认值关机后也能保存，你这个也不行，要实现，得保存到注册表或者文件里面

shqvc

Lisphk 发表于 2020-5-4 16:36
工具箱用的是API，不过从楼主反应看，他是想默认值关机后也能保存，你这个也不行，要实现，得保存到注册 ...

也可以这么理解吧    就是永远跟着上一次的键入值   或是可以自行更改默认值   而不是以工具箱系统的默认值为默认值。  就是可以把默认值自定义。  您理解吧

shqvc

Lisphk 发表于 2020-5-4 16:36
工具箱用的是API，不过从楼主反应看，他是想默认值关机后也能保存，你这个也不行，要实现，得保存到注册 ...

因为行业不同  所以需要的精度   和需求也是不一样的   所以如果可以自定义  就可以在更多的行业显的更加的好用

王鹏_pBZlo

把容差参数保存在注册表
修改容差命令:LineJoinRc
(defun linejoin(ss / rc par)
        (if (not (setq rc (vl-registry-read "HKEY_CURRENT_USER\\software\\Autodesk\\" "LineJoinRc")))
            (setq rc (vl-registry-write "HKEY_CURRENT_USER\\software\\Autodesk\\" "LineJoinRc" "0.5"))
        )
        (setq par (getvar "peditaccept"))
        (setvar "peditaccept" 1)
        (command "pedit" "M" ss "" "J" (atof rc) "")
        (setvar "peditaccept" par)
)
(defun c:LineJoinRc( / rc)
        (setq rc (vl-registry-read "HKEY_CURRENT_USER\\software\\Autodesk\\" "LineJoinRc"))
        (if (not rc) (setq rc "0.5"))
        (setq rc (getreal (strcat "\n输入新容差<" rc ">")))
        (if rc (vl-registry-write "HKEY_CURRENT_USER\\software\\Autodesk\\" "LineJoinRc" (rtos rc)))
        (princ)
)

aisong220

意思哥

貌似挺复杂的，

意思哥

貌似挺复杂的

shqvc

王鹏_pBZlo 发表于 2020-5-4 20:56
把容差参数保存在注册表
修改容差命令:LineJoinRc
(defun linejoin(ss / rc par)

谢谢王大神了  我试一下

shqvc

王鹏_pBZlo 发表于 2020-5-4 20:56
把容差参数保存在注册表
修改容差命令:LineJoinRc
(defun linejoin(ss / rc par)

没有成功    在运行里输入linejoinrc     提示找不到

王鹏_pBZlo

shqvc 发表于 2020-5-18 20:46
没有成功    在运行里输入linejoinrc     提示找不到

先运行一次linejoin, 再运行linejoinrc

既然青春留不住

shqvc

王鹏_pBZlo 发表于 2020-5-18 21:31
先运行一次linejoin, 再运行linejoinrc

CAD显示是未知命令系统提示是找不到文件   不过还是挺感谢王大神的