CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 2455|回复: 2

[求助] 错误: 参数类型错误: stringp nil求助

[复制链接]
发表于 2009-10-6 22:19 | 显示全部楼层 |阅读模式
LSP程序
: n$ ?- i- R' ?% j(defun c:dia5b()2 b  ?: w9 s* a8 F9 w
  (setvar"cmdecho"0)9 I7 w$ K, `! @
  (dcl_dia5b)
/ \* x8 e0 V6 O4 C- p  (prinl)1 t* q. Y8 m- Y. u7 G
)$ Y8 i, M3 I( g2 d6 w
(defun dcl_dia5b()$ ]$ r$ |7 ?1 {' p& {' _4 S
  (setq dcl_id(load_dialog"dia5b"))
, J! r, @: I: d4 q& m& J/ l  (new_dialog "dia5b" dcl_id)5 x; `% ?# q' ]$ D+ r2 _1 t
  (set_tile"kww" "50")" ?+ W4 L2 S$ C, r- D
  (set_tile"khh" "50")) p/ N1 u9 u: }: L* {
  (action_tile"bb1" "(get_ww_hh)(done_dialog 1)")
$ W* W: y6 i) ^9 D' s1 H  (action_tile"bb2" "(get_ww_hh)(done_dialog 2)")8 x; e& f4 o9 q3 ]. Z
  (action_tile"bb3" "(get_ww_hh)(done_dialog 3)")
: _4 A4 b0 Y4 E5 p, L6 F  (setq dd(start_dialog))
7 w- R* O. b% l7 |  (cond((= dd 1) (c:dia5b1))
! k- b5 r8 w0 d$ e% e: m       ((= dd 2) (c:dia5b2)). c: N9 W- @6 s5 p6 ^% j
       ((= dd 3) (c:dia5b3))4 k+ {( u  K# a5 g# O
       (t (alert"未完成任何动作!!!"))
; H, s% w; O. n" `; f0 _  )
/ q7 o# S% R# ]! p4 T, M. a)$ O7 b* G3 k0 r4 ^+ t
(defun get_ww_hh()9 L& {' a# E$ f8 m9 V1 V2 n
  (setq ww(atof(get_tile "kww")))# G" X1 Y5 L8 @$ v$ m
  (setq hh(atof(get_tile "khh")))* N8 [7 J6 [& `5 [1 y3 i
)  
# \& R8 e6 Q. V# I- T( O5 m+ K(defun c:dia5b1()8 W9 [+ n4 p, @" b$ F7 c) E
  (setvar"cmdecho"0)5 j9 R( C" i1 Z( _1 d# r& n0 {
  (get_input_data)! ~7 C. k2 R5 I& S; ]; F
  (command"pline"p1 p2 p3 pm34 pm pm14"c")6 F$ q+ U9 }4 X0 `7 ^
  (prinl)  C) `$ V" z& [( K) y& c
)
& ~# t% C8 n3 F$ r9 w(defun c:dia5b2(); x3 r* J; A& E) `: B5 Q
  (setvar"cmdecho"0); j1 ?, N% N" ]+ H* `% u" N
  (get_input_data)
+ n" F6 \% \* k+ c1 T: |- J/ a) s  (command"pline"p1 p2 p3 p4"c")
! K' j' n  G9 [7 d' E& c! t4 Y  (command"line"p1 p3 "")
9 T2 l2 d5 s+ i  (command"line"p2 p4 ""), P+ x( U- i3 L; @, x  N
  (prinl)
2 O# G& O9 [% O3 L4 g)0 h1 w& }4 C! o- ^. [$ y
(defun c:dia5b3()3 p$ F2 w8 `7 {9 R+ a# D; ~! y- |. P
  (setvar"cmdecho"0)
+ @( @" Q- P, R% a8 B0 z  (get_input_data)- w" ^$ [& I( \' f) m4 M
  (command"pline"p1 p2 p4 p3"c")
4 y3 |* m% ^% `4 M  (prinl)
+ Q5 {, k( G! m)$ b/ `" C0 n! [  x( j
(defun get_input_data()
! r7 g" H0 H' N  ;;;(setq ww(getreal"宽度WW:"))
; s. H6 K$ h% z  I: e  ;;;(setq hh(getreal"\n 高度HH:"))  b2 R& t/ D. u0 R
  (setq p1(getpoint"\n 插入点:"))% m* r* x1 A; l! J* g
  (setq p2(polar p1 0 ww)); Y# W5 Q* r1 [3 c. I/ E/ c$ `* ]
  (setq p3(polar p2 (* pi 0.5) hh))
! b2 X0 W: Z8 Z* n! U  (setq p4(polar p3 pi ww))+ \9 [$ m, e' `7 U
  (setq pm(inters p1 p3 p2 p4))
2 D8 R7 e# ^# h  (setq pm12(polar p1 0 (* ww 0.5)))
  O4 H( v$ b# P6 E' x  (setq pm34(polar p3 pi(* ww 0.5)))
% H- n* K9 A- r5 h/ J  (setq pm23(polar p2 (* pi 0.5) (* hh 0.5)))1 J+ j) Z) X* x% J) w
  (setq pm14(polar p1 (* pi 0.5) (* hh 0.5)))
$ h2 U2 x9 X- E4 U7 Z( S)  
8 h' B0 S  _3 v% cDCL程序
1 R. o& g$ U& K3 udia5b:dialog{
" P) `+ r+ J' ~$ s* j% O7 F  Hlabel="按钮测试范例";
' F; j" s2 E: ?6 C6 X:boxed_row{: I9 A, r: Z0 C4 q
label="图形尺寸";
) S5 J: N1 G& q/ a:edit_box{label="宽度WW";key="KWW";edit_width=8;}- h# H# c1 x0 l' j+ v
:edit_box{label="高度HH";key="KHH";edit_width=8;}/ q8 j4 h, F2 ?( Z, K4 r. h# @* z
}
$ k1 }' h  u- g) w% P; E:button{label="绘制DIA5B1-L型";key="bb1";}- D$ T& P5 g5 }1 Z) b
:button{label="绘制DIA5B2-X型";key="bb2";}
, ^, l  m; W9 O% k' W:button{label="绘制DIA5B3-8型";key="bb3";}
$ E. B: w5 [) g5 V4 Y5 S4 u" _spacer_1;1 m. e7 C/ W  v  H/ }9 V
cancel_button;5 t6 M. R" ^5 B% z$ i
}
; x# h8 \* U$ R' c6 |4 x) X+ i% C# M( \, H: L  C  {

% U. O: w9 C3 @3 J. D7 d& l* p为什么加载LSP后在控制框里填上参数老显示错误: 参数类型错误: stringp nil 我都要崩溃了。谁帮忙看看啊
发表于 2011-2-9 19:55 | 显示全部楼层
我在用三维阵列的时候,也是不能成功,打开cad 消息窗口,显示:
: u2 O4 R3 v9 p命令: _3darray" @9 M, P- j2 v+ u8 k
正在初始化...参数类型错误: stringp nil
- Z* L; t( G7 }4 |  o9 N: G, `: \- C不知道怎么回事,我用的是cad2008
发表于 2011-2-9 19:57 | 显示全部楼层
在控制面板添加\删除程序里,找到autocad,重新配置一下,不知道能不能解决。
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2025-2-19 06:06

CAD设计论坛,为工程师增加动力。

© 2005-2025 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表