有没有人帮忙改进一下命令

那一抹微笑 · 发表于 2019-2-15 10:50:17

(defun c:DH()

(setq gj_list_32 (entget (car (entsel)))

      gj_text_old_32 (assoc 1 gj_list_32)

      gj_text_new_32 (cons 1 "<>")

      gj_list_32 (subst gj_text_new_32 gj_text_old_32 gj_list_32)

)

  (entmod gj_list_32)

  (princ)

  )

Lisphk · 发表于 2019-2-15 12:00:16

图片太小，看不清

那一抹微笑 · 发表于 2019-2-15 16:01:37

Lisphk 发表于 2019-2-15 12:00
图片太小，看不清

https://pan.baidu.com/s/1C2hjIccPVpQgifdz8UNojQ，你好，这个是CAD文件

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

[编程申请] 有没有人帮忙改进一下命令

点评