求贱人工具的折断线

KO你

guankuiwu 发表于 2025-7-17 14:11
好吧！见最终修改的附件。那个勾默认一直选上就可以了。奖励拿来

双折断线要一直打着勾才能延伸至断口，不勾就会有断口。能否像我上面说的那样，保留以前的那个双折线，你这个为双折线2    两种样式。
样式分别为：
单折线
双折线1
双折线2   注：默认打勾状态，面板不用显示出打勾。只显示样式按钮

你现在发出来的少了前面的样式了
等你完善奖励必须的哈

sachindkini

2. (defun c:tw3 (/ *scale* *extend* *type* dcl_id dcl_file f result pt1 pt2 ang dis x1 pt3 pt4 pt5 pt6 off up dn base_pts osd)
   
3.   (vl-load-com)
   
4. 
   
5.   ;; Initialize global variables
   
6.   (if (not (boundp '*breakline-scale*)) (setq *breakline-scale* 1.0))
   
7.   (if (not (boundp '*breakline-extend*)) (setq *breakline-extend* 0.0))
   
8.   (if (not (boundp '*breakline-type*)) (setq *breakline-type* "single"))
   
9. 
   
10.   ;; Create or verify "Break-Line" layer
    
11.   (if (not (tblsearch "LAYER" "Break-Line"))
    
12.     (command "._layer" "_make" "Break-Line" "_color" "7" "" "_ltype" "Continuous" "" "")
    
13.     (command "._layer" "_thaw" "Break-Line" "_on" "Break-Line" "_set" "Break-Line" "")
    
14.   )
    
15. 
    
16.   ;; Create temporary DCL file
    
17.   (setq dcl_file (vl-filename-mktemp "breakline.dcl"))
    
18.   (setq f (open dcl_file "w"))
    
19.   (write-line
    
20.     "breakline : dialog {
    
21.       label = "Breakline Settings";
    
22.       : column {
    
23.         : boxed_column {
    
24.           label = "Parameters";
    
25.           : row {
    
26.             : text { label = "Scale:"; width = 8; alignment = left; }
    
27.             : edit_box { key = "scale"; width = 10; value = "1.0"; }
    
28.           }
    
29.           : row {
    
30.             : text { label = "Extension:"; width = 8; alignment = left; }
    
31.             : edit_box { key = "extend"; width = 10; value = "0.0"; }
    
32.           }
    
33.         }
    
34.         : boxed_radio_column {
    
35.           label = "Breakline Type";
    
36.           : radio_button { label = "Single Breakline"; key = "single"; value = "1"; }
    
37.           : radio_button { label = "Double Breakline"; key = "double"; }
    
38.         }
    
39.         : row {
    
40.           fixed_width = true;
    
41.           alignment = centered;
    
42.           : button { label = "OK"; key = "accept"; is_default = true; width = 8; }
    
43.           : button { label = "Cancel"; key = "cancel"; is_cancel = true; width = 8; }
    
44.         }
    
45.       }
    
46.     }" f)
    
47.   (close f)
    
48. 
    
49.   ;; Load and show dialog
    
50.   (setq dcl_id (load_dialog dcl_file))
    
51.   (if (not (new_dialog "breakline" dcl_id))
    
52.     (progn (prompt "\nFailed to load dialog.") (exit))
    
53.   )
    
54. 
    
55.   ;; Set initial values in dialog
    
56.   (set_tile "scale" (rtos *breakline-scale* 2 2))
    
57.   (set_tile "extend" (rtos *breakline-extend* 2 2))
    
58.   (if (eq *breakline-type* "single")
    
59.     (set_tile "single" "1")
    
60.     (set_tile "double" "1")
    
61.   )
    
62. 
    
63.   ;; Accept action
    
64.   (action_tile "accept"
    
65.     "(progn
    
66.        (setq *scale* (atof (get_tile "scale")))
    
67.        (setq *extend* (atof (get_tile "extend")))
    
68.        (if (= (get_tile "single") "1")
    
69.          (setq *type* "single")
    
70.          (setq *type* "double")
    
71.        )
    
72.        (done_dialog 1)
    
73.      )"
    
74.   )
    
75. 
    
76.   ;; Cancel action
    
77.   (action_tile "cancel" "(done_dialog 0)")
    
78. 
    
79.   ;; Run dialog
    
80.   (setq result (start_dialog))
    
81.   (unload_dialog dcl_id)
    
82.   (vl-file-delete dcl_file)
    
83. 
    
84.   (if (/= result 1) (exit))
    
85. 
    
86.   ;; Save settings
    
87.   (setq *breakline-scale* *scale*)
    
88.   (setq *breakline-extend* *extend*)
    
89.   (setq *breakline-type* *type*)
    
90. 
    
91.   ;; Drawing breakline
    
92.   (setvar "CMDECHO" 0)
    
93.   (setq osd (getvar "OSMODE"))
    
94. 
    
95.   (command "._layer" "_set" "Break-Line" "")
    
96. 
    
97.   (setq pt1 (getpoint "\nSpecify breakline start point: "))
    
98.   (if pt1
    
99.     (progn
    
100.       (setq pt2 (getpoint pt1 "\nSpecify breakline end point: "))
     
101.       (if pt2
     
102.         (progn
     
103.           ;; Calculate breakline geometry
     
104.           (setq ang (angle pt1 pt2)
     
105.                 dis (distance pt1 pt2)
     
106.                 pt1 (polar pt1 (+ ang pi) *extend*)
     
107.                 pt2 (polar pt2 ang *extend*)
     
108.                 ang (angle pt1 pt2)
     
109.                 dis (distance pt1 pt2)
     
110.                 x1 (/ (- dis (* 2 *scale*)) 2)
     
111.                 pt3 (polar pt1 ang x1)
     
112.                 pt4 (polar pt1 ang (+ x1 (* 2 *scale*)))
     
113.                 pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 *scale*))
     
114.                 pt6 (polar pt4 (- ang 1.81577) (* 2.0616 *scale*))
     
115.           )
     
116.           (setvar "OSMODE" 0)
     
117. 
     
118.           ;; Draw
     
119.           (if (eq *type* "single")
     
120.             (command "._pline" pt1 "_w" 0 0 pt3 pt5 pt6 pt4 pt2 "")
     
121.             (progn
     
122.               (setq off (* *scale* 0.5)
     
123.                     up (+ ang (/ pi 2))
     
124.                     dn (- ang (/ pi 2))
     
125.                     base_pts (list pt1 pt3 pt5 pt6 pt4 pt2))
     
126.               (command "._pline")
     
127.               (foreach pt base_pts (command (polar pt up off)))
     
128.               (command "")
     
129.               (command "._pline")
     
130.               (foreach pt base_pts (command (polar pt dn off)))
     
131.               (command "")
     
132.             )
     
133.           )
     
134. 
     
135.           ;; Restore osnap
     
136.           (setvar "OSMODE" osd)
     
137.         )
     
138.         (setvar "OSMODE" osd) ; User canceled at pt2
     
139.       )
     
140.     )
     
141.     (setvar "OSMODE" osd) ; User canceled at pt1
     
142.   )
     
143. 
     
144.   (princ)
     
145. )
     

(defun c:tw3 (/ *scale* *extend* *type* dcl_id dcl_file f result pt1 pt2 ang dis x1 pt3 pt4 pt5 pt6 off up dn base_pts osd)<br />   (vl-load-com)<br /> <br />   ;; Initialize global variables<br />   (if (not (boundp '*breakline-scale*)) (setq *breakline-scale* 1.0))<br />   (if (not (boundp '*breakline-extend*)) (setq *breakline-extend* 0.0))<br />   (if (not (boundp '*breakline-type*)) (setq *breakline-type* "single"))<br /> <br />   ;; Create or verify "Break-Line" layer<br />   (if (not (tblsearch "LAYER" "Break-Line"))<br />     (command "._layer" "_make" "Break-Line" "_color" "7" "" "_ltype" "Continuous" "" "")<br />     (command "._layer" "_thaw" "Break-Line" "_on" "Break-Line" "_set" "Break-Line" "")<br />   )<br /> <br />   ;; Create temporary DCL file<br />   (setq dcl_file (vl-filename-mktemp "breakline.dcl"))<br />   (setq f (open dcl_file "w"))<br />   (write-line<br />     "breakline : dialog {<br />       label = "Breakline Settings";<br />       : column {<br />         : boxed_column {<br />           label = "Parameters";<br />           : row {<br />             : text { label = "Scale:"; width = 8; alignment = left; }<br />             : edit_box { key = "scale"; width = 10; value = "1.0"; }<br />           }<br />           : row {<br />             : text { label = "Extension:"; width = 8; alignment = left; }<br />             : edit_box { key = "extend"; width = 10; value = "0.0"; }<br />           }<br />         }<br />         : boxed_radio_column {<br />           label = "Breakline Type";<br />           : radio_button { label = "Single Breakline"; key = "single"; value = "1"; }<br />           : radio_button { label = "Double Breakline"; key = "double"; }<br />         }<br />         : row {<br />           fixed_width = true;<br />           alignment = centered;<br />           : button { label = "OK"; key = "accept"; is_default = true; width = 8; }<br />           : button { label = "Cancel"; key = "cancel"; is_cancel = true; width = 8; }<br />         }<br />       }<br />     }" f)<br />   (close f)<br /> <br />   ;; Load and show dialog<br />   (setq dcl_id (load_dialog dcl_file))<br />   (if (not (new_dialog "breakline" dcl_id))<br />     (progn (prompt "\nFailed to load dialog.") (exit))<br />   )<br /> <br />   ;; Set initial values in dialog<br />   (set_tile "scale" (rtos *breakline-scale* 2 2))<br />   (set_tile "extend" (rtos *breakline-extend* 2 2))<br />   (if (eq *breakline-type* "single")<br />     (set_tile "single" "1")<br />     (set_tile "double" "1")<br />   )<br /> <br />   ;; Accept action<br />   (action_tile "accept"<br />     "(progn<br />        (setq *scale* (atof (get_tile "scale")))<br />        (setq *extend* (atof (get_tile "extend")))<br />        (if (= (get_tile "single") "1")<br />          (setq *type* "single")<br />          (setq *type* "double")<br />        )<br />        (done_dialog 1)<br />      )"<br />   )<br /> <br />   ;; Cancel action<br />   (action_tile "cancel" "(done_dialog 0)")<br /> <br />   ;; Run dialog<br />   (setq result (start_dialog))<br />   (unload_dialog dcl_id)<br />   (vl-file-delete dcl_file)<br /> <br />   (if (/= result 1) (exit))<br /> <br />   ;; Save settings<br />   (setq *breakline-scale* *scale*)<br />   (setq *breakline-extend* *extend*)<br />   (setq *breakline-type* *type*)<br /> <br />   ;; Drawing breakline<br />   (setvar "CMDECHO" 0)<br />   (setq osd (getvar "OSMODE"))<br /> <br />   (command "._layer" "_set" "Break-Line" "")<br /> <br />   (setq pt1 (getpoint "\nSpecify breakline start point: "))<br />   (if pt1<br />     (progn<br />       (setq pt2 (getpoint pt1 "\nSpecify breakline end point: "))<br />       (if pt2<br />         (progn<br />           ;; Calculate breakline geometry<br />           (setq ang (angle pt1 pt2)<br />                 dis (distance pt1 pt2)<br />                 pt1 (polar pt1 (+ ang pi) *extend*)<br />                 pt2 (polar pt2 ang *extend*)<br />                 ang (angle pt1 pt2)<br />                 dis (distance pt1 pt2)<br />                 x1 (/ (- dis (* 2 *scale*)) 2)<br />                 pt3 (polar pt1 ang x1)<br />                 pt4 (polar pt1 ang (+ x1 (* 2 *scale*)))<br />                 pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 *scale*))<br />                 pt6 (polar pt4 (- ang 1.81577) (* 2.0616 *scale*))<br />           )<br />           (setvar "OSMODE" 0)<br /> <br />           ;; Draw<br />           (if (eq *type* "single")<br />             (command "._pline" pt1 "_w" 0 0 pt3 pt5 pt6 pt4 pt2 "")<br />             (progn<br />               (setq off (* *scale* 0.5)<br />                     up (+ ang (/ pi 2))<br />                     dn (- ang (/ pi 2))<br />                     base_pts (list pt1 pt3 pt5 pt6 pt4 pt2))<br />               (command "._pline")<br />               (foreach pt base_pts (command (polar pt up off)))<br />               (command "")<br />               (command "._pline")<br />               (foreach pt base_pts (command (polar pt dn off)))<br />               (command "")<br />             )<br />           )<br /> <br />           ;; Restore osnap<br />           (setvar "OSMODE" osd)<br />         )<br />         (setvar "OSMODE" osd) ; User canceled at pt2<br />       )<br />     )<br />     (setvar "OSMODE" osd) ; User canceled at pt1<br />   )<br /> <br />   (princ)<br /> )<br />

guankuiwu

好吧，我自己觉得这样就很好，专门给你再改一版，确定要三排样式啊。还是放到一排，取消单独放下面一排。那个容易明天弄下发你。

KO你

guankuiwu 发表于 2025-7-17 19:46
好吧，我自己觉得这样就很好，专门给你再改一版，确定要三排样式啊。还是放到一排，取消单独放下面一排。那 ...

三个样式上下排三排也行，排一行也行。感谢

guankuiwu

KO你 发表于 2025-7-18 01:32
三个样式上下排三排也行，排一行也行。感谢

定制面板给你，里面你自己也可以改方向这些。

KO你

guankuiwu 发表于 2025-7-18 09:27
定制面板给你，里面你自己也可以改方向这些。

郁闷，就不能送佛送到西，做好全套服务

guankuiwu

KO你 发表于 2025-7-18 14:22
郁闷，就不能送佛送到西，做好全套服务

已经全好了啊，我是说以原码里还可以自己再调整。

KO你

guankuiwu 发表于 2025-7-18 14:38
已经全好了啊，我是说以原码里还可以自己再调整。

我意思是你分享出完整后的程序，
单折断线
双折断线1   形态和单折断线一至，只是复制多一项，起点为中间。
双折断线2   这项目是按你最后加的静默打勾形状

你现在发出来的双折断线1是你打勾形状的
双折断线2是不打勾形状的。

唉，不愿意分享就算了，不强人所难。

KO你

(defun c:y (/ *scale* *extend* *do_extend* *type* dcl_id dcl_file f result pt1 pt2
ang dis x1 pt3 pt4 pt5 pt6 off up dn
base_pts lay osd pt1_up pt3_up pt4_up pt2_up pt1_dn pt3_dn pt4_dn pt2_dn
line1 line2 line3 line4 break_poly extend_point_line2 extend_point_line4 old_edge)
(vl-load-com)
;;初始化全局变量
(if (not (boundp '*breakline-scale*)) (setq *breakline-scale* 1.0))
(if (not (boundp '*breakline-extend*)) (setq *breakline-extend* 0.0))
(if (not (boundp '*breakline-do-extend*)) (setq *breakline-do-extend* 1));;默认勾选延伸
(if (not (boundp '*breakline-type*)) (setq *breakline-type* "single"))
;;创建DCL对话框
(setq dcl_file (vl-filename-mktemp "breakline.dcl"))
(setq f (open dcl_file "w"))
(write-line
"breakline : dialog {
label = \"折断线绘制\";
: column {
: boxed_column {
label = \"参数设置\";
: row {
: text { label = \"比例大小:\"; }
: edit_box { key = \"scale\"; width = 10; }}
: row {
: text { label = \"两头延长:\"; }
: edit_box { key = \"extend\"; width = 10; }}}
: row {
fixed_width = true;
alignment = centered;
: button { label = \"单折断线\"; key = \"single\"; width = 8; }
: button { label = \"双折断线1\"; key = \"do_extend\"; width = 8; }
: button { label = \"双折断线2\"; key = \"double\"; width = 8; }}
: button { label = \"取消\"; key = \"cancel\"; width = 8; is_cancel = true; }}}" f)
(close f)
;;加载并显示对话框
(setq dcl_id (load_dialog dcl_file))
(if (not (new_dialog "breakline" dcl_id))
(progn
(prompt "\n无法加载对话框!")
(exit)))
;;初始化对话框控件
(set_tile "scale" (rtos *breakline-scale* 2 2))
(set_tile "extend" (rtos *breakline-extend* 2 2))
(setq $tmpkey (if (boundp '$tmpkey) $tmpkey "single"))
(mode_tile $tmpkey 2)
;;设置控件动作
(action_tile "single" "(setq *scale* (atof (get_tile \"scale\")))
(setq *extend* (atof (get_tile \"extend\")))
(setq *do_extend* (if (eq (get_tile \"do_extend\") \"1\") 1 0))
(setq *type* \"single\")
(setq $tmpkey $key)
(done_dialog 1)")
(action_tile "double" "(setq *scale* (atof (get_tile \"scale\")))
(setq *extend* (atof (get_tile \"extend\")))
(setq *do_extend* 1)
(setq *type* \"double\")
(setq $tmpkey $key)
(done_dialog 2)")
(action_tile "do_extend" "(setq *scale* (atof (get_tile \"scale\")))
(setq *extend* (atof (get_tile \"extend\")))
(setq *do_extend* 0)
(setq *type* \"double2\")
(setq $tmpkey $key)
(done_dialog 2)")
(action_tile "cancel" "(done_dialog 0)")
;;处理对话框结果
(setq result (start_dialog))
(unload_dialog dcl_id)
(vl-file-delete dcl_file)
;;保存设置到全局变量
(if (> result 0)
(progn
(setq *breakline-scale* *scale*)
(setq *breakline-extend* *extend*)
(setq *breakline-do-extend* *do_extend*)
(setq *breakline-type* *type*)))
;;主绘制循环
(setvar "CMDECHO" 0)
(setq osd (getvar "osmode"))
;;循环绘制折断线
(while (and (> result 0)
(setq pt1 (getpoint "\n起点<右键退出>: "))
(setq pt2 (getpoint pt1 "\n终点<右键退出>: ")))
(progn
(setq lay (getvar "clayer"))
(setvar "osmode" 0)
;;计算基本点
(setq ang (angle pt1 pt2)
dis (distance pt1 pt2)
pt1 (polar pt1 (+ ang pi) *breakline-extend*)
pt2 (polar pt2 ang *breakline-extend*)
ang (angle pt1 pt2)
dis (distance pt1 pt2)
x1 (/ (- dis (* 2 *breakline-scale*)) 2)
pt3 (polar pt1 ang x1)
pt4 (polar pt1 ang (+ x1 (* 2 *breakline-scale*))))
;;计算折断头点
(setq off (* *breakline-scale* 0.5)
up (+ ang (/ pi 2))
dn (- ang (/ pi 2)))
;;根据折断线类型绘制
(cond
((eq *breakline-type* "single")
;;绘制单折断线
(setq pt5 (polar pt3 (- ang 1.32582) (* 2.0616 *breakline-scale*))
pt6 (polar pt4 (+ ang 1.81577) (* 2.0616 *breakline-scale*)))
(command "pline" pt1 "w" "0" "0" pt3 pt5 pt6 pt4 pt2 ""))
((eq *breakline-type* "double")
;;绘制双折断线2
;;计算竖线的端点
(setq pt1_up (polar pt1 up off)
pt3_up (polar pt3 up off)
pt4_up (polar pt4 up off)
pt2_up (polar pt2 up off)
pt1_dn (polar pt1 dn off)
pt3_dn (polar pt3 dn off)
pt4_dn (polar pt4 dn off)
pt2_dn (polar pt2 dn off))
;;计算折断头点
(setq pt5 (polar pt3_up (- ang 1.32582) (* 2.6616 *breakline-scale*))
pt6 (polar pt4_dn (+ ang 1.81577) (* 2.6616 *breakline-scale*)))
;;绘制两条竖线L2和L4
(command "line" pt4_up pt2_up "");;L2右上
(setq line2 (entlast))
(command "line" pt1_dn pt3_dn "");;L4左下
(setq line4 (entlast))
;;绘制连接折断头的主多段线L1+折断头+L3
(command "pline" pt1_up "w" "0" "0" pt3_up pt5 pt6 pt4_dn pt2_dn "")
(setq break_poly (entlast))
;;根据勾选项决定是否延伸竖线
(if (= *breakline-do-extend* 1)
(progn
;;使用EXTEND命令延伸竖线
(setq extend_point_line2 (polar pt4_up dn (* off 3)));;L2延伸点 (下方取点)
(setq extend_point_line4 (polar pt3_dn up (* off 3)));;L4延伸点 (上方取点)
(setq old_edge (getvar "EDGEMODE"))
(setvar "EDGEMODE" 1);;设置边延伸模式
(command "EXTEND" break_poly "");;选择边界
(command (list line2 extend_point_line2));;延伸L2
(command (list line4 extend_point_line4));;延伸L4
(command "");;退出命令
(setvar "EDGEMODE" old_edge))));;恢复原始边模式
((eq *breakline-type* "double2")
;;绘制双折断线1
(setq pt5 (polar pt3 (+ ang 1.32582) (* 2.0616 *breakline-scale*))
pt6 (polar pt4 (- ang 1.81577) (* 2.0616 *breakline-scale*))
base_pts (list pt1 pt3 pt5 pt6 pt4 pt2))
;;绘制上方的折断线
(command "pline")
(foreach pt base_pts (command (polar pt up off)))
(command "")
;;绘制下方的折断线
(command "pline")
(foreach pt base_pts (command (polar pt dn off)))
(command ""))))
;;恢复设置
(command "layer" "s" lay "")
(setvar "osmode" osd)
(princ "\n折断线绘制完成。继续绘制下一根...")))
(setvar "osmode" osd)
(princ))
我整合了一下，可以实际想要的功能，但加载出现 参数类型错误: lentityp nil  不知道这是啥情况

guankuiwu

KO你 发表于 2025-7-18 15:03
我意思是你分享出完整后的程序，
单折断线
双折断线1   形态和单折断线一至，只是复制多一项，起点为中 ...

完全没明白你想要啥，不是你最初就画了图两种类型了么，现在三种，又要哪样的？又有啥想法了