请求可以快速生成代表弧面的线

yyz123121

类似图片这样，点选或框选两条线段，在之间生成代表弧面的线段，最好是动态的，鼠标往左就左边密，越往左就越密；鼠标往右就右边密，越往右就越密。

qazxswk

要求很高，回报太少

qazxswk

yyz123121

用元宝写了一个，基本能满足我的需求了

2. (defun c:HHMX_YY (/ p1 p2 minX maxX minY maxY width centerX startX steps i stepSize xPos lineEnt
   
3.                      numLines temp rectEnt previousStep)
   
4.     ;; 设置绘图环境
   
5.     (setvar "CMDECHO" 0)
   
6.     (setvar "CECOLOR" "8")
   
7.     (setq p1 (getpoint "\n指定矩形第一角点: "))
   
8.     (setq p2 (getcorner p1 "\n指定矩形第二角点: "))
   
9.     (if (> (car p2) (car p1))
   
10.         (setq temp p1
    
11.               p1 p2
    
12.               p2 temp
    
13.         )
    
14.     )
    
15.     (setq minX (car p1))
    
16.     (setq maxX (car p2))
    
17.     (setq minY (min (cadr p1) (cadr p2)))
    
18.     (setq maxY (max (cadr p1) (cadr p2)))
    
19.     (setq width (- maxX minX))
    
20.     (command "_.RECTANGLE" "_none" p1 "_none" p2)
    
21.     (setq rectEnt (entlast))
    
22.     (initget "8")
    
23.     (setq numLines (getint "\n请输入竖线数量 <8>: "))
    
24.     (if (null numLines) (setq numLines 8))
    
25.     (if (<= numLines 0)
    
26.         (progn
    
27.             (alert "错误：竖线数量必须大于0!")
    
28.             (command "_.ERASE" rectEnt "")
    
29.             (exit)
    
30.         )
    
31.     )
    
32.     (setq startX maxX)
    
33.     (if (>= numLines 1)
    
34.         (progn
    
35.             (setq xPos (- maxX (/ width 2.0)))
    
36.             (command "_.LINE"
    
37.                      (list xPos minY)
    
38.                      (list xPos maxY)
    
39.                      ""
    
40.             )
    
41.             (setq previousStep (/ width 2.0))
    
42.         )
    
43.     )
    
44.     (setq i 1)
    
45.     (repeat (max 0 (- numLines 1))
    
46.         (setq stepSize (/ previousStep 2.0))
    
47.         (setq xPos (- xPos stepSize))
    
48.         (command "_.LINE"
    
49.                  (list xPos minY)
    
50.                  (list xPos maxY)
    
51.                  ""
    
52.         )
    
53.         (setq previousStep stepSize)
    
54.         (setq i (1+ i))
    
55.     )
    
56.     (command "_.ERASE" rectEnt "")
    
57.     ;; 恢复环境设置
    
58.     (setvar "CECOLOR" "bylayer")   
    
59.     (setvar "CMDECHO" 1)
    
60.     (princ (strcat "\n成功创建" (itoa numLines) "条竖线，最后步长为: "
    
61.                    (rtos previousStep 2 4)))
    
62.     (princ)
    
63. )

(defun c:HHMX_YY (/ p1 p2 minX maxX minY maxY width centerX startX steps i stepSize xPos lineEnt<br />                      numLines temp rectEnt previousStep)<br />     ;; 设置绘图环境<br />     (setvar "CMDECHO" 0) <br />     (setvar "CECOLOR" "8")<br />     (setq p1 (getpoint "\n指定矩形第一角点: "))<br />     (setq p2 (getcorner p1 "\n指定矩形第二角点: "))<br />     (if (> (car p2) (car p1))<br />         (setq temp p1<br />               p1 p2<br />               p2 temp<br />         )<br />     )<br />     (setq minX (car p1))<br />     (setq maxX (car p2))<br />     (setq minY (min (cadr p1) (cadr p2)))<br />     (setq maxY (max (cadr p1) (cadr p2)))<br />     (setq width (- maxX minX))<br />     (command "_.RECTANGLE" "_none" p1 "_none" p2)<br />     (setq rectEnt (entlast))<br />     (initget "8")<br />     (setq numLines (getint "\n请输入竖线数量 <8>: "))<br />     (if (null numLines) (setq numLines 8))<br />     (if (<= numLines 0)<br />         (progn<br />             (alert "错误：竖线数量必须大于0!")<br />             (command "_.ERASE" rectEnt "")<br />             (exit)<br />         )<br />     )<br />     (setq startX maxX)<br />     (if (>= numLines 1)<br />         (progn<br />             (setq xPos (- maxX (/ width 2.0)))<br />             (command "_.LINE"<br />                      (list xPos minY) <br />                      (list xPos maxY) <br />                      ""<br />             )<br />             (setq previousStep (/ width 2.0))<br />         )<br />     )<br />     (setq i 1)<br />     (repeat (max 0 (- numLines 1))<br />         (setq stepSize (/ previousStep 2.0))<br />         (setq xPos (- xPos stepSize)) <br />         (command "_.LINE"<br />                  (list xPos minY)<br />                  (list xPos maxY)<br />                  ""<br />         )<br />         (setq previousStep stepSize) <br />         (setq i (1+ i))<br />     )<br />     (command "_.ERASE" rectEnt "")<br />     ;; 恢复环境设置<br />     (setvar "CECOLOR" "bylayer")    <br />     (setvar "CMDECHO" 1)<br />     (princ (strcat "\n成功创建" (itoa numLines) "条竖线，最后步长为: " <br />                    (rtos previousStep 2 4)))<br />     (princ)<br /> )

yyz123121

这样的效果

無忌

qazxswk 发表于 2024-9-29 00:15

可以发这个插件吗

yefei812678

qazxswk 发表于 2024-9-29 00:15

可以发我一份这个插件吗