缩放到特定的文字lisp

Lt Dan's l · 发表于 2022-7-5 16:28:24

快速组合。要理解，请转至开发者帮助并搜索文本框


(defun c:test (/ ent ang lst)
 (if (setq ent (car (entsel)))
   (progn
     (setq ang (cdr (assoc 50 (setq ent (entget ent))))
           lst
       (mapcar 
        '(lambda (x) 
           (list 
             (+ (car (cdr (assoc 10 ent)))
               (- (* (car x) (cos ang))(* (cadr x) (sin ang)))
             )
             (+ (cadr (cdr (assoc 10 ent)))
               (+ (* (car x) (sin ang))(* (cadr x) (cos ang)))
             )
           )
         )
         (textbox (list (assoc 1 ent)))
       )
     )
     (command "_.zoom" (nth 0 lst)(nth 1 lst))
   )
 )
 (princ)
)

Lee Mac · 发表于 2022-7-5 16:32:04

尝试：

请注意，如果找到多个文本对象，则所有对象都将包含在缩放中。如果希望依次缩放每个对象，则必须迭代选择集。

dchilders · 发表于 2022-7-5 16:34:37

我也试过这个，它对查找文本很有效，但当我添加缩放摄像机时，它会缩放到一个随机点？

（定义c:FindText nil
（sssetfirst零
（ssget“_X”
（列表
（cons 0“文本，多行文字”）
（cons 1（strcat“*”（getstring t“\n指定要搜索的文本：“）”*“”）
)
)
)
（普林斯）
（命令“zoom”“o”“p”“”
“缩放”“1/100xp”）
)