请教各位大佬代码修改的思路

chen3732088

打算做一个多段线生成铝板的代码，但只能实现正方向拐角圆角的大小，在反方向拐角的圆角大小是反的，请求指导一下修改的思路;
另外现在的代码，当画出两条或以上的多段线后，再运行选择其中一条多段线生成铝板，出现图片中的结果，请问代码中哪里出问题？

2. (defun C:FP ()
   
3.   (vl-load-com)
   
4.   (setq S1 (entsel "\n选择线:"))
   
5.   (setq PO (getpoint "\n指定偏移方向:"))
   
6.   (command "OFFSET" 3 S1 PO "");偏移铝板厚度3mm
   
7.   (setq S2 (entlast))
   
8.   (command "FILLET" "R" 4 "");圆角4mm
   
9.   (command "FILLET" "P" S1)
   
10.   (command "FILLET" "R" 1 "");圆角1mm
    
11.   (command "FILLET" "P" S2)
    
12.   (command "FILLET" "R" 0 "");恢复圆角0mm
    
13.   (setq PT1 (vlax-curve-getStartPoint (car S1)));获取S1开始点
    
14.   (setq PT2 (vlax-curve-getEndPoint   (car S1)));获取S1结束点
    
15.   (setq PT3 (vlax-curve-getStartPoint  S2));获取S2开始点
    
16.   (setq PT4 (vlax-curve-getEndPoint    S2));获取S2结束点
    
17.   (command "PLINE" PT1 PT3 "")
    
18.   (setq S3 (entlast))
    
19.   (command "PLINE" PT2 PT4 "")
    
20.   (setq S4 (entlast))
    
21.   (command "PEDIT" "M" S1 S2 S3 S4 "" "J" 0.0 "")
    
22.   (setq SS (entlast))
    
23.   (if (null (tblsearch "layer" "Alum._ Panel"))
    
24.       (command "layer" "m" "Alum._ Panel"  "C" "150" "" "L" "" "" ""))
    
25.   (if (null (tblsearch "layer" "Hatch_Alum."))
    
26.       (command "layer" "m" "Hatch_Alum."   "C" "253" "" "L" "" "" ""))
    
27.   (command "chprop" SS "" "La" "Alum._ Panel" "")
    
28.   (command "layer" "s" "Hatch_Alum." "")
    
29.   (command "-bhatch" "P" "SOLID" 1 0 "s" SS "" "")
    
30.   (command "layer" "s" "0" "");返回0层
    
31.   (princ)
    
32. )

(defun C:FP ()<br />   (vl-load-com)<br />   (setq S1 (entsel "\n选择线:"))<br />   (setq PO (getpoint "\n指定偏移方向:"))<br />   (command "OFFSET" 3 S1 PO "");偏移铝板厚度3mm<br />   (setq S2 (entlast))<br />   (command "FILLET" "R" 4 "");圆角4mm<br />   (command "FILLET" "P" S1)<br />   (command "FILLET" "R" 1 "");圆角1mm<br />   (command "FILLET" "P" S2)<br />   (command "FILLET" "R" 0 "");恢复圆角0mm<br />   (setq PT1 (vlax-curve-getStartPoint (car S1)));获取S1开始点<br />   (setq PT2 (vlax-curve-getEndPoint   (car S1)));获取S1结束点<br />   (setq PT3 (vlax-curve-getStartPoint  S2));获取S2开始点<br />   (setq PT4 (vlax-curve-getEndPoint    S2));获取S2结束点<br />   (command "PLINE" PT1 PT3 "")<br />   (setq S3 (entlast))<br />   (command "PLINE" PT2 PT4 "")<br />   (setq S4 (entlast))<br />   (command "PEDIT" "M" S1 S2 S3 S4 "" "J" 0.0 "")<br />   (setq SS (entlast))<br />   (if (null (tblsearch "layer" "Alum._ Panel"))<br />       (command "layer" "m" "Alum._ Panel"  "C" "150" "" "L" "" "" ""))<br />   (if (null (tblsearch "layer" "Hatch_Alum."))<br />       (command "layer" "m" "Hatch_Alum."   "C" "253" "" "L" "" "" ""))<br />   (command "chprop" SS "" "La" "Alum._ Panel" "")<br />   (command "layer" "s" "Hatch_Alum." "")<br />   (command "-bhatch" "P" "SOLID" 1 0 "s" SS "" "")<br />   (command "layer" "s" "0" "");返回0层<br />   (princ)<br /> )

675513233

chen3732088 发表于 2025-1-4 18:00
自己试了下，先圆角再偏移就解决了

也是不了内外问题。。。。和楼主第一个图片一样

