普通字转属性字的代码

wide

看了下论坛上有属性字转普通字的，没有普通字转属性字的lsp源码，大佬们能发一个吗？

moshouhot

2. ;;; 批量文本转属性定义 txtat Define the top-level function for the command "txtatt"
   
3. (defun c:txtatt (/ ss ent)
   
4.   (if (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))
   
5.     (progn
   
6.       (setq i 0)
   
7.       (repeat (sslength ss)
   
8.         (setq ent (ssname ss i))
   
9.         (txt2att ent)
   
10.         (setq i (1+ i))
    
11.       )
    
12.     )
    
13.     (if (setq ent (entsel "\nSelect text entity: "))
    
14.       (txt2att (car ent))
    
15.       (prompt "No entity was selected.")
    
16.     )
    
17.   )
    
18.   (princ)
    
19. )
    
20. ;;; Define the core function that converts a text entity to an attribute definition
    
21. (defun txt2att (ent / entdxf newdxf malst tem)
    
22.   (setq entdxf (entget ent)
    
23.         newdxf '((0 . "ATTDEF"))
    
24.         newdxf (append
    
25.                  newdxf
    
26.                  (list
    
27.                    (cons 1 (cdr (assoc 1 entdxf)))
    
28.                    (cons 2 (cdr (assoc 1 entdxf)))
    
29.                    (cons 3 (cdr (assoc 1 entdxf)))
    
30.                    (cons 70 0)
    
31.                  )
    
32.                )
    
33.         malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)
    
34.   )
    
35.   (foreach mai malst
    
36.     (setq tem (assoc mai entdxf))
    
37.     (if (/= tem nil)
    
38.       (setq newdxf (append newdxf (list tem)))
    
39.     )
    
40.   )
    
41.   (entdel ent)
    
42.   (entmake newdxf)
    
43. )
    

;;; 批量文本转属性定义 txtat Define the top-level function for the command "txtatt"<br /> (defun c:txtatt (/ ss ent)<br />   (if (setq ss (ssget "_:L" '((0 . "TEXT,MTEXT"))))<br />     (progn<br />       (setq i 0)<br />       (repeat (sslength ss)<br />         (setq ent (ssname ss i))<br />         (txt2att ent)<br />         (setq i (1+ i))<br />       )<br />     )<br />     (if (setq ent (entsel "\nSelect text entity: "))<br />       (txt2att (car ent))<br />       (prompt "No entity was selected.")<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;; Define the core function that converts a text entity to an attribute definition<br /> (defun txt2att (ent / entdxf newdxf malst tem)<br />   (setq entdxf (entget ent)<br />         newdxf '((0 . "ATTDEF"))<br />         newdxf (append<br />                  newdxf<br />                  (list<br />                    (cons 1 (cdr (assoc 1 entdxf)))<br />                    (cons 2 (cdr (assoc 1 entdxf)))<br />                    (cons 3 (cdr (assoc 1 entdxf)))<br />                    (cons 70 0)<br />                  )<br />                )<br />         malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)<br />   )<br />   (foreach mai malst<br />     (setq tem (assoc mai entdxf))<br />     (if (/= tem nil)<br />       (setq newdxf (append newdxf (list tem)))<br />     )<br />   )<br />   (entdel ent)<br />   (entmake newdxf)<br /> )<br />

wzg356

;;; 文本转属性　
(defun txt2att (ent / entdxf newdxf malst tem)
(setq entdxf (entget ent)
    newdxf '((0 . "ATTDEF"))
    newdxf (append
       newdxf
       (list
         (cons 1 (cdr (assoc 1 entdxf)))
         (cons 2 (cdr (assoc 1 entdxf)))
         (cons 3 (cdr (assoc 1 entdxf)))
         (cons 70 0)
       )
     )
    malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)
)
(foreach mai malst
  (setq tem (assoc mai entdxf))
  (if (/= tem nil)
  (setq newdxf (append
         newdxf
         (list (assoc mai entdxf))
         )
  )
  )
)
(entdel ent)
(entmake newdxf)
)

wide

谢谢二楼的大佬。

moshouhot

;;; ;; 文本转属性txtatt　Define the top-level function for the command "txtatt"
(defun c:txtatt (/ ent)
  (if (setq ent (entsel "\nSelect text entity: ")) ; Prompt user to select an entity
    (txt2att (car ent)) ; Call the core function with the selected entity
    (prompt "No entity was selected.")
  )
)
;;; Define the core function that converts a text entity to an attribute definition
(defun txt2att (ent / entdxf newdxf malst tem)
  (setq entdxf (entget ent)
        newdxf '((0 . "ATTDEF"))
        newdxf (append
                 newdxf
                 (list
                   (cons 1 (cdr (assoc 1 entdxf)))
                   (cons 2 (cdr (assoc 1 entdxf)))
                   (cons 3 (cdr (assoc 1 entdxf)))
                   (cons 70 0)
                 )
               )
        malst (list 7 8 10 11 39 40 41 50 51 62 71 72 73)
  )
  (foreach mai malst
    (setq tem (assoc mai entdxf))
    (if (/= tem nil)
      (setq newdxf (append newdxf (list tem)))
    )
  )
  (entdel ent)
  (entmake newdxf)
)

h2295

moshouhot 发表于 2024-4-16 17:35
;;; ;; 文本转属性txtatt　Define the top-level function for the command "txtatt"
(defun c:txtatt (/  ...

请问可以将多个文本转为一个属性块的多个属性吗？

moshouhot

h2295 发表于 2024-4-30 09:15
请问可以将多个文本转为一个属性块的多个属性吗？

问我不如问chatgpt

h2295

moshouhot 发表于 2024-4-30 14:10
问我不如问chatgpt

问了3.5的，他也不知道

h2295

moshouhot 发表于 2024-4-30 15:21

可以再加个将转好后的属性合并成一个block吗，我刚试了没成功

h2295

moshouhot 发表于 2024-4-30 15:21

转换后的对象会偏移怎么处理