VLISP在CAD2012使用时,出现参数类型错误:二维/三维点:0

xufeihzq

我是VLISP初学者,看着实例写的程序,在CAD2008以下版本试用时,没有错误,而且可以正常使用
但是在CAD2010以上版本使用时,就会出现;错误:参数类型错误:二维/三维点:0

是哪里出问题了

Lisphk

要把你的代码帖上来，才好找问题

xufeihzq

;---------autodim----------
(defun bz (yi / AM ANG ANG0 ANG1 BU BUGLE HI IN INPOINT
           KM1 LEN LEN0 LONG MIDPOINT NUM PO0 PO1 PO2 POLY
           R1 RADIUS S SCALE TXTDIST W WZ XX YU YY ZG ZZ)         
  (command "style" "hztxt" "monotxt.shx" 0 1.0 0 "n" "n" "n")     ;设置字体
  (command "style" "standard" "simsun.ttf" 0 1.0 0 "n" "n")       ;设置字体
  (command "dimzin" 1)                                            ;设置未数带0
    (if (= 0.0 (getvar "userr5")) (setvar "userr5" 200.0))
  (setq scale (getvar "userr5"))
  (if (= scale nil) (setq scale 200))                             ;_end of if
  (setq s (* scale 0.0001))                                       ;精确小数位数
  (setvar "cecolor" "2")                                          ;设置颜色为黄色
  (setq in (getpoint "请在区域内取一点:"))                        ;等待用户输入,边界内一点赋于in
  (command "boundary" in "")                                      ;创建边界poly
  (setq poly (entget (entlast)))                                  ;将变量poly设为边界的图元名称
  (setvar "cecolor" "256")                                        ;颜色恢复为bylayer
  (setq long (length poly))                                       ;求表长long
  (setq po0 (assoc 10 poly))                                      ;求第一个端点p0
  (setq num 10)
  (setq bugle (assoc 42 poly))                                    ;求第一个凸度大小
  (setq bu 0)
  (while (/= bu bugle)                                            
    (setq num (+ 1 num))
    (setq bu (nth num poly)))                                     ;确定第一个凸度位置num
  (setq bu (cdr bu))                                              ;去掉第一个元素后所得的表赋于bu
  (while (/= nil bu)                                             
    (setq po1 0
          po2 0)                                                  ;设置po1,po2初值为0
    (if (< (+ 4 num) long)
      (setq po2 (nth (+ 1 num) poly))
      (setq po2 po0))                                             ;_END of if
    (setq po1 (nth (- num 3) poly))
    (setq po1 (cdr po1)
          po2 (cdr po2))
    (setq len (/ (distance po1 po2) 2))                           ;求po1,po2的距离的一半赋于len
    (setq ang0 (angle po1 po2))                                   ;求角度值赋于ang0
    (setq midpoint (polar po1 ang0 len))                          ;求三维点赋于midpoint
    (cond ((/= 0 bu)                                             
           (progn                                                
             (if (> bu 0)
               (setq ang (- ang0 (* pi 0.5)))
               (setq ang (+ ang0 (* pi 0.5))))                    ;_END of if
             (setq zg (* scale 0.002))
             (setq hi (abs bu))
             (setq inpoint (polar midpoint ang (* len hi)))
             (setq radius (/ (* len (+ 1 (* hi hi)) 2) (* 4 hi)))
             (setq R1 (fix (+ 0.5 (* radius 1000))))
             (setq yu (fix (rem R1 10)))
             (if (/= 0 yu)
               (setq w 3)
               (setq w 2))                                        ;_END of if
             (setq radius (rtos radius 2 w))
             (setq radius (strcat "←R" radius))
             (setq ang1 (+ ang0 (* pi 0.5)) wz radius)
             (f4 inpoint zg 0.5 "standard" "套内标注" wz 256 ang1)
             (setq txtdist (distance (cdr (assoc 10 (entget (entlast))))
                                     (cdr (assoc 11 (entget (entlast))))))
             (setq inpoint (polar midpoint ang (+ (* len hi) (* yi txtdist))))
             (entdel (entlast))
             (f4 inpoint zg 0.5 "standard" "套内标注" wz 256 (+ (* pi (+ 1 yi) 0.5 ang1))));完成半径标注
           )
           ((= 0 bu)
            (progn                                               
              (setq s (* scale 0.0001))
              (setq km1 (fix (+ 0.5 (* len 1000 2))))
              (setq yu (fix (rem km1 10)))
              (if (/= 0 yu)
                (setq w 3)
                (setq w 2))
              (setq len0 (* len 2))
              (setq wz (rtos len0 2 w))
              (setq ang0 (+ ang0 (* pi (/ (+ 1 yi) 2))))
              (setq ang1 ang0)
              (if (and (> ang1 1.570796327) (< ang1 5.759586532))
                (progn
                  (setq ang1 (+ ang1 3.141592654))
                  (setq s (* scale 0.003))))
              (setq am (polar midpoint (+ ang0 (* pi 0.5)) s))
              (setq xx (car am)                                   ;返回表am中的第一个元素赋于xx
                    yy (cadr am)                                  ;返回表am中的第二个元素赋于yy
                    zz 0.0000)
              (setq zg (* scale 0.002))
              (setq inpoint (list xx yy zz))
              (f4 inpoint zg 0.5 "hztxt" "套内标注" wz 256 ang1)) ;完成直线标注
            ))
    (setq num (+ 4 num))                                           ;求下一个num+4
    (setq bu (cdr (nth num poly)))                                ;求下一个凸度bu
    ))                                                            ;_END of defun
;---------------------------------AUTOdim-----------------------------------------
(defun c:ba () (bz -1))
(defun c:bw () (bz 1))


                    
               

