Getpoint错误

Drolma · 发表于 2022-7-5 18:05:38

当我使用getpoint时，总是会出错。当我看SPT或EPT时，它是零
（定义c:STUD15（/SPT EPT Wallth Ceilinghg）
（setq SPT（getpoint“\n点击墙的起点…”）
（setq EPT（getpoint“\n点击墙的末端…”）；在这一点上，我得到。。。错误：错误的参数类型：2D/3D点：nil
（setq WALTH（距离spt ept））；墙体长度
（setq Ceilinghgt 96.0）
（setq UnflrBeamhgt（+Ceilinghgt 0.5））；
有人能解释一下我做错了什么吗。
谢谢

broncos15 · 发表于 2022-7-5 18:12:12

您本地化了变量。在测试和执行时，将其解锁！SPT获取值。在Pline上测试时，我没有发现任何错误。

Drolma · 发表于 2022-7-5 18:13:54

感谢您的快速回复。请原谅我的无知，但unlocalise是否意味着删除C：或者只是从（）中删除变量。

satishrajdev · 发表于 2022-7-5 18:18:18

本地化方式

copy

(defun c:STUD15 [b][color="red"](/ SPT EPT Wallth Ceilinghg)[/color][/b]

取消定位

copy

(defun c:STUD15 [b][color="red"]( )[/color][/b]

Drolma · 发表于 2022-7-5 18:23:43

我卸载了变量，但仍然收到相同的错误消息错误：错误的参数类型：2D/3D点：nil

broncos15 · 发表于 2022-7-5 18:25:46

出现错误时，您选择了什么？此外，代码的哪一部分给出了错误？

Drolma · 发表于 2022-7-5 18:31:15

我对lwpolyline的起点执行一个getpoint，对终点执行另一个getpoint，第二个getpoint的响应是。。。。

（defun c:STUD15（）；我试过本地的。并且不定位。
（setq SPT（getpoint“\n点击墙的起点…”）
（setq EPT（getpoint“\n点击墙的末端…”）；在这一点上，我得到。。。错误：错误的参数类型：2D/3D点：nil

谢谢你的帮助，我真的很感激！！！

Drolma · 发表于 2022-7-5 18:34:48

我做了一个测试如下，它给了我一个很好的回应，但我不知道它有什么不同的代码与问题？？？
（定义c：测试4（/SPT EPT PT1 PT2）
（setq SPT（getpoint“\n墙的尖端…”）
（setq EPT（getpoint“\n点击墙的末端…”）
（setq ang1（角度spt ept））；墙体长度
（普林斯ang1）
)
这给了我水平柱脚6.28的弧度

broncos15 · 发表于 2022-7-5 18:37:42

这很奇怪，到目前为止你发布了所有的代码吗？因为如果你这样做了，你就错过了一个结局）。另一部分可能存在一些问题。发布代码时，请确保以[code]开头，以[code]结尾，但不要使用其中的句点。

Drolma · 发表于 2022-7-5 18:43:12

这是一个将PT1设置为o，o，o的例程。但是当我尝试（在前一篇文章中）将SPT设置为“getpoint”时，例程失败了。

copy

;;This program is to draw a 3d model of a studwall
(defun c:STUDwall ( )
(setq PT1 (list 0 0 0))
(setq Ceilinghgt 96.0)
(setq UnflrBeamhgt (+ Ceilinghgt 0.5));Gyproc thickness 0.5 off floor.
(setq Wallth 180.0)
(setq Width 3.5)
(setq Hdrlth (+ Wallth Width))  
(setq Thk 1.5)
(setq Studlth (- UnflrBeamhgt(* Thk 3)))
(setq PT5x  (car PT1))                                              
(setq PT5y  (cadr PT1))                                                
(setq PT5z  (+(last PT1)1.5))
(setq PT5  (list PT5x PT5y PT5z)) 
(setq PT2 (polar PT5 6.283185307 Thk))
(setq PT3 (polar PT2 1.570796327 Width))       
(setq PT4 (polar PT3 3.141592654 Thk))
(command "pline" PT5 PT2 PT3 PT4 PT5 "")
(setq Wallstud (entlast )) 
(setq PT6 (polar PT1 6.283185307 Hdrlth))       
(setq PT7 (polar PT6 1.570796327 Width))
(setq PT8 (polar PT7 3.141592654  Hdrlth))
(setq PT9x  (car PT1))                                              
(setq PT9y  (cadr PT1))                                                
(setq PT9z  (+(last PT1)91.5))
(setq PT9  (list PT9x PT9y PT9z)) 
(command "pline" PT1 PT6 PT7 PT8 PT1 "")
(setq Wallhdr (entlast ))
(command "extrude" Wallhdr "" Thk )
(setq HdrFtr (entlast))
(command "extrude" Wallstud "" Studlth )
(setq Stud (entlast))
(setq PT10x  (car PT5))                                              
(setq PT10y  (cadr PT5))                                                
(setq PT10z  (+(last PT5)Studlth))
(setq PT10  (list PT10x PT10y PT10z))
(setq PT11x  (car PT10))                                              
(setq PT11y  (cadr PT10))                                                
(setq PT11z  (+(last PT10)1.5))
(setq PT11  (list PT11x PT11y PT11z))
(setq PT12x  (+(car PT1)(- Hdrlth 1.5)))                                              
(setq PT12y  (cadr PT1))                                                
(setq PT12z  (last PT1))
(setq PT12  (list PT12x PT12y PT12z))  
(command "copy"  Hdrftr "" PT1  PT10 )
(setq Hdr1 (entlast))
(command "copy"  Hdr1 "" PT10  PT11)
(setq Hdr2 (entlast))
(command "copy"  stud "" PT1  PT12)
(setq Laststud (entlast))
(command "copy"  laststud "" "" -1.5 0 0 )
(setq Secondlast (entlast))
(command "copy"  secondlast "" "" -1.5 0 0 )
(setq NumStuds (/ (+ Wallth width)16))
(setq Nstud (fix NumStuds))
(command "array" stud "" "r" "1" Nstud 16 )
(command "copy"  stud "" "" 1.5 0 0 )
(setq Firstud (entlast))
(command "copy"  Firstud "" "" 1.5 0 0 )
(princ)(princ)
)

[编程交流] Getpoint错误

发表回复

精选推荐