通过DeepSeek-R1写了关于自动生成随机高程点的代码，但是无法运行，请教大家帮忙看看

xy524426071

写一个CAD的LSP插件，要求如下1，在封闭的图形范围内，生成随机高程，如果没有封闭图形，则是用户自己进行位置选择，启动命令:sjgcd2，用户可以自定义随机高程值的范围3，生成完成后以弹窗形式将生成的高程点信息显示在屏幕中 内容包含生成的随机高程个数，最大值，最小值，数值和，高程点的平均数4，弹窗用户进行确认后，提示是否导出高程，若导出，则导出Cass格式，若不导出，则退出



以下为代码：




(defun c:sjgcd (/ ss poly min_val max_val count elev_list max_elev min_elev sum_elev avg_elev msg export fname f pt mode)  ;; 初始化随机种子  (setq *random-state* (seed (getvar "DATE")))    ;; 选择生成模式  (initget "Auto Manual")  (setq mode (getkword "\n选择生成模式 [Auto(自动在封闭图形内)/Manual(手动选择位置)] <Auto>: "))  (if (not mode) (setq mode "Auto"))    ;; 自动模式：在封闭图形内生成  (if (eq mode "Auto")    (progn      (while (not ss)        (setq ss (ssget ":S" '((0 . "LWPOLYLINE"))))        (if (not ss) (alert "请选择一个封闭的多段线或切换为手动模式!")))      (setq poly (ssname ss 0))))    ;; 用户输入验证  (while (not min_val)    (setq min_val (getreal "\n请输入最小高程值: ")))    (while (or (not max_val) (<= max_val min_val))    (setq max_val (getreal (strcat "\n请输入最大高程值(必须大于" (rtos min_val 2 2) "): "))))    (while (not count)    (setq count (getint "\n要生成的高程点数量: ")))    ;; 生成随机高程列表  (setq elev_list nil)  (repeat count    (if (eq mode "Auto")      (setq pt (getpointinpoly poly))      (setq pt (getpoint "\n指定高程点位置: ")))    (setq elev_list (cons (list pt (+ min_val (* (random) (- max_val min_val)))) elev_list)))    ;; 计算统计信息  (setq max_elev (apply 'max (mapcar 'cadr elev_list))        min_elev (apply 'min (mapcar 'cadr elev_list))        sum_elev (apply '+ (mapcar 'cadr elev_list))        avg_elev (/ sum_elev (float count)))    ;; 显示结果对话框  (setq msg (strcat "高程点统计信息:\n"                   "生成数量: " (itoa count) "\n"                   "最大值: " (rtos max_elev 2 3) "\n"                   "最小值: " (rtos min_elev 2 3) "\n"                   "数值和: " (rtos sum_elev 2 3) "\n"                   "平均值: " (rtos avg_elev 2 3)))    (alert msg)    ;; 导出选项处理  (initget "Yes No")  (setq export (getkword "\n导出为CASS格式? [Yes/No] <No>: "))    (cond     ((eq export "Yes")     (if (setq fname (getfiled "保存CASS文件" "" "dat" 1))       (progn         (setq f (open fname "w"))         (foreach item elev_list           (write-line (strcat "1," (rtos (car (car item)) 2 3) "," (rtos (cadr (car item)) 2 3) "," (rtos (cadr item) 2 3)) f))         (close f)         (alert (strcat "成功导出 " (itoa count) " 个高程点到:\n" fname)))))    (t (alert "操作已取消")))    (princ));; 辅助函数：在多段线内生成随机点(defun getpointinpoly (poly / minpt maxpt pt)  (vla-getboundingbox (vlax-ename->vla-object poly) 'minpt 'maxpt)  (setq minpt (vlax-safearray->list minpt)        maxpt (vlax-safearray->list maxpt))  (while (not pt)    (setq pt (list (+ (car minpt) (* (random) (- (car maxpt) (car minpt))))                   (+ (cadr minpt) (* (random) (- (cadr maxpt) (cadr minpt))))))    (if (not (ispointinside poly pt)) (setq pt nil)))  pt);; 辅助函数：判断点是否在多段线内(defun ispointinside (poly pt / ray)  (setq ray (polar pt (* pi 0.25) 1000))  (remq nil (mapcar '(lambda (x) (inters pt ray (car x) (cadr x))) (getpolyedges poly))));; 辅助函数：获取多段线边(defun getpolyedges (poly / pts edges)  (setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget poly))))  (setq edges nil)  (repeat (1- (length pts))    (setq edges (cons (list (nth (1- (length pts)) pts) (car pts)) edges)          pts (cdr pts)))  edges)(princ "\n随机高程生成插件已加载，输入sjgcd运行。")(princ)

嘒彼小星

在你的基础上通过ai修改几次到最终可以用的形式。随机数应该不是很随机。按时间算来的。具体看代码

2. (defun c:sjgcd (/ ss poly min_val max_val count elev_list max_elev min_elev sum_elev avg_elev msg export fname f pt mode)
   
3. ;; 自定义随机数生成函数
   
4.   (defun myrandom (/ modulus multiplier increment rand)
   
5.     (if (not *seed*)
   
6.       (setq *seed* (getvar "DATE"))
   
7.     )
   
8.     (setq modulus    65536
   
9.           multiplier 25173
   
10.           increment  13849
    
11.           *seed*     (rem (+ (* multiplier *seed*) increment) modulus)
    
12.           rand       (/ *seed* modulus)
    
13.     )
    
14.   )
    
15. ;; 在多段线内生成随机点
    
16.   (defun getpointinpoly (poly / minpt maxpt pt)
    
17.     (vla-getboundingbox (vlax-ename->vla-object poly) 'minpt 'maxpt)
    
18.     (setq minpt (vlax-safearray->list minpt)
    
19.           maxpt (vlax-safearray->list maxpt))
    
20.     (while (not pt)
    
21.       (setq pt (list (+ (car minpt) (* (myrandom) (- (car maxpt) (car minpt))))
    
22.                      (+ (cadr minpt) (* (myrandom) (- (cadr maxpt) (cadr minpt)))))
    
23.       )
    
24.       (if (not (ispointinside poly pt)) (setq pt nil))
    
25.     )
    
26.     pt
    
27.   )
    
28. ;; 判断点是否在多段线内
    
29.   (defun ispointinside (poly pt / ray intersections)
    
30.     (setq ray (polar pt (* pi 0.25) 1000))
    
31.     (setq intersections
    
32.       (vl-remove-if 'null
    
33.         (mapcar '(lambda (x) (inters pt ray (car x) (cadr x)))
    
34.                 (getpolyedges poly)
    
35.         )
    
36.       )
    
37.     )
    
38.     (if (and intersections (= (rem (length intersections) 2) 1)) t nil)
    
39.   )
    
40. ;; 获取多段线边
    
41.   (defun getpolyedges (poly / pts edges)
    
42.     (setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget poly))))
    
43.     (setq edges nil)
    
44.     (repeat (1- (length pts))
    
45.       (setq edges (cons (list (nth (1- (length pts)) pts) (car pts)) edges)
    
46.             pts (cdr pts))
    
47.     )
    
48.     edges
    
49.   )
    
50.   ;; 选择生成模式
    
51.   (initget "Auto Manual")
    
52.   (setq mode (getkword "\n选择生成模式 [Auto(自动在封闭图形内)/Manual(手动选择位置)] <Auto>: "))
    
53.   (if (not mode) (setq mode "Auto"))
    
54.   ;; 自动模式：在封闭图形内生成
    
55.   (if (eq mode "Auto")
    
56.     (progn
    
57.       (while (not ss)
    
58.         (setq ss (ssget ":S" '((0 . "LWPOLYLINE"))))
    
59.         (if (not ss) (alert "请选择一个封闭的多段线或切换为手动模式!"))
    
60.       )
    
61.       (setq poly (ssname ss 0))
    
62.     )
    
63.   )
    
64.   ;; 用户输入验证
    
65.   (while (not min_val)
    
66.     (setq min_val (getreal "\n请输入最小高程值: "))
    
67.   )
    
68.   (while (or (not max_val) (<= max_val min_val))
    
69.     (setq max_val (getreal (strcat "\n请输入最大高程值(必须大于" (rtos min_val 2 2) "): ")))
    
70.   )
    
71.   (while (not count)
    
72.     (setq count (getint "\n要生成的高程点数量: "))
    
73.   )
    
74.   ;; 生成随机高程列表
    
75.   (setq elev_list nil)
    
76.   (repeat count
    
77.     (if (eq mode "Auto")
    
78.       (setq pt (getpointinpoly poly))
    
79.       (setq pt (getpoint "\n指定高程点位置: "))
    
80.     )
    
81.     (setq elev_list (cons (list pt (+ min_val (* (myrandom) (- max_val min_val)))) elev_list))
    
82.   )
    
83.   ;; 计算统计信息
    
84.   (setq max_elev (apply 'max (mapcar 'cadr elev_list))
    
85.         min_elev (apply 'min (mapcar 'cadr elev_list))
    
86.         sum_elev (apply '+ (mapcar 'cadr elev_list))
    
87.         avg_elev (/ sum_elev (float count))
    
88.   )
    
