画矩形小程序，可以选基点，画完可以移动旋转

Qwer1243

用deepseek调试的画矩形小程序，支持选择基点（左上角，上边中点，形心点），选择基点过程中还支持水平和竖直翻转，画完矩形后可以选择移动和旋转操作

特别感谢zml84 的支持对象捕捉的grread函数

2. (defun c:e2 (/ *error* base_pt basept_type draw_l1 draw_l2 flip_h flip_v gr half_l1 half_l2 l1 l2 new_pt oldecho option osm ospt pt_右上 pt_右下 pt_左上 pt_左下 pt1 ptlst ref_pt target_pt)
   
3.   ;; 保存原始系统设置
   
4.   (setq oldecho (getvar "cmdecho"))
   
5.   (setq osm (getvar "osmode"))      
   
6.   (setvar "cmdecho" 0)              
   
7.   
   
8.   ;; 错误处理函数
   
9.   (defun *error* (msg)
   
10.     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))
    
11.       (princ (strcat "\n错误: " msg))
    
12.     )
    
13.     (setvar "osmode" osm)         
    
14.     (setvar "cmdecho" oldecho)     
    
15.     (princ)
    
16.   )
    
17.   
    
18.   ;; 获取基本参数
    
19.   (setq l1 (getdist "\n请输入矩形长："))
    
20.   (setq l2 (getdist "\n请输入矩形宽："))
    
21.   (setvar "osmode" 14847)  ;; 删除这行代码
    
22.   (setq basept_type "T")  ;; 默认基点为左上角
    
23.   (setq flip_h nil)       ;; 水平翻转标志
    
24.   (setq flip_v nil)       ;; 垂直翻转标志
    
25.   
    
26.   ;; 动态预览循环
    
27.   (princ "\n指定基点 (T=左上角/M=上中点/C=形心) H=水平翻转 V=垂直翻转: ")
    
