求答疑

ferious · 发表于 2023-10-19 08:50:46

大神帮忙看下如何去掉尾部的nil?

ferious · 发表于 2023-10-19 08:58:35

(defun c:bz()
(setvar "cmdecho" 0)
(setq en (entsel "\n 选取尺寸标注"))
(setq I 0)
(while (/= en nil)
    (setq DM  (entget (car en)))
     (setq x (cdr(assoc 42 DM)))
            (princ x)
     (princ \n)
     (setq I (+ 1 I))
      (setq en (entsel "\n 选取下一个尺寸标注"))
)
  (princ "\n 共选取")(princ I)(princ "个尺寸标注")
  (prin1)
)

sowin · 发表于 2023-10-19 09:44:37

试试下面的：
(defun c:bz()
(setvar "cmdecho" 0)
(setq en (entsel "\n 选取尺寸标注"))
(setq I 0)
(while (/= en nil)
(setq DM  (entget (car en)))
(setq x (cdr(assoc 42 DM)))
(princ x)
(setq I (+ 1 I))
(setq en (entsel "\n 选取下一个尺寸标注"))
)
  (princ "\n 共选取")(princ I)(princ "个尺寸标注")
  (prin1)
)

uualice2020 · 发表于 2023-10-19 14:34:32

(defun c:bz(/ i en dm x )
(setvar "cmdecho" 0)
(setq I 0)
(while (setq en (entsel "\n 选取尺寸标注"))
      (setq DM  (entget (car en)))
         (setq x (cdr(assoc 42 DM)))
            (print x)

         (setq I (+ 1 I))

)
  (print (strcat  "共选取" (rtos I ) "个尺寸标注"))
  (princ)
)

ferious · 发表于 2023-10-19 20:10:47

sowin 发表于 2023-10-19 09:44
试试下面的：
(defun c:bz()
(setvar "cmdecho" 0)

多谢，语法错误
（princ \n） nil
（princ "\n"）

账号		自动登录	找回密码
密码			注册

求答疑

本帖子中包含更多资源