求助，实现不按回车按默认绘制

414249149

求助，希望大神帮忙修改下代码
要求:
1、输入命令后不按回车即可按默认值去绘制/输入自定义值按回车后绘制
2、绘制完成后给绘制对象编组

2. (defun c:HFF ( / p0 p1 p2 radius angle1 angle2 angle_diff arc1 arc2 weld_height)
   
3.   ;; 保存当前图层
   
4.   (setq current_layer (getvar "CLAYER"))
   
5.   
   
6.   ;; 创建或设置图层为“HF焊缝”，颜色为1
   
7.   (if (not (tblsearch "LAYER" "HF焊缝"))
   
8.     (command "_.layer" "_make" "HF焊缝" "_color" "1" "HF焊缝" "")
   
9.     (setvar "CLAYER" "HF焊缝")
   
10.   )
    
11. 
    
12.   ;; 保护变量设置，确保正交模式和对象捕捉开启
    
13.   (setq osnap (getvar "osmode"))
    
14.   (setq ortho (getvar "orthomode"))
    
15.   (setvar "osmode" 3) ; 开启对象捕捉
    
16.   (setvar "orthomode" 1) ; 开启正交模式
    
17. 
    
18.   ;; 提示输入焊缝高度，默认值为4
    
19.   (setq weld_height (getint "\n指定焊缝剖面角点或直接输入焊缝高度<默认4>: "))
    
20.   (if (null weld_height) (setq weld_height 4))
    
21. 
    
22.   ;; 选择原点
    
23.   (setq p0 (getpoint "\n请选择原点: "))
    
24.   
    
25.   ;; 选择第1个点，不画线
    
26.   (setq p1 (getpoint p0 "\n请选择第1个点: "))
    
27.   
    
28.   ;; 自动回到原点并选择第2个点，不画线
    
29.   (setq p2 (getpoint p0 "\n请选择第2个点: "))
    
30. 
    
31.   ;; 计算角度
    
32.   (setq angle1 (angle p0 p1))
    
33.   (setq angle2 (angle p0 p2))
    
34. 
    
35.   ;; 计算角度差
    
36.   (setq angle_diff (abs (- angle1 angle2)))
    
37. 
    
38.   ;; 如果角度差大于180度，则调整角度方向
    
39.   (if (> angle_diff pi)
    
40.     (progn
    
41.       (setq temp angle1)
    
42.       (setq angle1 angle2)
    
43.       (setq angle2 temp)
    
44.     )
    
45.   )
    
46. 
    
47.   ;; 绘制以p0为圆心的半径为1到weld_height的圆弧
    
48.   (setq radius 1)
    
49.   (while (<= radius weld_height)
    
50.     ;; 创建顺时针方向的圆弧
    
51.     (setq arc1 (entmakex (list
    
52.                            '(0 . "ARC")
    
53.                            (cons 10 p0)            ; 圆心
    
54.                            (cons 40 radius)        ; 半径
    
55.                            (cons 50 angle1)        ; 起始角度
    
56.                            (cons 51 angle2)        ; 结束角度
    
57.                          )))
    
58.    
    
59.     ;; 创建逆时针方向的圆弧
    
60.     (setq arc2 (entmakex (list
    
61.                            '(0 . "ARC")
    
62.                            (cons 10 p0)            ; 圆心
    
63.                            (cons 40 radius)        ; 半径
    
64.                            (cons 50 angle2)        ; 起始角度
    
65.                            (cons 51 angle1)        ; 结束角度
    
66.                          )))
    
67.    
    
68.     ;; 删除较长的圆弧
    
69.     (if (> (vlax-curve-getdistatparam arc1 (vlax-curve-getendparam arc1))
    
70.            (vlax-curve-getdistatparam arc2 (vlax-curve-getendparam arc2)))
    
71.       (entdel arc1)
    
72.       (entdel arc2))
    
73. 
    
74.     (setq radius (1+ radius))
    
75.   )
    
76. 
    
77.   ;; 还原变量设置
    
78.   (setvar "osmode" osnap)
    
79.   (setvar "orthomode" ortho)
    
80. 
    
81.   ;; 重新生成视图
    
82.   (command "_.regen")
    
83.   (princ)
    
84. )

