水平有限，求助大神！！！

suiran

程序运行时出现“Error: 类型不正确 - nil”错误，望大神给找找原因。搞了一天，头都大了

• (defun c:recl( / ent dxf ptb i miny  maxy minx maxx lengthx ss ptb0 ptb1)
• (setvar "dimzin" 0)
• (prompt "\n<<框选图元：>>")
• (if (setq ss (ssget '((0 . "LWPOLYLINE,TEXT"))))
•   (progn
•   (repeat (setq i (sslength ss))
•     (setq i (1- i))
•     (setq ent (ssname ss i))
•     (setq dxf (entget ent))
•                 (setq bianhao(cdr (assoc 1 dxf)))    ;取编号
•           (princ bianhao)
•   (setq ptb (mapcar 'cdr (vl-remove-if '(lambda(a)(/= (car a) 10)) dxf))) ;生成坐标值表
•     (setq ptb (vl-sort ptb '(lambda(a b)
•        (< (car a) (car b)))))     ;坐标点按x轴从小到大排序
•     (setq minx1 (car (car ptb)))     ;生成x轴最小值
•                 (setq minx2 (car (cadr ptb)))     ;生成x轴次小值
•                 (setq miny1 (cadr (car ptb)))     ;生成x轴最小的Y值
•                 (setq miny2 (cadr (cadr ptb)))     ;生成x轴次小的Y值
•     (setq ptb (vl-sort ptb '(lambda(a b)
•        (> (car a) (car b)))))     ;坐标点按x轴从大到小排序
•     (setq maxx3 (car (car ptb)))             ;生成x轴最大值
•                 (setq maxx4 (car (cadr ptb)))             ;生成x轴次大值
•                 (setq maxy3 (cadr (car ptb)))     ;生成x轴最大的Y值
•                 (setq maxy4 (cadr (cadr ptb)))     ;生成x轴次大的Y值
•                 (setq name (getvar "DWGName"))       ;取文件名
•     (setq lengthx (abs(- maxx3 minx1)))  ;取绝对值生成最大长度
•     (setq width1 (abs(- miny2 miny1)))  ;取绝对值生成前宽
•                 (setq width2 (abs(- maxy4 maxy3)))  ;取绝对值生成后宽
• (princ name)
• (princ width1)
• (princ width2)
• (princ lengthx)
• (if (findfile "d:\\尺寸表.xls")
•                     (setq FF (open "d:\\尺寸表.xls" "a"))
•                     (progn(setq FF (open "d:\\尺寸表.xls" "w"))
•                                         (write-line (strcat "图号" "\t"
•                                                 "编号" "\t"
•                                                 "前宽" "\t"
•            "后宽" "\t"
•                        "图纸长度" "\r"
•           )FF)))
• (write-line (strcat name "\t"
•                         bianhao "\t"
•            (rtos width1 2 2) "\t"
•            (rtos width2 2 2) "\t"
•                        (rtos lengthx 2 2) "\r"
•           )FF)
• (close FF)
•    )
• )
• )
• (princ)
•     )
  

liuhe

(if (setq ss (ssget '((0 . "LWPOLYLINE,TEXT"))))
    (progn (setq i (sslength ss))
      (repeat (sslength ss)
        (setq i (1- i))

suiran

liuhe 发表于 2023-2-19 16:12
(if (setq ss (ssget '((0 . "LWPOLYLINE,TEXT"))))
    (progn (setq i (sslength ss))
      (repeat ( ...

更改试了一下，还是不行呢

liuhe

suiran 发表于 2023-2-19 18:44
更改试了一下，还是不行呢

你发图纸看qqqqqqqqqq

liuhe

你的图形有两种图元，lw线条和text文字，文字只有一个（10 x  y）点坐标，没办法求出width1、width2
所以一直报错。你需要把两种图元分开，其他的自己测试吧。

suiran

liuhe 发表于 2023-2-20 08:47
你的图形有两种图元，lw线条和text文字，文字只有一个（10 x  y）点坐标，没办法求出width1、width2
所以 ...

哦，是这样啊，我明白了，知道原因就好改了。非常感谢！

suiran

liuhe 发表于 2023-2-20 08:47
你的图形有两种图元，lw线条和text文字，文字只有一个（10 x  y）点坐标，没办法求出width1、width2
所以 ...

请教一下，我想把每个图形的尺寸提取下来，包括文字，但是因为有2种图元，提取的数据类型老是错误，应该是逻辑不对，但是怎样修改才好呢？我能想到的是把2种图元分别提取，但是这样太麻烦了，有啥好方法？
(defun c:recl( / ent dxf ptb i miny  maxy minx maxx lengthx ss ptb0 ptb1)
(setvar "dimzin" 0)
(prompt "\n<<框选图元：>>")
(setq ss (ssget '((0 . "LWPOLYLINE,*TEXT"))))
  (progn
                (repeat (setq i (sslength ss))
    (setq i (1- i))
    (setq ent (ssname ss i))
    (setq dxf (entget ent))
                (setq entype (cdr (assoc 0 dxf)))
    (if (= entype "LWPOLYLINE")
                        (progn               
                  (setq ptb (mapcar 'cdr (vl-remove-if '(lambda(a)(/= (car a) 10)) dxf))) ;生成坐标值表

    (setq ptb (vl-sort ptb '(lambda(a b)
       (< (car a) (car b)))))     ;坐标点按x轴从小到大排序
    (setq minx1 (car (car ptb)))     ;生成x轴最小值
                (setq minx2 (car (cadr ptb)))     ;生成x轴次小值
                (setq miny1 (cadr (car ptb)))     ;生成x轴最小的Y值
                (setq miny2 (cadr (cadr ptb)))     ;生成x轴次小的Y值
               
    (setq ptb (vl-sort ptb '(lambda(a b)
       (> (car a) (car b)))))     ;坐标点按x轴从大到小排序
    (setq maxx3 (car (car ptb)))             ;生成x轴最大值
                (setq maxx4 (car (cadr ptb)))             ;生成x轴次大值
                (setq maxy3 (cadr (car ptb)))     ;生成x轴最大的Y值
                (setq maxy4 (cadr (cadr ptb)))     ;生成x轴次大的Y值
               
               
                (setq name (getvar "DWGName"))
    (setq lengthx (abs(- maxx3 minx1)))  ;取绝对值生成最大长度
    (setq width1 (abs(- miny2 miny1)))  ;取绝对值生成前宽
                (setq width2 (abs(- maxy4 maxy3)))  ;取绝对值生成后宽
(princ name)               
(princ width1)
(princ width2)
(princ lengthx)
                )
                (progn(setq bianhao(cdr (assoc 1 dxf)))    ;取编号
;          (princ bianhao)                        
                                 ))
                       
(if (findfile "d:\\尺寸表.xls")   
                    (setq FF (open "d:\\尺寸表.xls" "a"))   
                    (progn(setq FF (open "d:\\尺寸表.xls" "w"))
                                        (write-line (strcat "图号" "\t"
                                                       
           "前宽" "\t"
           "后宽" "\t"
                       "图纸长度" "\t"
                                                         "编号" "\r"
          )FF)))
               
(write-line (strcat name "\t"
                        
           (rtos width1 2 2) "\t"
           (rtos width2 2 2) "\t"
                       (rtos lengthx 2 2) "\t"
                       bianhao "\r"
          )FF)         
(close FF))
   
)
(princ)
    )

liuhe

由于你的文字图元和线条图元是有关联的，这两种图元如何产生关联你要清楚，通过这种关联，把关联的文字和线条分成一组，然后读取数据。而不是把图元简单分成两大类。这可能并不能实现你的目的