CAD文字文字批量查询和自动标记.lsp

原创于 2023-11-11 15:41:30 发布 · 630 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#lisp

这篇文章介绍了使用VbScript和正则表达式函数`rg-Split`处理用户输入的文本，通过逗号分隔查询并标记每个字符串，同时执行图形命令。

部署运行你感兴趣的模型镜像

(defun rg-Split (s p / L r)
	(setq r (vlax-create-object "vbscript.regexp"))
	(vlax-put-property r 'Global 1)
	(vlax-put-property r 'Pattern p)
	(read (strcat "(\"" (vlax-invoke r 'Replace s "\" \"") "\")"))
)

(defun c:DrawLineToUserInputText ()
	;DrawLineToUserInputText 将需要查询的文字用","分割，会逐个查询并标记直线
  (setq inputString (getstring "\nEnter the text strings separated by commas: "))
  (setq textStrings (rg-Split inputString ","))
  (print textStrings)
  (foreach str textStrings
    (setq textSet (ssget "X" (list (cons 0 "TEXT") (cons 1 str))))
    (if textSet
      (progn
        (setq ent (ssname textSet 0))
        (setq charPoint (cdr (assoc 10 (entget ent))))
		(print charPoint)
		(setq endPoint (list (car charPoint) (+ (cadr charPoint) 500)))
        (command "_line" charPoint  endPoint "")
		(command "circle" endPoint 10 "")
      )
      (prompt (strcat "\nString not found: " str))
    )
  )
  (princ)
)

您可能感兴趣的与本文相关的镜像