怎样把TEXT文字转换成ATTDEF定义的属性

lz123456 · 发表于 2012-6-2 16:33

怎样把TEXT文字转换成ATTDEF定义的属性.明经上有把那属性转换成单字，这就是那相反的功能。最好是集合那功能。互相转换

psdcdr · 发表于 2012-6-4 09:28

本帖最后由 psdcdr 于 2012-6-4 09:36 编辑

忘记在哪里找到的，一起分享下，

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

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

试试这个

(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")
)

fawn_lgc · 发表于 2012-6-4 15:24

(defun ATTDEFtoTEXT(elist / ename fawn);;属性转文本
;; (ai_undo_push)
(setq ename(cdr(assoc -1 elist)))
(entdel ename)
(setq fawn(assoc 74 elist))
(setq elist(subst '(0 . "TEXT") '(0 . "ATTDEF")elist))
(setq elist(subst (cons 73 (cdr fawn)) fawn elist))
(mapcar '(lambda(x) ;;匿名函数
(setq elist(vl-remove(assoc x elist)elist))
)
'(-1 330 5 100 100 100 3 2 70)
)
(entmake elist)
;;(ai_undo_pop)
)
(defun TEXTtoATTDEF(elist / ename fawn);;文本转属性
;;(ai_undo_push)
(setq ename(cdr(assoc -1 elist)))
(entdel ename)
(setq fawn(assoc 73 elist))
(setq elist(subst '(0 . "ATTDEF") '(0 . "TEXT")elist))
(setq elist(subst (cons 74 (cdr fawn)) fawn elist))
(mapcar '(lambda(x) ;;匿名函数
(setq elist(vl-remove(assoc x elist)elist))
)
'(-1 330 5 100 100 100)
)
(setq elist(append elist '((2 . "未命名属性")(3 . "请输入未命名属性")(70 . 0))))
(entmake elist)
;;(ai_undo_pop)
)

(defun ATTDEFtoTEXT(elist / ename fawn);;属性转文本 
 ;; (ai_undo_push) 
  (setq ename(cdr(assoc -1 elist))) 
  (entdel ename) 
  (setq fawn(assoc 74 elist)) 
  (setq elist(subst '(0 . "TEXT") '(0 . "ATTDEF")elist)) 
  (setq elist(subst (cons 73 (cdr fawn)) fawn elist)) 
  (mapcar '(lambda(x)  ;;匿名函数 
       (setq elist(vl-remove(assoc x elist)elist)) 
       ) 
    '(-1 330 5 100 100 100 3 2 70) 
    ) 
  (entmake elist) 
  ;;(ai_undo_pop) 
  ) 
(defun TEXTtoATTDEF(elist / ename fawn);;文本转属性 
  ;;(ai_undo_push) 
  (setq ename(cdr(assoc -1 elist))) 
  (entdel ename) 
  (setq fawn(assoc 73 elist)) 
  (setq elist(subst '(0 . "ATTDEF") '(0 . "TEXT")elist)) 
  (setq elist(subst (cons 74 (cdr fawn)) fawn elist)) 
  (mapcar '(lambda(x)  ;;匿名函数 
       (setq elist(vl-remove(assoc x elist)elist)) 
       ) 
    '(-1 330 5 100 100 100) 
    ) 
  (setq elist(append elist '((2 . "未命名属性")(3 . "请输入 未命名属性")(70 . 0)))) 
  (entmake elist) 
  ;;(ai_undo_pop) 
  )

pxt2001 · 发表于 2012-11-11 12:11

fawn_lgc 发表于 2012-6-4 15:24

这个程序实用。

蒹葭_Keirll · 发表于 2012-11-11 13:38

刚刚需要这个程序就看到帖子

云牧帆 · 发表于 2013-2-2 10:48

本帖最后由云牧帆于 2013-2-2 18:43 编辑

fawn_lgc 老师的程序加载后，TEXTtoATTDEF作为命令，命令行显示【未知命令“TEXTTOATTDEF”。按 F1 查看帮助。】请问应该怎么用？谢谢

为何生 · 发表于 2013-2-8 21:57

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

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

非常感谢！！

goldwheat · 发表于 2013-9-14 12:43

正在找这方面的资料，多谢大家分享。

iamhuangjinming · 发表于 2016-7-4 22:46

不能运行的。怎么办

淡雅香 · 发表于 2018-6-10 02:44

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

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

谢谢，非常实用

账号		自动登录	找回密码
密码			注册

怎样把TEXT文字转换成ATTDEF定义的属性

本帖子中包含更多资源