2. (defun C:FP ()
   
3.   (vl-load-com)
   
4.   (setq S1 (entsel "\n选择线:"))
   
5.   (setq PO (getpoint "\n指定偏移方向:"))
   
6.   (command "FILLET" "R" 4 "");圆角4mm
   
7.   (command "FILLET" "P" S1)
   
8.   (command "OFFSET" 3 S1 PO "");偏移铝板厚度3mm
   
9.   (setq S2 (entlast))
   
10.   (command "FILLET" "R" 1 "");圆角1mm
    
11.   (command "FILLET" "P" S2)
    
12.   (command "FILLET" "R" 0 "");恢复圆角0mm
    
13.   (setq PT1 (vlax-curve-getStartPoint (car S1)));获取S1开始点
    
14.   (setq PT2 (vlax-curve-getEndPoint   (car S1)));获取S1结束点
    
15.   (setq PT3 (vlax-curve-getStartPoint  S2));获取S2开始点
    
16.   (setq PT4 (vlax-curve-getEndPoint    S2));获取S2结束点
    
17.   (if (null (tblsearch "layer" "Alum._ Panel"))
    
18.       (command "layer" "m" "Alum._ Panel"  "C" "150" "" "L" "" "" ""))
    
19.   (command "chprop" S1 "" "La" "Alum._ Panel" "")
    
20.   (command "chprop" S2 "" "La" "Alum._ Panel" "")
    
21.   (princ)
    
22. )

(defun C:FP ()<br />   (vl-load-com)<br />   (setq S1 (entsel "\n选择线:"))<br />   (setq PO (getpoint "\n指定偏移方向:"))<br />   (command "FILLET" "R" 4 "");圆角4mm<br />   (command "FILLET" "P" S1)<br />   (command "OFFSET" 3 S1 PO "");偏移铝板厚度3mm<br />   (setq S2 (entlast))<br />   (command "FILLET" "R" 1 "");圆角1mm<br />   (command "FILLET" "P" S2)<br />   (command "FILLET" "R" 0 "");恢复圆角0mm<br />   (setq PT1 (vlax-curve-getStartPoint (car S1)));获取S1开始点<br />   (setq PT2 (vlax-curve-getEndPoint   (car S1)));获取S1结束点<br />   (setq PT3 (vlax-curve-getStartPoint  S2));获取S2开始点<br />   (setq PT4 (vlax-curve-getEndPoint    S2));获取S2结束点<br />   (if (null (tblsearch "layer" "Alum._ Panel"))<br />       (command "layer" "m" "Alum._ Panel"  "C" "150" "" "L" "" "" ""))<br />   (command "chprop" S1 "" "La" "Alum._ Panel" "")<br />   (command "chprop" S2 "" "La" "Alum._ Panel" "")<br />   (princ)<br /> )

xyp1964

1. (defun c:tt ()
   
2.   "倒角优化"
   
3.   (setvar "cmdecho" 0)
   
4.   (or dd (setq dd 20.))
   
5.   (setq dd (Udist 7 "" "倒角距离<输入或鼠标直接量取>" dd nil))
   
6.   (setvar 'CHAMFERA dd)
   
7.   (setvar 'CHAMFERB dd)
   
8.   (command "chamfer" "u")
   
9.   (princ)
   
10. )

(defun c:tt ()<br />   "倒角优化"<br />   (setvar "cmdecho" 0)<br />   (or dd (setq dd 20.))<br />   (setq dd (Udist 7 "" "倒角距离<输入或鼠标直接量取>" dd nil))<br />   (setvar 'CHAMFERA dd)<br />   (setvar 'CHAMFERB dd)<br />   (command "chamfer" "u")<br />   (princ)<br /> )

chen3732088

675513233 发表于 2025-1-5 20:56
好像不行，我不需要填充和铝板线头尾闭合连线，能否改一下给我看看。谢谢大哥

抱歉，这种也不行，我的思路是错的，当时快下班没试验过

chen3732088

能不能偏移后打散，再判断两线与X轴之间的角度？

chen3732088

自己试了下，先圆角再偏移就解决了

完美

反方向的话S1对应的就是圆角1mm了，不是4mm

完美

完美 发表于 2025-1-4 23:16
反方向的话S1对应的就是圆角1mm了，不是4mm

刚才理解错楼主的意思了，抱歉，请忽略我的回答

xyp1964

(command "fillet" "r" 4 “”) 类似都多了一个回车

675513233

chen3732088 发表于 2025-1-4 18:00
自己试了下，先圆角再偏移就解决了

好像不行，我不需要填充和铝板线头尾闭合连线，能否改一下给我看看。谢谢大哥