89.   ;; 显示结果对话框
    
90.   (setq msg (strcat "高程点统计信息:\n"
    
91.                     "生成数量: " (itoa count) "\n"
    
92.                     "最大值: " (rtos max_elev 2 3) "\n"
    
93.                     "最小值: " (rtos min_elev 2 3) "\n"
    
94.                     "数值和: " (rtos sum_elev 2 3) "\n"
    
95.                     "平均值: " (rtos avg_elev 2 3)
    
96.             )
    
97.   )
    
98.   (alert msg)
    
99.   ;; 导出选项处理
    
100.   (initget "Yes No")
     
101.   (setq export (getkword "\n导出为CASS格式? [Yes/No] <No>: "))
     
102.   (cond
     
103.     ((eq export "Yes")
     
104.      (if (setq fname (getfiled "保存CASS文件" "" "dat" 1))
     
105.        (progn
     
106.          (setq f (open fname "w"))
     
107.          (foreach item elev_list
     
108.            (write-line (strcat "1," (rtos (car (car item)) 2 3) "," (rtos (cadr (car item)) 2 3) "," (rtos (cadr item) 2 3)) f)
     
109.          )
     
110.          (close f)
     
111.          (alert (strcat "成功导出 " (itoa count) " 个高程点到:\n" fname))
     
112.        )
     
113.      )
     
114.     )
     
115.     (t (alert "操作已取消"))
     
116.   )
     
