求大佬帮忙弄个小插件

amook147

我绘制图纸经常要用到偏移功能   有时候需要删除原线段 有时候不需要删除  来回设置太麻烦了

想让大佬们帮忙弄个偏移然后删除原图的小插件    不需要删除我就用自带的偏移    需要删除我就用插件中的偏移  不需要来回设置 需不需要删除了

layys

move就行了啊。

kozmosovia

这么简单的，别找人，找AI就行了

自贡黄明儒

(defun C:Off ()
  (setq e (car(entsel)))
  (vl-cmdf "_offset" "T" e pause "")
  (entdel e)
  (princ)
)

ludaweb

自贡黄明儒 发表于 2025-5-21 16:50
(defun C:Off ()
  (setq e (car(entsel)))
  (vl-cmdf "_offset" "T" e pause "")

好用，但是不能精确offset。在大神基础上发挥一下。

2. (defun c:oe ()
   
3. (vl-cmdf "_offset" "e" "y" "" "e")
   
4. (vl-cmdf "_offset")
   
5. )
   
6. (defun c:oo ()
   
7. (vl-cmdf "_offset" "e" "n" "" "e")
   
8. (vl-cmdf "_offset")
   
9. )

(defun c:oe ()<br /> (vl-cmdf "_offset" "e" "y" "" "e")<br /> (vl-cmdf "_offset")<br /> )<br /> (defun c:oo ()<br /> (vl-cmdf "_offset" "e" "n" "" "e")<br /> (vl-cmdf "_offset")<br /> )

hhh454

代码如下：启动命令tt（对话框是猫老师dcl工具自动生成）

1. (defun c:tt();此部分是测试代码用
   
2.   (Form1_load)
   
3. )
   
4. 
   
5. (defun Form1_load( / dcl_id Dialog_Return key keys Dcl_File)
   
6.   (vl-load-com)
   
7.   (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl_Form1))));对话框加载
   
8.   (vl-file-delete Dcl_File);加载后删除DCL文件
   
9.   (setq Dialog_Return 2)
   
