求助！求助！

suiran · 发表于 2022-11-9 19:15:28

自己做了一个程序：实现打开图纸--输入命令--文字修改成 “TEXT” 图层--其它图元修改成 "CUTME" 图层，但运行提示语法错误，求各位能否给调试一下？

(defun c:tt()
(prompt "\n<<框选图元：>>")
(setq ss(ssget))
(setq n 0)
(repeat (sslength ss)
  (setq en(ssname ss n))
  (setq endata(entget en))
  (setq entype (cdr (assoc 0 endata)))
   (if (= entype "TEXT")
(progn(setq endata(subst(cons 8 "TEXT") (assoc 8 endata) endata))
   (setq endata(subst(cons 62 3) (assoc 62 endata) endata))
   (setq endata(subst(cons 6 "ByLayer") (assoc 6 endata) endata))
   (setq endata(subst(cons 370 0) (assoc 370 endata) endata))
      (entmod endata)
)
     (progn(setq endata(subst(cons 8 "CUTME") (assoc 8 endata) endata))
   (setq endata(subst(cons 62 1) (assoc 62 endata) endata))
   (setq endata(subst(cons 6 "ByLayer") (assoc 6 endata) endata))
   (setq endata(subst(cons 370 0) (assoc 370 endata) endata))
      (entmod endata)
)
  (setq n (1+ n))
)
(prin1)
)
)

xj6019 · 发表于 2022-11-9 21:13:25

(defun c:tt()
(prompt "\n<<框选图元：>>")
(setq ss(ssget))
(setq n 0)
(repeat (sslength ss)
(setq en(ssname ss n))
(setq endata(entget en))
(setq entype (cdr (assoc 0 endata)))
(if (= entype "TEXT")
(progn
(setq endata(subst(cons 8 "TEXT") (assoc 8 endata) endata))
(setq endata(subst(cons 62 3) (assoc 62 endata) endata))
(setq endata(subst(cons 6 "ByLayer") (assoc 6 endata) endata))
(setq endata(subst(cons 370 0) (assoc 370 endata) endata))
(entmod endata)
)
(progn
(setq endata(subst(cons 8 "CUTME") (assoc 8 endata) endata))
(setq endata(subst(cons 62 1) (assoc 62 endata) endata))
(setq endata(subst(cons 6 "ByLayer") (assoc 6 endata) endata))
(setq endata(subst(cons 370 0) (assoc 370 endata) endata))
(entmod endata)
)
)
(setq n (1+ n))
)
(prin1)
)

suiran · 发表于 2022-11-9 22:19:11

xj6019 发表于 2022-11-9 21:13
(defun c:tt()
(prompt "\n")
(setq ss(ssget))

万分感谢！！

suiran · 发表于 2022-11-9 22:27:57

本帖最后由 suiran 于 2022-11-9 22:37 编辑

xj6019 发表于 2022-11-9 21:13
(defun c:tt()
(prompt "\n")
(setq ss(ssget))

大侠，能说一下问题出在哪里吧？我愣是没看出来

哦，知道了。 (setq n (1+ n))位置放错了

suiran · 发表于 2022-11-9 23:12:33

我要在 (if (= entype "TEXT"))加一个或者“MTEXT”，改怎么加？

xyp1964 · 发表于 2022-11-9 23:24:03

(defun c:tt ()
  (princ "\n框选图元: ")
  (if (setq ss (ssget))
(progn
   (setq ss1 (ssget "p" '((0 . "*text"))))
   (command"chprop" ss "" "la" "CUTME" "c" 1 "" )
   (command"chprop" ss1 "" "la" "TEXT" "c" 3 "" )
)
  )
  (princ)
)

paulpipi · 发表于 2022-11-10 08:36:33

版主，厉害了！

liuhe · 发表于 2022-11-10 08:37:41

xyp1964 发表于 2022-11-9 23:24
(defun c:tt ()
(princ "\n框选图元: ")
(if (setq ss (ssget))

学习了数据少的时候的确方便

suiran · 发表于 2022-11-10 08:41:37

xyp1964 发表于 2022-11-9 23:24
(defun c:tt ()
(princ "\n框选图元: ")
(if (setq ss (ssget))

这个写法有点逆天了，一时还接受不了

，受教了，感谢！！！

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

[提问] 求助！求助！

点评

点评