117.   (princ)
     
118. )
     
119. (princ "\n随机高程生成插件已加载，输入sjgcd运行。")(princ)

(defun c:sjgcd (/ ss poly min_val max_val count elev_list max_elev min_elev sum_elev avg_elev msg export fname f pt mode)<br /> ;; 自定义随机数生成函数<br />   (defun myrandom (/ modulus multiplier increment rand)<br />     (if (not *seed*)<br />       (setq *seed* (getvar "DATE"))<br />     )<br />     (setq modulus    65536<br />           multiplier 25173<br />           increment  13849<br />           *seed*     (rem (+ (* multiplier *seed*) increment) modulus)<br />           rand       (/ *seed* modulus)<br />     )<br />   )<br /> ;; 在多段线内生成随机点<br />   (defun getpointinpoly (poly / minpt maxpt pt)<br />     (vla-getboundingbox (vlax-ename->vla-object poly) 'minpt 'maxpt)<br />     (setq minpt (vlax-safearray->list minpt)<br />           maxpt (vlax-safearray->list maxpt))<br />     (while (not pt)<br />       (setq pt (list (+ (car minpt) (* (myrandom) (- (car maxpt) (car minpt))))<br />                      (+ (cadr minpt) (* (myrandom) (- (cadr maxpt) (cadr minpt)))))<br />       )<br />       (if (not (ispointinside poly pt)) (setq pt nil))<br />     )<br />     pt<br />   )<br /> ;; 判断点是否在多段线内<br />   (defun ispointinside (poly pt / ray intersections)<br />     (setq ray (polar pt (* pi 0.25) 1000))<br />     (setq intersections <br />       (vl-remove-if 'null <br />         (mapcar '(lambda (x) (inters pt ray (car x) (cadr x))) <br />                 (getpolyedges poly)<br />         )<br />       )<br />     )<br />     (if (and intersections (= (rem (length intersections) 2) 1)) t nil)<br />   )<br /> ;; 获取多段线边<br />   (defun getpolyedges (poly / pts edges)<br />     (setq pts (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget poly))))<br />     (setq edges nil)<br />     (repeat (1- (length pts))<br />       (setq edges (cons (list (nth (1- (length pts)) pts) (car pts)) edges)<br />             pts (cdr pts))<br />     )<br />     edges<br />   )<br />   ;; 选择生成模式<br />   (initget "Auto Manual")<br />   (setq mode (getkword "\n选择生成模式 [Auto(自动在封闭图形内)/Manual(手动选择位置)] <Auto>: "))<br />   (if (not mode) (setq mode "Auto"))<br />   ;; 自动模式：在封闭图形内生成<br />   (if (eq mode "Auto")<br />     (progn<br />       (while (not ss)<br />         (setq ss (ssget ":S" '((0 . "LWPOLYLINE"))))<br />         (if (not ss) (alert "请选择一个封闭的多段线或切换为手动模式!"))<br />       )<br />       (setq poly (ssname ss 0))<br />     )<br />   )<br />   ;; 用户输入验证<br />   (while (not min_val)<br />     (setq min_val (getreal "\n请输入最小高程值: "))<br />   )<br />   (while (or (not max_val) (<= max_val min_val))<br />     (setq max_val (getreal (strcat "\n请输入最大高程值(必须大于" (rtos min_val 2 2) "): ")))<br />   )<br />   (while (not count)<br />     (setq count (getint "\n要生成的高程点数量: "))<br />   )<br />   ;; 生成随机高程列表<br />   (setq elev_list nil)<br />   (repeat count<br />     (if (eq mode "Auto")<br />       (setq pt (getpointinpoly poly))<br />       (setq pt (getpoint "\n指定高程点位置: "))<br />     )<br />     (setq elev_list (cons (list pt (+ min_val (* (myrandom) (- max_val min_val)))) elev_list))<br />   )<br />   ;; 计算统计信息<br />   (setq max_elev (apply 'max (mapcar 'cadr elev_list))<br />         min_elev (apply 'min (mapcar 'cadr elev_list))<br />         sum_elev (apply '+ (mapcar 'cadr elev_list))<br />         avg_elev (/ sum_elev (float count))<br />   )<br />   ;; 显示结果对话框<br />   (setq msg (strcat "高程点统计信息:\n"<br />                     "生成数量: " (itoa count) "\n"<br />                     "最大值: " (rtos max_elev 2 3) "\n"<br />                     "最小值: " (rtos min_elev 2 3) "\n"<br />                     "数值和: " (rtos sum_elev 2 3) "\n"<br />                     "平均值: " (rtos avg_elev 2 3)<br />             )<br />   )<br />   (alert msg)<br />   ;; 导出选项处理<br />   (initget "Yes No")<br />   (setq export (getkword "\n导出为CASS格式? [Yes/No] <No>: "))<br />   (cond<br />     ((eq export "Yes")<br />      (if (setq fname (getfiled "保存CASS文件" "" "dat" 1))<br />        (progn<br />          (setq f (open fname "w"))<br />          (foreach item elev_list<br />            (write-line (strcat "1," (rtos (car (car item)) 2 3) "," (rtos (cadr (car item)) 2 3) "," (rtos (cadr item) 2 3)) f)<br />          )<br />          (close f)<br />          (alert (strcat "成功导出 " (itoa count) " 个高程点到:\n" fname))<br />        )<br />      )<br />     )<br />     (t (alert "操作已取消"))<br />   )<br />   (princ)<br /> )<br /> (princ "\n随机高程生成插件已加载，输入sjgcd运行。")(princ)

xy524426071

嘒彼小星 发表于 2025-6-26 12:34
在你的基础上通过ai修改几次到最终可以用的形式。随机数应该不是很随机。按时间算来的。具体看代码

下载运行  还是提示报错   

xy524426071

嘒彼小星 发表于 2025-6-26 12:34
在你的基础上通过ai修改几次到最终可以用的形式。随机数应该不是很随机。按时间算来的。具体看代码

提示   错误: 输入的列表有缺陷


方便将lisp文件发我吗  CAD2006用  524426071@qq.com

嘒彼小星

xy524426071 发表于 2025-6-27 09:53
提示   错误: 输入的列表有缺陷

点普通浏览。弹出的窗口。全选。复制，