10.   (while (> Dialog_Return 1) ;循环控制对话框是否结束
    
11.     (new_dialog "Form1" dcl_id);建立窗体
    
12. ;-->-->-对话框初始化->-->--
    
13.     (setq keys '("Text1" "Command1" "Command2" "Command3" "Command4" "accept" "cancel"));列表全部控件名称
    
14.     (foreach key keys;全部控件的初始化
    
15.       (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容
    
16.       (action_tile key "(Action_Form1_Keys $key $value)");点击动作
    
17.     )
    
18. ;--<--<-对话框初始化完成-<--<--
    
19.     (setq Dialog_Return (start_dialog));开启对话框(用户可见)
    
20.                 (setq d (read Text1_bak))
    
21.                 (if (= Dialog_Return -2)(ngcoo1))
    
22.                 (if (= Dialog_Return -3)(ngcoo2))
    
23.                 (if (= Dialog_Return -4)(ngcoo3))
    
24.                 (if (= Dialog_Return -5)(ngcoo4))
    
25.   )
    
26.   (unload_dialog dcl_id);退出时卸载对话框
    
27.   (princ);防止函数回显
    
28. )
    
29. 
    
30. (defun Action_Form1_Keys (key value) ;全部控件的点击动作触发
    
31.   (cond
    
32.     ((= key "accept") ;{确认按钮}
    
33.       
    
34.       (Get_Form1_Data)
    
35.       (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1
    
36.     )
    
37.     ((= key "cancel") ;{取消按钮}
    
38.       
    
39.       (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0
    
40.     )
    
41.     ((= key "Command1") ; {"删除原线"} (按钮)
    
42.                                   (Get_Form1_Data)
    
43.       (done_dialog -2)
    
44.     )
    
45.     ((= key "Command2") ; {"保留原线"} (按钮)
    
46.                                   (Get_Form1_Data)
    
47.       (done_dialog -3)
    
48.     )
    
49.     ((= key "Command3") ; {"删除原线"} (按钮)
    
50.                                   (Get_Form1_Data)
    
51.       (done_dialog -4)
    
52.     )
    
53.     ((= key "Command4") ; {"保留原线"} (按钮)
    
54.                                   (Get_Form1_Data)
    
55.       (done_dialog -5)
    
56.     )
    
57.   )
    
58. )
    
59. (defun Get_Form1_Data( / key);临时生成Dcl文件 返回文件名
    
60.   (foreach key keys
    
61.     (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化
    
62.   )
    
63. )
    
64. (defun Write_Dcl_Form1( / Dcl_File file str)
    
65.   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))
    
66.   (setq file (open Dcl_File "w"))
    
67.   (foreach str '(
    
68.     "Form1:dialog"
    
69.     "{"
    
70.     " label = \"偏移工具\";"
    
71.     "    :boxed_column"
    
72.     "    {"
    
73.     "     label = \"数据和功能\" ;"
    
74.     "        :edit_box"
    
75.     "        {"
    
76.     "            key = \"Text1\" ;"
    
77.     "            label = \"偏移间距\" ;"
    
78.     "            width = 15.75 ;"
    
79.     "            height = 0.9375 ;"
    
80.     "        }"
    
81.     "        :button"
    
82.     "        {"
    
83.     "            key = \"Command1\" ;"
    
84.     "            label = \"删除原线带距离\" ;"
    
85.     "            width = 15.75 ;"
    
86.     "            height = 1.875 ;"
    
87.     "        }"
    
88.     "        :button"
    
89.     "        {"
    
90.     "            key = \"Command2\" ;"
    
91.     "            label = \"保留原线带距离\" ;"
    
92.     "            width = 15.75 ;"
    
93.     "            height = 1.875 ;"
    
94.     "        }"
    
95.     "        :button"
    
96.     "        {"
    
97.     "            key = \"Command3\" ;"
    
98.     "            label = \"删除原线无距离\" ;"
    
99.     "            width = 15.75 ;"
    
100.     "            height = 1.875 ;"
     
101.     "        }"
     
102.     "        :button"
     
103.     "        {"
     
104.     "            key = \"Command4\" ;"
     
105.     "            label = \"保留原线无距离\" ;"
     
106.     "            width = 15.75 ;"
     
107.     "            height = 1.875 ;"
     
108.     "        }"
     
109.     "    }"
     
110.     "ok_cancel ;"
     
111.     "}"
     
112.     )
     
113.     (write-line str file)
     
114.   )
     
115.   (close file)
     
116.   Dcl_File
     
117. )
     
118. (defun ngcoo1  ()
     
119. (setq e (car(entsel)))
     
120.   (vl-cmdf "_offset" d e pause "")
     
121.   (entdel e)
     
122.   (princ)
     
123.   )
     
124. (defun ngcoo2  ()
     
125. (setq e (car(entsel)))
     
126.   (vl-cmdf "_offset" d e pause "")
     
127.   (princ)
     
128.   )
     
129. (defun ngcoo3  ()
     
130. (setq e (car(entsel)))
     
131.   (vl-cmdf "_offset" "T" e pause "")
     
132.   (entdel e)
     
133.   (princ)
     
134.   )
     
135. (defun ngcoo4  ()
     
136. (setq e (car(entsel)))
     
137.   (vl-cmdf "_offset" "T" e pause "")
     
138.   (princ)
     
139.   )

(defun c:tt();此部分是测试代码用<br />   (Form1_load)<br /> )<br /> <br /> (defun Form1_load( / dcl_id Dialog_Return key keys Dcl_File)<br />   (vl-load-com)<br />   (setq dcl_id (load_dialog (setq Dcl_File (Write_Dcl_Form1))));对话框加载<br />   (vl-file-delete Dcl_File);加载后删除DCL文件<br />   (setq Dialog_Return 2)<br />   (while (> Dialog_Return 1) ;循环控制对话框是否结束<br />     (new_dialog "Form1" dcl_id);建立窗体<br /> ;-->-->-对话框初始化->-->--<br />     (setq keys '("Text1" "Command1" "Command2" "Command3" "Command4" "accept" "cancel"));列表全部控件名称<br />     (foreach key keys;全部控件的初始化<br />       (if (eval (read (strcat key "_bak"))) (set_tile key (eval (read (strcat key "_bak")))));控件内容<br />       (action_tile key "(Action_Form1_Keys $key $value)");点击动作<br />     )<br /> ;--<--<-对话框初始化完成-<--<--<br />     (setq Dialog_Return (start_dialog));开启对话框(用户可见)<br />                 (setq d (read Text1_bak))<br />                 (if (= Dialog_Return -2)(ngcoo1))<br />                 (if (= Dialog_Return -3)(ngcoo2))<br />                 (if (= Dialog_Return -4)(ngcoo3))<br />                 (if (= Dialog_Return -5)(ngcoo4))<br />   )<br />   (unload_dialog dcl_id);退出时卸载对话框<br />   (princ);防止函数回显<br /> )<br /> <br /> (defun Action_Form1_Keys (key value) ;全部控件的点击动作触发<br />   (cond<br />     ((= key "accept") ;{确认按钮}<br />       <br />       (Get_Form1_Data)<br />       (done_dialog 1);对话框退出返回主函数 传递给Dialog_Return值为1<br />     )<br />     ((= key "cancel") ;{取消按钮}<br />       <br />       (done_dialog 0);对话框退出返回主函数 传递给Dialog_Return值为0<br />     )<br />     ((= key "Command1") ; {"删除原线"} (按钮)<br />                                   (Get_Form1_Data)<br />       (done_dialog -2)<br />     )<br />     ((= key "Command2") ; {"保留原线"} (按钮)<br />                                   (Get_Form1_Data)<br />       (done_dialog -3)<br />     )<br />     ((= key "Command3") ; {"删除原线"} (按钮)<br />                                   (Get_Form1_Data)<br />       (done_dialog -4)<br />     )<br />     ((= key "Command4") ; {"保留原线"} (按钮)<br />                                   (Get_Form1_Data)<br />       (done_dialog -5)<br />     )<br />   )<br /> )<br /> (defun Get_Form1_Data( / key);临时生成Dcl文件 返回文件名<br />   (foreach key keys<br />     (set (read (strcat key "_bak")) (get_tile key));每个控件都赋给一个变量 用于下次开启初始化<br />   )<br /> )<br /> (defun Write_Dcl_Form1( / Dcl_File file str)<br />   (setq Dcl_File (vl-filename-mktemp nil nil ".Dcl"))<br />   (setq file (open Dcl_File "w"))<br />   (foreach str '(<br />     "Form1:dialog"<br />     "{"<br />     " label = \"偏移工具\";"<br />     "    :boxed_column"<br />     "    {"<br />     "     label = \"数据和功能\" ;"<br />     "        :edit_box"<br />     "        {"<br />     "            key = \"Text1\" ;"<br />     "            label = \"偏移间距\" ;"<br />     "            width = 15.75 ;"<br />     "            height = 0.9375 ;"<br />     "        }"<br />     "        :button"<br />     "        {"<br />     "            key = \"Command1\" ;"<br />     "            label = \"删除原线带距离\" ;"<br />     "            width = 15.75 ;"<br />     "            height = 1.875 ;"<br />     "        }"<br />     "        :button"<br />     "        {"<br />     "            key = \"Command2\" ;"<br />     "            label = \"保留原线带距离\" ;"<br />     "            width = 15.75 ;"<br />     "            height = 1.875 ;"<br />     "        }"<br />     "        :button"<br />     "        {"<br />     "            key = \"Command3\" ;"<br />     "            label = \"删除原线无距离\" ;"<br />     "            width = 15.75 ;"<br />     "            height = 1.875 ;"<br />     "        }"<br />     "        :button"<br />     "        {"<br />     "            key = \"Command4\" ;"<br />     "            label = \"保留原线无距离\" ;"<br />     "            width = 15.75 ;"<br />     "            height = 1.875 ;"<br />     "        }"<br />     "    }"<br />     "ok_cancel ;"<br />     "}"<br />     )<br />     (write-line str file)<br />   )<br />   (close file)<br />   Dcl_File<br /> )<br /> (defun ngcoo1  ()<br /> (setq e (car(entsel)))<br />   (vl-cmdf "_offset" d e pause "")<br />   (entdel e)<br />   (princ)<br />   )<br /> (defun ngcoo2  ()<br /> (setq e (car(entsel)))<br />   (vl-cmdf "_offset" d e pause "")<br />   (princ)<br />   )<br /> (defun ngcoo3  ()<br /> (setq e (car(entsel)))<br />   (vl-cmdf "_offset" "T" e pause "")<br />   (entdel e)<br />   (princ)<br />   )<br /> (defun ngcoo4  ()<br /> (setq e (car(entsel)))<br />   (vl-cmdf "_offset" "T" e pause "")<br />   (princ)<br />   )

直接下载和上面的一样：

amook147

ludaweb 发表于 2025-5-21 18:29
好用，但是不能精确offset。在大神基础上发挥一下。

你这个有个小BUG  oe删除  但是o也带删除了   oe不删除  o也不删除了  没区别啊。。。

uualice2020

uualice2020

uualice2020 发表于 2025-5-21 20:55

已增加删除原图代码

ludaweb

amook147 发表于 2025-5-21 19:14
你这个有个小BUG  oe删除  但是o也带删除了   oe不删除  o也不删除了  没区别啊。。。

oe删除
oo不删除

如果你想一劳永逸，就用这个把系统的o替换掉。

2. (defun c:oe ()
   
3. (vl-cmdf "_offset" "e" "y" "" "e")
   
4. (vl-cmdf "_offset")
   
5. )
   
6. (defun c:o ()
   
7. (vl-cmdf "_offset" "e" "n" "" "e")
   
8. (vl-cmdf "_offset")
   
9. )

(defun c:oe ()<br /> (vl-cmdf "_offset" "e" "y" "" "e")<br /> (vl-cmdf "_offset")<br /> )<br /> (defun c:o ()<br /> (vl-cmdf "_offset" "e" "n" "" "e")<br /> (vl-cmdf "_offset")<br /> )