xufeihzq

Lisphk 发表于 2020-6-26 22:34
要把你的代码帖上来，才好找问题

;---------autodim----------
(defun bz (yi / AM ANG ANG0 ANG1 BU BUGLE HI IN INPOINT
           KM1 LEN LEN0 LONG MIDPOINT NUM PO0 PO1 PO2 POLY
           R1 RADIUS S SCALE TXTDIST W WZ XX YU YY ZG ZZ)         
  (command "style" "hztxt" "monotxt.shx" 0 1.0 0 "n" "n" "n")     ;设置字体
  (command "style" "standard" "simsun.ttf" 0 1.0 0 "n" "n")       ;设置字体
  (command "dimzin" 1)                                            ;设置未数带0
    (if (= 0.0 (getvar "userr5")) (setvar "userr5" 200.0))
  (setq scale (getvar "userr5"))
  (if (= scale nil) (setq scale 200))                             ;_end of if
  (setq s (* scale 0.0001))                                       ;精确小数位数
  (setvar "cecolor" "2")                                          ;设置颜色为黄色
  (setq in (getpoint "请在区域内取一点:"))                        ;等待用户输入,边界内一点赋于in
  (command "boundary" in "")                                      ;创建边界poly
  (setq poly (entget (entlast)))                                  ;将变量poly设为边界的图元名称
  (setvar "cecolor" "256")                                        ;颜色恢复为bylayer
  (setq long (length poly))                                       ;求表长long
  (setq po0 (assoc 10 poly))                                      ;求第一个端点p0
  (setq num 10)
  (setq bugle (assoc 42 poly))                                    ;求第一个凸度大小
  (setq bu 0)
  (while (/= bu bugle)                                            
    (setq num (+ 1 num))
    (setq bu (nth num poly)))                                     ;确定第一个凸度位置num
  (setq bu (cdr bu))                                              ;去掉第一个元素后所得的表赋于bu
  (while (/= nil bu)                                             
    (setq po1 0
          po2 0)                                                  ;设置po1,po2初值为0
    (if (< (+ 4 num) long)
      (setq po2 (nth (+ 1 num) poly))
      (setq po2 po0))                                             ;_END of if
    (setq po1 (nth (- num 3) poly))
    (setq po1 (cdr po1)
          po2 (cdr po2))
    (setq len (/ (distance po1 po2) 2))                           ;求po1,po2的距离的一半赋于len
    (setq ang0 (angle po1 po2))                                   ;求角度值赋于ang0
    (setq midpoint (polar po1 ang0 len))                          ;求三维点赋于midpoint
    (cond ((/= 0 bu)                                             
           (progn                                                
             (if (> bu 0)
               (setq ang (- ang0 (* pi 0.5)))
               (setq ang (+ ang0 (* pi 0.5))))                    ;_END of if
             (setq zg (* scale 0.002))
             (setq hi (abs bu))
             (setq inpoint (polar midpoint ang (* len hi)))
             (setq radius (/ (* len (+ 1 (* hi hi)) 2) (* 4 hi)))
             (setq R1 (fix (+ 0.5 (* radius 1000))))
             (setq yu (fix (rem R1 10)))
             (if (/= 0 yu)
               (setq w 3)
               (setq w 2))                                        ;_END of if
             (setq radius (rtos radius 2 w))
             (setq radius (strcat "←R" radius))
             (setq ang1 (+ ang0 (* pi 0.5)) wz radius)
             (f4 inpoint zg 0.5 "standard" "套内标注" wz 256 ang1)
             (setq txtdist (distance (cdr (assoc 10 (entget (entlast))))
                                     (cdr (assoc 11 (entget (entlast))))))
             (setq inpoint (polar midpoint ang (+ (* len hi) (* yi txtdist))))
             (entdel (entlast))
             (f4 inpoint zg 0.5 "standard" "套内标注" wz 256 (+ (* pi (+ 1 yi) 0.5 ang1))));完成半径标注
           )
           ((= 0 bu)
            (progn                                               
              (setq s (* scale 0.0001))
              (setq km1 (fix (+ 0.5 (* len 1000 2))))
              (setq yu (fix (rem km1 10)))
              (if (/= 0 yu)
                (setq w 3)
                (setq w 2))
              (setq len0 (* len 2))
              (setq wz (rtos len0 2 w))
              (setq ang0 (+ ang0 (* pi (/ (+ 1 yi) 2))))
              (setq ang1 ang0)
              (if (and (> ang1 1.570796327) (< ang1 5.759586532))
                (progn
                  (setq ang1 (+ ang1 3.141592654))
                  (setq s (* scale 0.003))))
              (setq am (polar midpoint (+ ang0 (* pi 0.5)) s))
              (setq xx (car am)                                   ;返回表am中的第一个元素赋于xx
                    yy (cadr am)                                  ;返回表am中的第二个元素赋于yy
                    zz 0.0000)
              (setq zg (* scale 0.002))
              (setq inpoint (list xx yy zz))
              (f4 inpoint zg 0.5 "hztxt" "套内标注" wz 256 ang1)) ;完成直线标注
            ))
    (setq num (+ 4 num))                                           ;求下一个num+4
    (setq bu (cdr (nth num poly)))                                ;求下一个凸度bu
    ))                                                            ;_END of defun
;---------------------------------AUTOdim-----------------------------------------
(defun c:ba () (bz -1))
(defun c:bw () (bz 1))

   
                    
               
   
  

newer

xufeihzq 发表于 2020-6-28 19:06
;---------autodim----------
(defun bz (yi / AM ANG ANG0 ANG1 BU BUGLE HI IN INPOINT
           KM1 LEN LE ...

在代码的适当位置，加一些打印语句，看看执行到哪里出问题的