(defun c:HFF ( / p0 p1 p2 radius angle1 angle2 angle_diff arc1 arc2 weld_height)<br />   ;; 保存当前图层<br />   (setq current_layer (getvar "CLAYER"))<br />   <br />   ;; 创建或设置图层为“HF焊缝”，颜色为1<br />   (if (not (tblsearch "LAYER" "HF焊缝"))<br />     (command "_.layer" "_make" "HF焊缝" "_color" "1" "HF焊缝" "")<br />     (setvar "CLAYER" "HF焊缝")<br />   )<br /> <br />   ;; 保护变量设置，确保正交模式和对象捕捉开启<br />   (setq osnap (getvar "osmode"))<br />   (setq ortho (getvar "orthomode"))<br />   (setvar "osmode" 3) ; 开启对象捕捉<br />   (setvar "orthomode" 1) ; 开启正交模式<br /> <br />   ;; 提示输入焊缝高度，默认值为4<br />   (setq weld_height (getint "\n指定焊缝剖面角点或直接输入焊缝高度<默认4>: "))<br />   (if (null weld_height) (setq weld_height 4))<br /> <br />   ;; 选择原点<br />   (setq p0 (getpoint "\n请选择原点: "))<br />   <br />   ;; 选择第1个点，不画线<br />   (setq p1 (getpoint p0 "\n请选择第1个点: "))<br />   <br />   ;; 自动回到原点并选择第2个点，不画线<br />   (setq p2 (getpoint p0 "\n请选择第2个点: "))<br /> <br />   ;; 计算角度<br />   (setq angle1 (angle p0 p1))<br />   (setq angle2 (angle p0 p2))<br /> <br />   ;; 计算角度差<br />   (setq angle_diff (abs (- angle1 angle2)))<br /> <br />   ;; 如果角度差大于180度，则调整角度方向<br />   (if (> angle_diff pi)<br />     (progn<br />       (setq temp angle1)<br />       (setq angle1 angle2)<br />       (setq angle2 temp)<br />     )<br />   )<br /> <br />   ;; 绘制以p0为圆心的半径为1到weld_height的圆弧<br />   (setq radius 1)<br />   (while (<= radius weld_height)<br />     ;; 创建顺时针方向的圆弧<br />     (setq arc1 (entmakex (list <br />                            '(0 . "ARC")<br />                            (cons 10 p0)            ; 圆心<br />                            (cons 40 radius)        ; 半径<br />                            (cons 50 angle1)        ; 起始角度<br />                            (cons 51 angle2)        ; 结束角度<br />                          )))<br />     <br />     ;; 创建逆时针方向的圆弧<br />     (setq arc2 (entmakex (list <br />                            '(0 . "ARC")<br />                            (cons 10 p0)            ; 圆心<br />                            (cons 40 radius)        ; 半径<br />                            (cons 50 angle2)        ; 起始角度<br />                            (cons 51 angle1)        ; 结束角度<br />                          )))<br />     <br />     ;; 删除较长的圆弧<br />     (if (> (vlax-curve-getdistatparam arc1 (vlax-curve-getendparam arc1)) <br />            (vlax-curve-getdistatparam arc2 (vlax-curve-getendparam arc2)))<br />       (entdel arc1)<br />       (entdel arc2))<br /> <br />     (setq radius (1+ radius))<br />   )<br /> <br />   ;; 还原变量设置<br />   (setvar "osmode" osnap)<br />   (setvar "orthomode" ortho)<br /> <br />   ;; 重新生成视图<br />   (command "_.regen")<br />   (princ)<br /> )

qazxswk

414249149 发表于 2024-9-19 21:48
谢谢，解决了一个问题

后面编组是很简单的事情呀。不过很少用到编组，一般是生成块。上面的代码，我已经修改，绘制完成后给绘制对象编组。

qazxswk

修改了一下，输入命令后，可以直接画，按S键，设置新值。