28.   (while (and (setq gr (grread t 15 0))
    
29.            (/= (car gr) 3)      
    
30.            (/= (car gr) 25))   
    
31.     (redraw)  ;; 清除之前的图形
    
32.     ;; 处理键盘输入（兼容大小写）
    
33.     (if (= (car gr) 2)
    
34.       (cond
    
35.         ;; 基点类型切换
    
36.         ((member (cadr gr) '(84 116)) (setq basept_type "T"))  ; T/t
    
37.         ((member (cadr gr) '(77 109)) (setq basept_type "M"))  ; M/m
    
38.         ((member (cadr gr) '(67 99))  (setq basept_type "C"))  ; C/c
    
39.         ;; 翻转操作  
    
40.         ((member (cadr gr) '(72 104)) (setq flip_h (not flip_h))) ; H/h 水平翻转
    
41.         ((member (cadr gr) '(86 118)) (setq flip_v (not flip_v))) ; V/v 垂直翻转
    
42.       )
    
43.     )
    
44.    
    
45.     ;; 处理鼠标移动
    
46.     (if (= (car gr) 5)
    
47.       (progn
    
48.         ;; 调用对象捕捉功能获取点
    
49.         (setq pt1 (cadr gr))
    
50.         (if (setq ospt (GET-OSPOINT pt1))
    
51.           (progn                  
    
52.             ;; 绘制捕捉点的靶标
    
53.             (apply 'DRAW-ATPOINT ospt)
    
54.             (setq pt1 (car ospt))
    
55.             
    
56.           )
    
57.         )
    
58.         
    
59.         ;; 根据翻转状态计算实际尺寸
    
60.         (setq draw_l1 (* l1 (if flip_h -1 1))
    
61.           draw_l2 (* l2 (if flip_v -1 1)))
    
62.         
    
63.         ;; 根据基点类型计算顶点
    
64.         (cond
    
65.           ;; 左上角基点
    
66.           ((= basept_type "T")
    
67.             (setq ptlst (list
    
68.                           (polar pt1 (* pi 1.5) draw_l2)  ; 左下角
    
69.                           pt1                             ; 左上角
    
70.                           (polar pt1 0 draw_l1)           ; 右上角
    
71.                           (polar (polar pt1 0 draw_l1) (* pi 1.5) draw_l2) ; 右下角
    
72.                         )))
    
73.           ;; 上中点基点
    
74.           ((= basept_type "M")
    
75.             (setq half_l1 (/ draw_l1 2.0))
    
76.             (setq pt_左上 (polar pt1 pi half_l1))  ; 左上角
    
77.             (setq pt_右上 (polar pt1 0 half_l1))   ; 右上角
    
78.             (setq pt_右下 (polar pt_右上 (* pi 1.5) draw_l2)) ; 右下角
    
79.             (setq pt_左下 (polar pt_左上 (* pi 1.5) draw_l2)) ; 左下角
    
80.             (setq ptlst (list pt_左上 pt_右上 pt_右下 pt_左下)))
    
81.           ;; 形心基点
    
82.           ((= basept_type "C")
    
83.             (setq half_l1 (/ draw_l1 2.0)
    
84.               half_l2 (/ draw_l2 2.0))
    
85.             (setq pt_左上 (polar (polar pt1 pi half_l1) (/ pi 2) half_l2)) ; 左上角
    
86.             (setq pt_右上 (polar (polar pt1 0 half_l1) (/ pi 2) half_l2)) ; 右上角
    
87.             (setq pt_右下 (polar (polar pt1 0 half_l1) (* pi 1.5) half_l2)) ; 右下角
    
88.             (setq pt_左下 (polar (polar pt1 pi half_l1) (* pi 1.5) half_l2)) ; 左下角
    
89.             (setq ptlst (list pt_左上 pt_右上 pt_右下 pt_左下)))
    
90.         )
    
91.         
    
92.         ;; 绘制动态预览（红色）
    
93.         (grvecs
    
94.           (cons 1
    
95.             (list
    
96.               (nth 0 ptlst) (nth 1 ptlst)
    
97.               (nth 1 ptlst) (nth 2 ptlst)
    
98.               (nth 2 ptlst) (nth 3 ptlst)
    
99.               (nth 3 ptlst) (nth 0 ptlst)
    
100.             )
     
101.           )
     
102.         )
     
103.         
     
104.       )
     
105.     )
     
106.   )
     
107.   
     
108.   ;; 确认绘制时清除预览
     
109.   (if (= (car gr) 3)
     
110.     (progn
     
111.       (command "_.rectang"
     
112.         "_non" (nth 0 ptlst)  ; 第一个对角点
     
113.         "_non" (nth 2 ptlst)  ; 第二个对角点
     
114.       )
     
115.       (redraw) ; 强制刷新屏幕清除临时图形
     
116.     )
     
117.   )
     
118.   ;; 恢复系统设置
     
119.   (setvar "osmode" osm)
     
120.   (setvar "cmdecho" oldecho)  
     
121.     ;; 增加移动和旋转选项
     
122.   (initget "M R")  ; 使用 initget 定义选项
     
123.   (setq option (getkword "\n选择操作 [移动[M]/旋转[R]]<确认>: "))
     
124.   (setq base_pt pt1)
     
125.   (cond
     
126.     ;; 移动
     
127.     ((= option "M")
     
128.       (setq target_pt (getpoint base_pt "\n指定目标点: "))
     
129.       (command "_.move" "_last" "" base_pt target_pt)
     
130.     )
     
131.     ;; 旋转
     
132.     ((= option "R")
     
133.       (setq ref_pt (getpoint base_pt "\n指定参照点: "))
     
134.       (setq new_pt (getpoint base_pt "\n指定新角度点: "))
     
135.       (command "_.rotate" "_last" "" base_pt "_reference" base_pt ref_pt new_pt)
     
136.     )
     
137.     ;; 回车确认
     
138.     ((not option)
     
139.       (princ "\n已确认，无操作。")
     
140.     )
     
141.   )
     
142.   
     
143.   (princ)
     
144. )
     
145. 
     
146. ;;;功能：支持对象捕捉的grread
     
147. ;;;          代码源自fools
     
148. ;;;日期：zml84 修改于 2009-05-20
     
149. (setq *LST*
     
150.   '((1
     
151.       "_end"
     
152.       ((-1 1) (-1 -1))
     
153.       ((-1 -1) (1 -1))
     
154.       ((1 -1) (1 1))
     
155.       ((1 1) (-1 1))
     
156.     )
     
157.      (2
     
158.        "_mid"
     
159.        ((0 1.414) (-1.225 -0.707))
     
160.        ((-1.225 -0.707) (1.225 -0.707))
     
161.        ((1.225 -0.707) (0 1.414))
     
162.      )
     
163.      (4
     
164.        "_cen"
     
165.        ((0 1) (-0.707 0.707))
     
166.        ((-0.707 0.707) (-1 0))
     
167.        ((-1 0) (-0.707 -0.707))
     
168.        ((-0.707 -0.707) (0 -1))
     
169.        ((0 -1) (0.707 -0.707))
     
170.        ((0.707 -0.707) (1 0))
     
171.        ((1 0) (0.707 0.707))
     
172.        ((0.707 0.707) (0 1))
     
173.      )
     
174.      (8
     
175.        "_nod"
     
176.        ((0 1) (-0.707 0.707))
     
177.        ((-0.707 0.707) (-1 0))
     
178.        ((-1 0) (-0.707 -0.707))
     
179.        ((-0.707 -0.707) (0 -1))
     
180.        ((0 -1) (0.707 -0.707))
     
181.        ((0.707 -0.707) (1 0))
     
182.        ((1 0) (0.707 0.707))
     
183.        ((0.707 0.707) (0 1))
     
184.        ((-1 1) (1 -1))
     
185.        ((-1 -1) (1 1))
     
186.      )
     
187.      (16
     
188.        "_qua"
     
189.        ((0 1.414) (-1.414 0))
     
190.        ((-1.414 0) (0 -1.414))
     
191.        ((0 -1.414) (1.414 0))
     
192.        ((1.414 0) (0 1.414))
     
193.      )
     
194.      (32
     
195.        "_int"
     
196.        ((-1 1) (1 -1))
     
197.        ((-1 -1) (1 1))
     
198.        ((1 0.859) (-0.859 -1))
     
199.        ((-1 0.859) (0.859 -1))
     
200.        ((0.859 1) (-1 -0.859))
     
201.        ((-0.859 1) (1 -0.859))
     
202.      )
     
203.      (64
     
204.        "_ins"
     
205.        ((-1 1) (-1 -0.1))
     
206.        ((-1 -0.1) (0 -0.1))
     
207.        ((0 -0.1) (0 -1.0))
     
208.        ((0 -1.0) (1 -1))
     
209.        ((1 -1) (1 0.1))
     
210.        ((1 0.1) (0 0.1))
     
211.        ((0 0.1) (0 1.0))
     
212.        ((0 1.0) (-1 1))
     
213.      )
     
214.      (128
     
215.        "_per"
     
216.        ((-1 1) (-1 -1))
     
217.        ((-1 -1) (1 -1))
     
218.        ((0 -1) (0 0))
     
219.        ((0 0) (-1 0))
     
220.      )
     
221.      (256
     
222.        "_tan"
     
223.        ((0 1) (-0.707 0.707))
     
224.        ((-0.707 0.707) (-1 0))
     
225.        ((-1 0) (-0.707 -0.707))
     
226.        ((-0.707 -0.707) (0 -1))
     
227.        ((0 -1) (0.707 -0.707))
     
228.        ((0.707 -0.707) (1 0))
     
229.        ((1 0) (0.707 0.707))
     
230.        ((0.707 0.707) (0 1))
     
231.        ((1 1) (-1 1))
     
232.      )
     
233.      (512
     
234.        "_nea"
     
235.        ((-1 1) (1 -1))
     
236.        ((1 -1) (-1 -1))
     
237.        ((-1 -1) (1 1))
     
238.        ((1 1) (-1 1))
     
239.      )
     
240.      (1024 "_qui")
     
241.      (2048
     
242.        "_app"
     
243.        ((-1 1) (-1 -1))
     
244.        ((-1 -1) (1 -1))
     
245.        ((1 -1) (1 1))
     
246.        ((1 1) (-1 1))
     
247.        ((-1 1) (1 -1))
     
248.        ((-1 -1) (1 1))
     
249.      )
     
250.      (4096
     
251.        "_ext"
     
252.        ((0.1 0) (0.13 0))
     
253.        ((0.2 0) (0.23 0))
     
254.        ((0.3 0) (0.33 0))
     
255.      )
     
256.      (8192
     
257.        "_par"
     
258.        ((0 1) (-1 -1))
     
259.        ((1 1) (0 -1))
     
260.      )
     
261.    )
     
262. )
     
263. ;;;=================================================================*
     
264. ;;;功能：计算在当前对象捕捉设置情况下，指定点的对象捕捉点位         *
     
265. ;;;思路：获取当前的对象捕捉模式；*
     
266. ;;;      逐个使用osnap来尝试获取点位；*
     
267. ;;;      比较点位距离指定点的距离，最近的即为结果。*
     
268. ;;;返回：(捕捉到的点位   捕捉模式)                                  *
     
269. ;;;      捕捉模式为0表示，不捕捉。*
     
270. (defun GET-OSPOINT (PT / LST_JG OS N PT_NEW)
     
271.   (setq LST_JG '()
     
272.     OS   (getvar "osmode")
     
273.   )
     
274.   (if  (< 0 OS 16384)
     
275.     (foreach N (reverse *LST*)
     
276.       (if  (and (= (logand OS (car N)) (car N))
     
277.             (setq PT_NEW (osnap PT (cadr N)))
     
278.           )
     
279.         (setq
     
280.           LST_JG (cons (list (distance PT_NEW PT)
     
281.                          PT_NEW
     
282.                          (car N)
     
283.                        )
     
284.                    LST_JG
     
285.                  )
     
286.         )
     
287.       )
     
288.     )
     
289.     (setq LST_JG (list (list 0 PT 0)))
     
290.   )
     
291.   ;;根据距离大小排序
     
292.   (if  (> (length LST_JG) 1)
     
293.     (setq LST_JG (vl-sort LST_JG
     
294.                    (function  (lambda  (E1 E2)
     
295.                                 (< (car E1) (car E2))
     
296.                               )
     
297.                    )
     
298.                  )
     
299.     )
     
300.   )
     
301.   ;;返回
     
302.   ;;;    (print LST_JG)
     
303.   (cdr (car LST_JG))
     
304. )
     
305. 
     
306. ;;;=================================================================*
     
307. ;;;功能：在指定点  绘制  指定的靶标                                 *
     
308. ;;;参数：PT -----要绘制的位置                                       *
     
309. ;;;      I  -----捕捉模式单项值。例如：1 or 2 or 4 ...              *
     
310. (defun DRAW-ATPOINT (PT I / SIZE COLOR MATRIX LST)
     
311.   (foreach REAL '(-0.5 0 0.5)
     
312.     (setq SIZE  (* (+ (read (getenv "AutoSnapSize")) REAL)
     
313.                   (/ (getvar "VIEWSIZE")
     
314.                     (cadr (getvar "SCREENSIZE"))
     
315.                   )
     
316.                 )
     
317.       COLOR (read (getenv "AutoSnapColor"))
     
318.     )
     
319.    
     
320.    
     
321.     (setq MATRIX (list (list SIZE 0.0 0.0 (car PT))
     
322.                    (list 0.0 SIZE 0.0 (cadr PT))
     
323.                    (list 0.0 0.0 1.0 0.0)
     
324.                    (list 0.0 0.0 0.0 1.0)
     
325.                  )
     
326.     )
     
327.     (and (setq LST (cddr (assoc I *LST*)))
     
328.       (setq LST
     
329.         (mapcar (function (lambda (X) (cons COLOR X))) LST)
     
330.       )
     
331.       (setq LST (apply 'append LST))
     
332.       (grvecs LST MATRIX)
     
333.     )
     
334.   )
     
335. )
     
336. ;;;=================================================================

(defun c:e2 (/ *error* base_pt basept_type draw_l1 draw_l2 flip_h flip_v gr half_l1 half_l2 l1 l2 new_pt oldecho option osm ospt pt_右上 pt_右下 pt_左上 pt_左下 pt1 ptlst ref_pt target_pt)<br />   ;; 保存原始系统设置<br />   (setq oldecho (getvar "cmdecho")) <br />   (setq osm (getvar "osmode"))      <br />   (setvar "cmdecho" 0)              <br />   <br />   ;; 错误处理函数<br />   (defun *error* (msg)<br />     (if (not (wcmatch (strcase msg) "*BREAK,*CANCEL*,*EXIT*"))<br />       (princ (strcat "\n错误: " msg))<br />     )<br />     (setvar "osmode" osm)          <br />     (setvar "cmdecho" oldecho)     <br />     (princ)<br />   )<br />   <br />   ;; 获取基本参数<br />   (setq l1 (getdist "\n请输入矩形长："))<br />   (setq l2 (getdist "\n请输入矩形宽："))<br />   (setvar "osmode" 14847)  ;; 删除这行代码<br />   (setq basept_type "T")  ;; 默认基点为左上角<br />   (setq flip_h nil)       ;; 水平翻转标志<br />   (setq flip_v nil)       ;; 垂直翻转标志<br />   <br />   ;; 动态预览循环<br />   (princ "\n指定基点 (T=左上角/M=上中点/C=形心) H=水平翻转 V=垂直翻转: ")<br />   (while (and (setq gr (grread t 15 0)) <br />            (/= (car gr) 3)      <br />            (/= (car gr) 25))    <br />     (redraw)  ;; 清除之前的图形<br />     ;; 处理键盘输入（兼容大小写）<br />     (if (= (car gr) 2)<br />       (cond<br />         ;; 基点类型切换<br />         ((member (cadr gr) '(84 116)) (setq basept_type "T"))  ; T/t<br />         ((member (cadr gr) '(77 109)) (setq basept_type "M"))  ; M/m<br />         ((member (cadr gr) '(67 99))  (setq basept_type "C"))  ; C/c<br />         ;; 翻转操作  <br />         ((member (cadr gr) '(72 104)) (setq flip_h (not flip_h))) ; H/h 水平翻转<br />         ((member (cadr gr) '(86 118)) (setq flip_v (not flip_v))) ; V/v 垂直翻转<br />       )<br />     )<br />     <br />     ;; 处理鼠标移动<br />     (if (= (car gr) 5)<br />       (progn<br />         ;; 调用对象捕捉功能获取点<br />         (setq pt1 (cadr gr))<br />         (if (setq ospt (GET-OSPOINT pt1))<br />           (progn                  <br />             ;; 绘制捕捉点的靶标<br />             (apply 'DRAW-ATPOINT ospt)<br />             (setq pt1 (car ospt))<br />             <br />           )<br />         )<br />         <br />         ;; 根据翻转状态计算实际尺寸<br />         (setq draw_l1 (* l1 (if flip_h -1 1))<br />           draw_l2 (* l2 (if flip_v -1 1)))<br />         <br />         ;; 根据基点类型计算顶点<br />         (cond<br />           ;; 左上角基点<br />           ((= basept_type "T") <br />             (setq ptlst (list <br />                           (polar pt1 (* pi 1.5) draw_l2)  ; 左下角<br />                           pt1                             ; 左上角<br />                           (polar pt1 0 draw_l1)           ; 右上角<br />                           (polar (polar pt1 0 draw_l1) (* pi 1.5) draw_l2) ; 右下角<br />                         )))<br />           ;; 上中点基点<br />           ((= basept_type "M") <br />             (setq half_l1 (/ draw_l1 2.0))<br />             (setq pt_左上 (polar pt1 pi half_l1))  ; 左上角<br />             (setq pt_右上 (polar pt1 0 half_l1))   ; 右上角<br />             (setq pt_右下 (polar pt_右上 (* pi 1.5) draw_l2)) ; 右下角<br />             (setq pt_左下 (polar pt_左上 (* pi 1.5) draw_l2)) ; 左下角<br />             (setq ptlst (list pt_左上 pt_右上 pt_右下 pt_左下)))<br />           ;; 形心基点<br />           ((= basept_type "C") <br />             (setq half_l1 (/ draw_l1 2.0)<br />               half_l2 (/ draw_l2 2.0))<br />             (setq pt_左上 (polar (polar pt1 pi half_l1) (/ pi 2) half_l2)) ; 左上角<br />             (setq pt_右上 (polar (polar pt1 0 half_l1) (/ pi 2) half_l2)) ; 右上角<br />             (setq pt_右下 (polar (polar pt1 0 half_l1) (* pi 1.5) half_l2)) ; 右下角<br />             (setq pt_左下 (polar (polar pt1 pi half_l1) (* pi 1.5) half_l2)) ; 左下角<br />             (setq ptlst (list pt_左上 pt_右上 pt_右下 pt_左下)))<br />         )<br />         <br />         ;; 绘制动态预览（红色）<br />         (grvecs <br />           (cons 1 <br />             (list <br />               (nth 0 ptlst) (nth 1 ptlst)<br />               (nth 1 ptlst) (nth 2 ptlst)<br />               (nth 2 ptlst) (nth 3 ptlst)<br />               (nth 3 ptlst) (nth 0 ptlst)<br />             )<br />           )<br />         )<br />         <br />       )<br />     )<br />   )<br />   <br />   ;; 确认绘制时清除预览<br />   (if (= (car gr) 3)<br />     (progn<br />       (command "_.rectang" <br />         "_non" (nth 0 ptlst)  ; 第一个对角点<br />         "_non" (nth 2 ptlst)  ; 第二个对角点<br />       )<br />       (redraw) ; 强制刷新屏幕清除临时图形<br />     )<br />   )<br />   ;; 恢复系统设置<br />   (setvar "osmode" osm)<br />   (setvar "cmdecho" oldecho)  <br />     ;; 增加移动和旋转选项<br />   (initget "M R")  ; 使用 initget 定义选项<br />   (setq option (getkword "\n选择操作 [移动[M]/旋转[R]]<确认>: "))<br />   (setq base_pt pt1)<br />   (cond<br />     ;; 移动<br />     ((= option "M")<br />       (setq target_pt (getpoint base_pt "\n指定目标点: "))<br />       (command "_.move" "_last" "" base_pt target_pt)<br />     )<br />     ;; 旋转<br />     ((= option "R")<br />       (setq ref_pt (getpoint base_pt "\n指定参照点: "))<br />       (setq new_pt (getpoint base_pt "\n指定新角度点: "))<br />       (command "_.rotate" "_last" "" base_pt "_reference" base_pt ref_pt new_pt)<br />     )<br />     ;; 回车确认<br />     ((not option)<br />       (princ "\n已确认，无操作。")<br />     )<br />   )<br />   <br />   (princ)<br /> )<br /> <br /> ;;;功能：支持对象捕捉的grread<br /> ;;;          代码源自fools<br /> ;;;日期：zml84 修改于 2009-05-20<br /> (setq *LST*<br />   '((1<br />       "_end"<br />       ((-1 1) (-1 -1))<br />       ((-1 -1) (1 -1))<br />       ((1 -1) (1 1))<br />       ((1 1) (-1 1))<br />     )<br />      (2<br />        "_mid"<br />        ((0 1.414) (-1.225 -0.707))<br />        ((-1.225 -0.707) (1.225 -0.707))<br />        ((1.225 -0.707) (0 1.414))<br />      )<br />      (4<br />        "_cen"<br />        ((0 1) (-0.707 0.707))<br />        ((-0.707 0.707) (-1 0))<br />        ((-1 0) (-0.707 -0.707))<br />        ((-0.707 -0.707) (0 -1))<br />        ((0 -1) (0.707 -0.707))<br />        ((0.707 -0.707) (1 0))<br />        ((1 0) (0.707 0.707))<br />        ((0.707 0.707) (0 1))<br />      )<br />      (8<br />        "_nod"<br />        ((0 1) (-0.707 0.707))<br />        ((-0.707 0.707) (-1 0))<br />        ((-1 0) (-0.707 -0.707))<br />        ((-0.707 -0.707) (0 -1))<br />        ((0 -1) (0.707 -0.707))<br />        ((0.707 -0.707) (1 0))<br />        ((1 0) (0.707 0.707))<br />        ((0.707 0.707) (0 1))<br />        ((-1 1) (1 -1))<br />        ((-1 -1) (1 1))<br />      )<br />      (16<br />        "_qua"<br />        ((0 1.414) (-1.414 0))<br />        ((-1.414 0) (0 -1.414))<br />        ((0 -1.414) (1.414 0))<br />        ((1.414 0) (0 1.414))<br />      )<br />      (32<br />        "_int"<br />        ((-1 1) (1 -1))<br />        ((-1 -1) (1 1))<br />        ((1 0.859) (-0.859 -1))<br />        ((-1 0.859) (0.859 -1))<br />        ((0.859 1) (-1 -0.859))<br />        ((-0.859 1) (1 -0.859))<br />      )<br />      (64<br />        "_ins"<br />        ((-1 1) (-1 -0.1))<br />        ((-1 -0.1) (0 -0.1))<br />        ((0 -0.1) (0 -1.0))<br />        ((0 -1.0) (1 -1))<br />        ((1 -1) (1 0.1))<br />        ((1 0.1) (0 0.1))<br />        ((0 0.1) (0 1.0))<br />        ((0 1.0) (-1 1))<br />      )<br />      (128<br />        "_per"<br />        ((-1 1) (-1 -1))<br />        ((-1 -1) (1 -1))<br />        ((0 -1) (0 0))<br />        ((0 0) (-1 0))<br />      )<br />      (256<br />        "_tan"<br />        ((0 1) (-0.707 0.707))<br />        ((-0.707 0.707) (-1 0))<br />        ((-1 0) (-0.707 -0.707))<br />        ((-0.707 -0.707) (0 -1))<br />        ((0 -1) (0.707 -0.707))<br />        ((0.707 -0.707) (1 0))<br />        ((1 0) (0.707 0.707))<br />        ((0.707 0.707) (0 1))<br />        ((1 1) (-1 1))<br />      )<br />      (512<br />        "_nea"<br />        ((-1 1) (1 -1))<br />        ((1 -1) (-1 -1))<br />        ((-1 -1) (1 1))<br />        ((1 1) (-1 1))<br />      )<br />      (1024 "_qui")<br />      (2048<br />        "_app"<br />        ((-1 1) (-1 -1))<br />        ((-1 -1) (1 -1))<br />        ((1 -1) (1 1))<br />        ((1 1) (-1 1))<br />        ((-1 1) (1 -1))<br />        ((-1 -1) (1 1))<br />      )<br />      (4096<br />        "_ext"<br />        ((0.1 0) (0.13 0))<br />        ((0.2 0) (0.23 0))<br />        ((0.3 0) (0.33 0))<br />      )<br />      (8192<br />        "_par"<br />        ((0 1) (-1 -1))<br />        ((1 1) (0 -1))<br />      )<br />    )<br /> )<br /> ;;;=================================================================*<br /> ;;;功能：计算在当前对象捕捉设置情况下，指定点的对象捕捉点位         *<br /> ;;;思路：获取当前的对象捕捉模式；*<br /> ;;;      逐个使用osnap来尝试获取点位；*<br /> ;;;      比较点位距离指定点的距离，最近的即为结果。*<br /> ;;;返回：(捕捉到的点位   捕捉模式)                                  *<br /> ;;;      捕捉模式为0表示，不捕捉。*<br /> (defun GET-OSPOINT (PT / LST_JG OS N PT_NEW)<br />   (setq LST_JG '()<br />     OS   (getvar "osmode")<br />   )<br />   (if  (< 0 OS 16384)<br />     (foreach N (reverse *LST*)<br />       (if  (and (= (logand OS (car N)) (car N))<br />             (setq PT_NEW (osnap PT (cadr N)))<br />           )<br />         (setq<br />           LST_JG (cons (list (distance PT_NEW PT)<br />                          PT_NEW<br />                          (car N)<br />                        )<br />                    LST_JG<br />                  )<br />         )<br />       )<br />     )<br />     (setq LST_JG (list (list 0 PT 0)))<br />   )<br />   ;;根据距离大小排序<br />   (if  (> (length LST_JG) 1)<br />     (setq LST_JG (vl-sort LST_JG<br />                    (function  (lambda  (E1 E2)<br />                                 (< (car E1) (car E2))<br />                               )<br />                    )<br />                  )<br />     )<br />   )<br />   ;;返回<br />   ;;;    (print LST_JG)<br />   (cdr (car LST_JG))<br /> )<br /> <br /> ;;;=================================================================*<br /> ;;;功能：在指定点  绘制  指定的靶标                                 *<br /> ;;;参数：PT -----要绘制的位置                                       *<br /> ;;;      I  -----捕捉模式单项值。例如：1 or 2 or 4 ...              *<br /> (defun DRAW-ATPOINT (PT I / SIZE COLOR MATRIX LST)<br />   (foreach REAL '(-0.5 0 0.5)<br />     (setq SIZE  (* (+ (read (getenv "AutoSnapSize")) REAL)<br />                   (/ (getvar "VIEWSIZE")<br />                     (cadr (getvar "SCREENSIZE"))<br />                   )<br />                 )<br />       COLOR (read (getenv "AutoSnapColor"))<br />     )<br />     <br />     <br />     (setq MATRIX (list (list SIZE 0.0 0.0 (car PT))<br />                    (list 0.0 SIZE 0.0 (cadr PT))<br />                    (list 0.0 0.0 1.0 0.0)<br />                    (list 0.0 0.0 0.0 1.0)<br />                  )<br />     )<br />     (and (setq LST (cddr (assoc I *LST*)))<br />       (setq LST<br />         (mapcar (function (lambda (X) (cons COLOR X))) LST)<br />       )<br />       (setq LST (apply 'append LST))<br />       (grvecs LST MATRIX)<br />     )<br />   )<br /> )<br /> ;;;=================================================================

Qwer1243

zhangcn 发表于 2025-2-24 17:26
输入长和宽应该再简化为一步输入用 “，” “.” 间隔长和宽，会更人性化。

我是感觉按空格比输入逗号方便点，你可以修改一下代码，适用自己

zhangcn

输入长和宽应该再简化为一步输入用 “，” “.” 间隔长和宽，会更人性化。

Qwer1243

じ☆v湫樉v☆ 发表于 2025-2-23 10:40
挺方便的，比自带的好用，支持一下

寒潮大冬瓜

很好→很棒！很好~很棒！！很好……很棒！！！

lailaifa

很好→很吊！很好→很吊！很好→很吊！！！

虚空假面

太强了，我何时才能如此优秀

10144189

很好→很吊！很好→很吊！很好→很吊！！！

じ☆v湫樉v☆

挺方便的，比自带的好用，支持一下

阿猪蛋

很好→很棒！很好~很棒！！很好……很棒！！！