设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [注意]怎样实现这个？
123456
返回列表 发新帖
楼主: tukuitk

[注意]怎样实现这个？

  [复制链接]
tukuitk
 楼主| 发表于 2003-11-3 16:59:00 | 显示全部楼层
把期限延到明天下午或中午，OK？
让我再想想！
回复 支持 反对

使用道具 举报

龙龙仔
发表于 2003-11-3 17:02:00 | 显示全部楼层
等你!
回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2003-11-4 08:33:00 | 显示全部楼层
龙兄，我昨晚把它做出来了，解决了你提出来的那两个问题，请你指教！！！
另，我想看看你的源代码，谢谢！！！

  2. ;;;creatTextList
  3. (defun creatTextList (/ ss i ent)
  4.   (princ "\n请选择单行文字或多行文字:")
  5.   (setq ss (ssget '((0 . "*TEXT"))))
  6.   (setq i 0)
  7.   (repeat (SSLENGTH ss)
  8.     (setq ent (ssname ss i))
  9.     (setq
  10.       TextList (append TextList (list (cdr (assoc 1 (entget ent)))))
  11.     )
  12.     (setq i (+ i 1))
  13.   )
  14. )
  15. ;;;getEntAttribList
  16. (defun getEntAttribList        (entBlock / ent)
  17.   (setq ent (entnext entBlock))
  18.   (while (and ent
  19.               (/= (cdr (assoc 0 (entget ent))) "SEQEND")
  20.               (= (cdr (assoc 0 (entget ent))) "ATTRIB")
  21.          )
  22.     (if        (/= (cdr (assoc 2 (entget ent))) nil)
  23.       (progn
  24.         (setq enameList        (append        enameList
  25.                                 (list (cdr (assoc -1 (entget ent))))
  26.                         )
  27.         )
  28.         (setq tagList (append tagList
  29.                               (list (cdr (assoc 2 (entget ent))))
  30.                       )
  31.         )
  32.       )
  33.     )
  34.     (setq ent (entnext ent))
  35.   )
  36.   (princ)
  37. )
  38. ;;;Fill
  39. (defun Fill (Attribe Text tag / okEnt jj)
  40.   (if (= (cdr (assoc 2 (entget Attribe))) tag)
  41.     (progn
  42.       (setq
  43.         okEnt (subst (cons 1 Text)
  44.                      (assoc 1 (entget Attribe))
  45.                      (entget Attribe)
  46.               )
  47.       )
  48.       (entmod okEnt)
  49.       (entupd Attribe)
  50.     )
  51.   )
  52. )

  54. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;main;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  55. (defun c:AttFill (/             ssBlock        j           jj
  56.                   Block0     u                entBlockList
  57.                   TagList    ShowList        v           TextList
  58.                   ok             input        AttRefList ReList
  59.                   AttribeList                tagList           enameList
  60.                  )
  61.   (setvar "CMDECHO" 0)
  62.   (command "undo" "begin")
  63.   (creatTextList)
  64.   (princ "\n请选择属性参照:")
  65.   (setq ssBlock (ssget '((0 . "INSERT"))))
  66.   (setq j 0)
  67.   (while (< j (sslength ssBlock))
  68.     (setq Block0 (ssname ssBlock j))
  69.     (setq entBlockList (append entBlockList (list Block0)))
  70.     (setq j (1+ j))
  71.   )
  72.   (setq jj 0)
  73.   (setq input 0)
  74.   (while (< jj (length entBlockList))
  75.     (getEntAttribList (nth jj entBlockList))
  76.     (setq TagList tagList)
  77.     (setq AttribeList enameList)
  78.    
  79.     (setq v 0
  80.           ShowList ""
  81.     )
  82.     (princ
  83.       (strcat "\n 所选的第" (itoa (+ 1 jj v)) "文字将填到: \n")
  84.     )
  85.     (repeat (length TagList)
  86.       (setq ShowList
  87.              (strcat ShowList
  88.                      (strcat (itoa v) "-" (nth v TagList) "  ")
  89.              )
  90.       )
  91.       (setq v (1+ v))
  92.     )

  94.     (setq ok (getint (strcat ShowList "   <" (itoa input) ">   ")))
  95.     (if        (= ok nil)
  96.       (setq ok input)
  97.       (setq input ok)
  98.     )
  99.     (if        (<= ok v)
  100.       (if (<= (+ jj 1) (length TextList))
  101.         (fill (nth ok AttribeList)
  102.               (nth jj TextList)
  103.               (nth ok TagList)
  104.         )
  105.         (setq jj (+ 1 (length entBlockList)))
  106.       )
  107.       (exit)
  108.     )
  109.     (setq TagList nil
  110.           tagList nil
  111.           enameList nil
  112.     )
  113.     (setq jj (1+ jj))
  114.   )
  115.   (command "undo" "end")
  116.   (princ)
  117. )

评分

参与人数 1威望 +1 金钱 +2 贡献 +4 激情 +2 收起 理由
龙龙仔 + 1 + 2 + 4 + 2 【好评】奖励努力有成果

查看全部评分

回复 支持 反对

使用道具 举报

龙龙仔
发表于 2003-11-4 12:23:00 | 显示全部楼层
;;其實程序都是差不多
(defun DXF (A1 A2)
  (cdr (assoc A1 A2))
)

(defun CREATTEXTLIST (/ N OBJ)
  (prompt "\n请选择单行文字或多行文字: ")
  (setq SS (ssget '((0 . "*TEXT"))))
  (setq N 0)
  (repeat (sslength SS)
    (setq OBJ (DXF 1 (entget (ssname SS N))))
    (setq TEXTLIST (append TEXTLIST (list OBJ)))
    (setq N (1+ N))
  )
)

(defun GETATT (E / E1 EN1 RSLT)
  (setq E1 (entnext E))
  (while (and E1
              (setq EN1 (entget E1))
              (= (DXF 0 EN1) "ATTRIB")
         )
    (setq ATTREF_OBJLIST (append ATTREF_OBJLIST (list (DXF -1 EN1))))
    (setq
      RSLT (append RSLT (list (DXF 2 (entget (DXF -1 EN1)))))
    )
    (setq E1 (entnext E1))
  )
  RSLT
)

(defun C:KRCAD (/           BLOCKLIST  N                 TAGLIST    SHOWLIST
                V           TEXTLIST   OK         ATTREF_OBJLIST
                INPUT           SS
               )
  (CREATTEXTLIST)
  (princ "\n请选择属性参照: ")
  (setq        BLOCKLIST (ssget '((0 . "INSERT") (66 . 1)))
        N          0
  )
  (if BLOCKLIST
    (progn
      (setq INPUT 0)
      (repeat (sslength BLOCKLIST)
        (redraw (ssname BLOCKLIST N) 3)
        (redraw (ssname SS N) 3)
        (setq TAGLIST (GETATT (ssname BLOCKLIST N)))
        (setq V        0
              SHOWLIST ""
        )
        (princ
          (strcat "\n 所选的第" (itoa N) "文字将填到: \n")
        )
        (repeat        (length TAGLIST)
          (setq        SHOWLIST
                 (strcat SHOWLIST
                         (strcat (itoa V) "-" (nth V TAGLIST) "  ")
                 )
          )
          (setq V (1+ V))
        )
        (setq OK (getint (strcat SHOWLIST "   <" (itoa INPUT) ">   ")))
        (if (= OK NIL)
          (setq OK INPUT)
          (setq INPUT OK)
        )
        (if (<= OK V)
          (progn
            (setq ENT (entget (nth OK ATTREF_OBJLIST)))
            (setq
              ENT (subst (cons 1 (nth N TEXTLIST)) (assoc 1 ENT) ENT)
            )
            (entmod ENT)
            (entupd (nth OK ATTREF_OBJLIST))
          )
          (exit)
        )
        (redraw (ssname SS N) 4)
        (redraw (ssname BLOCKLIST N) 4)
        (setq TAGLIST NIL
              ATTREF_OBJLIST NIL
        )
        (setq N (1+ N))
      )
    )
    (alert "所选块中无属性参照!")
  )
  (princ)
)
回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2003-11-4 12:47:00 | 显示全部楼层
龙兄的程序中还加了亮显，程序也专业，不错！其中还有一些地方值得我们学习，谢谢龙兄！
另外，飞哥你能把你的程序传上来吗？我想有了对比才有总结，才能有所收获，对吧！

在这个程序的不断完善及求多种解决方法的过程中，我的收获很多。感谢龙兄的激励和帮助！！！
回复 支持 反对

使用道具 举报

meflying
发表于 2003-11-4 13:51:00 | 显示全部楼层
呵呵，我没写！
回复 支持 反对

使用道具 举报

tukuitk
 楼主| 发表于 2003-11-4 14:39:00 | 显示全部楼层
飞哥，你若写的话，你的思路能说说吗？渴望着呢……
回复 支持 反对

使用道具 举报

123456
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-27 05:36 , Processed in 0.140427 second(s), 23 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表