提示参数类型错误，不知道错误在哪

YY风信子YY

    ;平面坐标绘制
   (defun c:Mydcl_Form4_TextButton2_OnClicked (/)
                 (setvar "cmdecho" 0);关闭命令提示
             (setq *osmode_bak (getvar "osmode"));备份捕捉
             (command "_.undo" "be");一键undo开始
                 (setvar "osmode" 0);关闭捕捉
                 (setq m 0)
                 (setq KDH1 (dcl_Control_GetText Mydcl_Form4_TextBox3))
         (setq KE1 (dcl_Control_GetText Mydcl_Form4_TextBox4))
         (setq KN1 (dcl_Control_GetText Mydcl_Form4_TextBox5))
         (setq KZ1 (dcl_Control_GetText Mydcl_Form4_TextBox11))
         (setq FGF1 (dcl_Control_GetText Mydcl_Form4_TextBox9))
         (setq ZG1 (dcl_Control_GetText Mydcl_Form4_TextBox7))
         (setq BZ1 (dcl_Control_GetText Mydcl_Form4_TextBox8))
                 ;参数类型转化
                 (setq KDH (- (atoi KDH1) 1))
                 (setq KE (- (atoi KE1) 1))
                 (setq KN (- (atoi KN1) 1))
                 (setq KZ (- (atoi KZ1) 1))
                 (setq ZG (atof ZG1))
                 ;建立图层
         (if (= BZ "")
                     (setq ZBTC "坐标")
             (setq ZBTC (strcat "坐标" BZ)))
                 (if (not (tblsearch "layer" ZBTC))
             (command "layer" "n" ZBTC "c" "1" ZBTC ""))
         (if (= BZ "")
                     (setq DHTC "点号")
             (setq DHTC (strcat "点号" BZ)))
                 (if (not (tblsearch "layer" DHTC))
             (command "layer" "n" DHTC "c" "1" DHTC ""))
         (setq FF (open file-path "r"))
         (while (setq lineStrs (read-line FF))
                (setq lineStrs (ZHLST lineStrs FGF))；将读取的数据转化为列表
                (setq DH (nth KDH lineStrs))
                                (setq X (nth KE lineStrs))
                                (setq Y (nth KN lineStrs))
                                (setq Z (nth KZ lineStrs))
                    (setq ZB (strcat Y "," X "," Z))
                                (command "clayer" ZBTC)
                (command "point" ZB)
                                (command "clayer" DHTC)
                                (setq PT (list (atof Y) (atof X) (atof Z)))
                                (command "text" "j" "BL" PT ZG 0 DH)
                                (setq m (+ m 1))
                                (setq HTJD (rtos (* (/ m n) 100)))
                (dcl_Control_SetValue Mydcl_Form4_ProgressBar1 HTJD))
                 (alert (strcat "绘制完成！\n共读取" (rtos n) "个点,成功绘制" (rtos m) "个点。"))
         (close ff)
                 (setq m 0)
                 (dcl_Control_SetValue Mydcl_Form4_ProgressBar1 0)
                 (command "_.undo" "end");一键undo结束
             (setvar "osmode" *osmode_bak);还原捕捉
             (setvar "cmdecho" 1);打开命令提示
         (princ))

XDSoft

你这代码，对话框，还是局部的，别人没法执行

你在程序中，合适位置  加些打印语句，定位下具体那个行出错了。

huangpc27

只能自己查了，哪里参数类型错误，就转换成需要的类型呀。