2. (defun c:HFF( / p0 p1 p2 radius angle1 angle2 angle_diff arc1 arc2 xun ss lastent)
   
3.   ;; 保存当前图层
   
4.   (setq current_layer (getvar "CLAYER"))
   
5.   
   
6.   ;; 创建或设置图层为“HF焊缝”，颜色为1
   
7.   (if (not (tblsearch "LAYER" "HF焊缝"))
   
8.     (command "_.layer" "_make" "HF焊缝" "_color" "1" "HF焊缝" "")
   
9.     (setvar "CLAYER" "HF焊缝")
   
10.   )
    
11. 
    
12.   ;; 保护变量设置，确保正交模式和对象捕捉开启
    
13.   (setq osnap (getvar "osmode"))
    
14.   (setq ortho (getvar "orthomode"))
    
15.   (setvar "osmode" 3) ; 开启对象捕捉
    
16.   (setvar "orthomode" 1) ; 开启正交模式
    
17.   (or weld_height (setq weld_height 4)) ;;焊缝高度，默认值为4
    
18.   (setq ss (ssadd))(setq lastent (entlast))
    
19.   (setq xun t)
    
20.   (while xun
    
21.   (initget 0 "S")
    
22.     ;; 选择原点
    
23.   (setq p0 (getpoint "\n请选择原点或[设置焊缝高度(S)]: "))
    
24.   (if (= p0 "S")
    
25.     (setq weld_height (getint (strcat "\n输入焊缝新高度<当前值" (rtos weld_height) ">: ")))
    
26.    (setq xun nil)
    
27.   ))
    
28.   ;; 选择第1个点，不画线
    
29.   (setq p1 (getpoint p0 "\n请选择第1个点: "))
    
30.   
    
31.   ;; 自动回到原点并选择第2个点，不画线
    
32.   (setq p2 (getpoint p0 "\n请选择第2个点: "))
    
33. 
    
34.   ;; 计算角度
    
35.   (setq angle1 (angle p0 p1))
    
36.   (setq angle2 (angle p0 p2))
    
37. 
    
38.   ;; 计算角度差
    
39.   (setq angle_diff (abs (- angle1 angle2)))
    
40. 
    
41.   ;; 如果角度差大于180度，则调整角度方向
    
42.   (if (> angle_diff pi)
    
43.     (progn
    
44.       (setq temp angle1)
    
45.       (setq angle1 angle2)
    
46.       (setq angle2 temp)
    
47.     )
    
48.   )
    
49. 
    
50.   ;; 绘制以p0为圆心的半径为1到weld_height的圆弧
    
51.   (setq radius 1)
    
52.   (while (<= radius weld_height)
    
53.     ;; 创建顺时针方向的圆弧
    
54.     (setq arc1 (entmakex (list
    
55.                            '(0 . "ARC")
    
56.                            (cons 10 p0)            ; 圆心
    
57.                            (cons 40 radius)        ; 半径
    
58.                            (cons 50 angle1)        ; 起始角度
    
59.                            (cons 51 angle2)        ; 结束角度
    
60.                          )))
    
61.    
    
62.     ;; 创建逆时针方向的圆弧
    
63.     (setq arc2 (entmakex (list
    
64.                            '(0 . "ARC")
    
65.                            (cons 10 p0)            ; 圆心
    
66.                            (cons 40 radius)        ; 半径
    
67.                            (cons 50 angle2)        ; 起始角度
    
68.                            (cons 51 angle1)        ; 结束角度
    
69.                          )))
    
70.    
    
71.     ;; 删除较长的圆弧
    
72.     (if (> (vlax-curve-getdistatparam arc1 (vlax-curve-getendparam arc1))
    
73.            (vlax-curve-getdistatparam arc2 (vlax-curve-getendparam arc2)))
    
74.       (entdel arc1)
    
75.       (entdel arc2))
    
76. 
    
77.     (setq radius (1+ radius))
    
78.   )
    
79.   (while (setq lastent  (entnext lastent)) (ssadd lastent ss))
    
80.   (command "-group" "C" "*" "" ss "")
    
81.   ;; 还原变量设置
    
82.   (setvar "osmode" osnap)
    
83.   (setvar "orthomode" ortho)
    
84. 
    
85.   ;; 重新生成视图
    
86.   (command "_.regen")
    
87.    (princ)
    
88. )

