写了段判断是否生成图元的程序，请大家帮忙测试一下有没有bug

669423907

写了段判断是否生成图元的程序，请大家帮忙测试一下有没有bug
(defun c:13(/ x)
(setq x (New_en 0))
(if (getpoint "\n 请指定圆心：")
(entmake (list '(0 . "circle") (cons 10 (cadr(grread 3))) (cons 40 (*(getvar"viewsize") 0.02) )))
)
(princ"\n")
(if (New_en x) (strcat "生成 "(rtos(New_en x))" 个图元") )
)




(defun New_en(i / j) ;(setq x (New_enn 0)) ;判断新图元
(entmake (list '(0 . "point") (cons 10 (cadr(grread 3))) ))
(setq j (sslength (ssget "x")) j (if (= (- j i) 0) nil (- j i) ))
(entdel (entlast)) j)

happyxt

测试了，没发现问题。
似乎也可以这样：
(defun c:13(/ x en)
  (setq en (entlast))
  (if (getpoint "\n 请指定圆心：")
    (entmake (list '(0 . "circle") (cons 10 (cadr(grread 3))) (cons 40 (*(getvar"viewsize") 0.02) )))
  )
  (princ"\n")
  (strcat "生成 "(rtos(New_en en))" 个图元")
)

(defun New_en(en / j);(setq x (New_en enStart)) ;判断新图元
  (setq j 0)
  (while (setq en (entnext en))
    (setq j (1+ j))
  )
)

669423907

happyxt 发表于 2020-10-9 20:05
测试了，没发现问题。
似乎也可以这样：
(defun c:13(/ x en)

谢谢回复，如果dwg中没有任何图元时，程序会出错

happyxt

是的，如果不在主函数增加判断语句会出错。
改了一下：
(defun c:13(/ en)
  (setq en (entlast))
  (if (getpoint "\n 请指定圆心：")
    (entmake (list '(0 . "circle") (cons 10 (cadr(grread 3))) (cons 40 (*(getvar"viewsize") 0.02) )))
  )
  (princ"\n")
  (strcat "生成 "(itoa(New_en en))" 个图元")
)

(defun New_en(en / j);(setq x (New_en enStart)) ;判断新图元
  (cond (en
         (setq j 0)
         (while (setq en (entnext en))
           (setq j (1+ j))
         )
        )
        ((ssget "X")
         (sslength (ssget "X"))
        )
        (T 0)
  )   
)