lxl217114 发表于 2022-8-27 12:29:14

psdcdr 发表于 2012-6-4 09:28
忘记在哪里找到的，一起分享下，

祝愿所有找LSP的朋友，都能得到答案！

这个程序有效，感谢分享

baitang36 发表于 2022-8-29 07:57:42

lxl217114 发表于 2022-8-27 12:29
这个程序有效，感谢分享

(DEFUN C:TEXT2ATT (/ SS1 N TXTENT AA A1 A73 LST_210 LST_10)
(VL-CMDF "_.undo" "_group")
(SETVAR "blipmode" 0)
(PRINC "\n选择TEXT文本对象: ")
(setq SS1 (SSGET '((0 . "TEXT"))))
(VL-CMDF "_.UCS" "W")
(setq N 0)
(REPEAT (SSLENGTH SS1)
    (setq TXTENT (SSNAME SS1 N))
    (setq LST_210 (APPEND LST_210 (LIST (ASSOC 210 (ENTGET TXTENT)))))
    (setq LST_10 (APPEND LST_10 (LIST (ASSOC 10 (ENTGET TXTENT)))))
    (setq AA (MEMBER '(100 . "AcDbEntity") (ENTGET TXTENT)))
    (setq A73 (CDR (ASSOC 73 AA)))
    (setq A1 (CDR (ASSOC 1 AA)))
    (ENTMAKE
      (APPEND '((0 . "ATTDEF"))
              (REVERSE (CDDR (REVERSE AA)))
              '((100 . "AcDbAttributeDefinition") (70 . 8))
              (LIST (CONS 74 A73) (CONS 3 A1) (CONS 2 A1))
      )
    )
    (setq N (1+ N))
)
(VL-CMDF "_.erase" SS1 "")
(VL-CMDF "_.UCS" "P")
)

lxl217114 发表于 2022-8-29 09:37:35

baitang36 发表于 2022-8-29 07:57
(DEFUN C:TEXT2ATT (/ SS1 N TXTENT AA A1 A73 LST_210 LST_10)
(VL-CMDF "_.undo" "_group")
(SET ...

谢谢盛老师

菜鸟初来乍到 发表于 2022-12-8 07:32:02

psdcdr 发表于 2012-6-4 09:28
忘记在哪里找到的，一起分享下，

祝愿所有找LSP的朋友，都能得到答案！

非常感谢你的分享

andyzha 发表于 2022-12-8 11:24:20

试试这个
(DEFUN C:TXT2ATT (/ SS1 N TXTENT AA A1 A73 LST_210 LST_10)
(VL-CMDF "_.undo" "_group")
(SETVAR "blipmode" 0)
(PRINC "\n选择TEXT文本对象: ")
(setq SS1 (SSGET '((0 . "TEXT"))))
(VL-CMDF "_.UCS" "W")
(setq N 0)
(REPEAT (SSLENGTH SS1)
    (setq TXTENT (SSNAME SS1 N))
    (setq LST_210 (APPEND LST_210 (LIST (ASSOC 210 (ENTGET TXTENT)))))
    (setq LST_10 (APPEND LST_10 (LIST (ASSOC 10 (ENTGET TXTENT)))))
    (setq AA (MEMBER '(100 . "AcDbEntity") (ENTGET TXTENT)))
    (setq A73 (CDR (ASSOC 73 AA)))
    (setq A1 (CDR (ASSOC 1 AA)))
    (ENTMAKE
      (APPEND '((0 . "ATTDEF"))
            (REVERSE (CDDR (REVERSE AA)))
            '((100 . "AcDbAttributeDefinition") (70 . 8))
            (LIST (CONS 74 A73) (CONS 3 A1) (CONS 2 A1))
      )
    )
    (setq N (1+ N))
)
(VL-CMDF "_.erase" SS1 "")
(VL-CMDF "_.UCS" "P")
)

jkop 发表于 2023-6-6 11:06:55

psdcdr 发表于 2012-6-4 09:28
忘记在哪里找到的，一起分享下，

祝愿所有找LSP的朋友，都能得到答案！

感谢分享，刚好有这方面的需求。

KO你 发表于 2023-6-11 15:52:05

baitang36 发表于 2022-8-29 07:57
(DEFUN C:TEXT2ATT (/ SS1 N TXTENT AA A1 A73 LST_210 LST_10)
(VL-CMDF "_.undo" "_group")
(SET ...
普通字转属性字程序有了，但属性字转普通字还没有
目前在论坛只找到一个如下    但这个没处理好文字对正问题，希望有高手改成保留原有校正等属性，只转换就好了
;; 属性转文字　
(defun C:TAG2TXT ()
   (setq sset (ssget '((0 . "ATTDEF"))))
   (setq num (sslength sset) itm 0)
   (while (< itm num)
   (setq hnd (ssname sset itm))
   (setq ent (entget hnd))
   (setq new '((0 . "TEXT")))
   (setq new (append new (list (cons 1 (cdr (assoc 2 ent))))))
   (setq dolst (list 7 8 10 11 39 40 41 50 51 62 71 72 73))
   (foreach grp dolst
       (setq addto (assoc grp ent))
       (if (/= addto nil)
         (setq new (append new (list (assoc grp ent))))
       )
   )
   (entdel hnd)
   (entmake new)
   (setq itm (1+ itm))
   )
   (princ)
)

流动的清泉 发表于 2024-5-9 17:13:36

有用，想找这个程序
页: 1 [2]
查看完整版本: 怎样把TEXT文字转换成ATTDEF定义的属性