(defun c:HFF( / p0 p1 p2 radius angle1 angle2 angle_diff arc1 arc2 xun ss lastent)<br />   ;; 保存当前图层<br />   (setq current_layer (getvar "CLAYER"))<br />   <br />   ;; 创建或设置图层为“HF焊缝”，颜色为1<br />   (if (not (tblsearch "LAYER" "HF焊缝"))<br />     (command "_.layer" "_make" "HF焊缝" "_color" "1" "HF焊缝" "")<br />     (setvar "CLAYER" "HF焊缝")<br />   )<br /> <br />   ;; 保护变量设置，确保正交模式和对象捕捉开启<br />   (setq osnap (getvar "osmode"))<br />   (setq ortho (getvar "orthomode"))<br />   (setvar "osmode" 3) ; 开启对象捕捉<br />   (setvar "orthomode" 1) ; 开启正交模式<br />   (or weld_height (setq weld_height 4)) ;;焊缝高度，默认值为4<br />   (setq ss (ssadd))(setq lastent (entlast))<br />   (setq xun t)<br />   (while xun<br />   (initget 0 "S")<br />     ;; 选择原点<br />   (setq p0 (getpoint "\n请选择原点或[设置焊缝高度(S)]: "))<br />   (if (= p0 "S")<br />     (setq weld_height (getint (strcat "\n输入焊缝新高度<当前值" (rtos weld_height) ">: ")))<br />    (setq xun nil)<br />   ))<br />   ;; 选择第1个点，不画线<br />   (setq p1 (getpoint p0 "\n请选择第1个点: "))<br />   <br />   ;; 自动回到原点并选择第2个点，不画线<br />   (setq p2 (getpoint p0 "\n请选择第2个点: "))<br /> <br />   ;; 计算角度<br />   (setq angle1 (angle p0 p1))<br />   (setq angle2 (angle p0 p2))<br /> <br />   ;; 计算角度差<br />   (setq angle_diff (abs (- angle1 angle2)))<br /> <br />   ;; 如果角度差大于180度，则调整角度方向<br />   (if (> angle_diff pi)<br />     (progn<br />       (setq temp angle1)<br />       (setq angle1 angle2)<br />       (setq angle2 temp)<br />     )<br />   )<br /> <br />   ;; 绘制以p0为圆心的半径为1到weld_height的圆弧<br />   (setq radius 1)<br />   (while (<= radius weld_height)<br />     ;; 创建顺时针方向的圆弧<br />     (setq arc1 (entmakex (list <br />                            '(0 . "ARC")<br />                            (cons 10 p0)            ; 圆心<br />                            (cons 40 radius)        ; 半径<br />                            (cons 50 angle1)        ; 起始角度<br />                            (cons 51 angle2)        ; 结束角度<br />                          )))<br />     <br />     ;; 创建逆时针方向的圆弧<br />     (setq arc2 (entmakex (list <br />                            '(0 . "ARC")<br />                            (cons 10 p0)            ; 圆心<br />                            (cons 40 radius)        ; 半径<br />                            (cons 50 angle2)        ; 起始角度<br />                            (cons 51 angle1)        ; 结束角度<br />                          )))<br />     <br />     ;; 删除较长的圆弧<br />     (if (> (vlax-curve-getdistatparam arc1 (vlax-curve-getendparam arc1)) <br />            (vlax-curve-getdistatparam arc2 (vlax-curve-getendparam arc2)))<br />       (entdel arc1)<br />       (entdel arc2))<br /> <br />     (setq radius (1+ radius))<br />   )<br />   (while (setq lastent  (entnext lastent)) (ssadd lastent ss))<br />   (command "-group" "C" "*" "" ss "")<br />   ;; 还原变量设置<br />   (setvar "osmode" osnap)<br />   (setvar "orthomode" ortho)<br /> <br />   ;; 重新生成视图<br />   (command "_.regen")<br />    (princ)<br /> )

xyp1964

居然能把osnap当作变量……

414249149

qazxswk 发表于 2024-9-17 22:38
修改了一下，输入命令后，可以直接画，按S键，设置新值。

谢谢，解决了一个问题

414249149

qazxswk 发表于 2024-9-17 10:34
后面编组是很简单的事情呀。不过很少用到编组，一般是生成块。上面的代码，我已经修改，绘制完成后给绘制 ...

嗯，我在论坛找到一段代码把编组的问题解决了

414249149

xyp1964 发表于 2024-9-18 12:53
居然能把osnap当作变量……

菜鸟一个，请版主多多指教