jack093 发表于 2012-9-12 19:25:20

请教高手，捕获unknown命令后能用entmod修改文本吗？

请教高手，捕获unknown命令后能用entmod修改文本吗？
(or *doc* (setq *doc* (vla-get-ActiveDocument (vlax-get-acad-object))))
(or *test* (setq *test* (vlr-editor-reactor nil '((:vlr-unknownCommand . test)))))
(defun test (a b / c n)
    (if (and (setq c (strcase (car b)))
            (= c "pmt")
      )
      (progn
            (while (setq sse (ssget "_:s" (list (cons 0 "TEXT"))))
                (setq len (sslength sse))
                (while (> len 0)
                  (setq ent (entget (ssname sse (setq len (1- len)))))
                  (if (= (cdr (assoc 0 ent)) "TEXT")
                        (progn
                            (setq st-old (cdr (assoc 1 ent)))
                            (entmod(subst (cons 1 "平面图") (assoc 1 ent) ent))
                        )
                  ))
            )
      )
    )
    (princ)
)

jack093 发表于 2012-9-18 08:47:11

本帖最后由 jack093 于 2013-3-25 09:30 编辑

自己顶，高手在吗？

页: [1]
查看完整版本: 请教高手，捕获unknown命令后能用entmod修改文本吗？