乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 43|回复： 6

[编程交流] 获取数据或XRECORD

[复制链接]
Aftertouch

76

主题

312

帖子

254

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
390
发表于 2022-7-5 16:34:18 | 显示全部楼层 |阅读模式
大家好，我决定用字典来存储变量。
我成功做到了这一点：
 
  2. (defun GetOrAddDict ( parentDict dictName )
  3.    (cond
  4.        (   (cdr
  5.                (assoc -1
  6.                    (dictsearch 
  7.                        parentDict 
  8.                        dictName
  9.                    )
  10.                )
  11.            )    
  12.        )
  13.        (   (dictadd parentDict dictName
  14.                (entmakex
  15.                   '(   (0 . "DICTIONARY") 
  16.                        (100 . "AcDbDictionary")
  17.                    )
  18.                )
  19.            )
  20.        )    
  21.    )
  22. )
  24. (defun AddOrReplaceXrec ( parentDict xrecName xrecData / xrec )
  25.    (if 
  26.        (setq xrec
  27.            (dictsearch
  28.                parentDict
  29.                xrecName
  30.            )
  31.        )
  32.        (entdel 
  33.            (cdr 
  34.                (assoc -1 xrec)
  35.            )
  36.        )
  37.    )
  38.    
  39.    (dictadd
  40.        parentDict
  41.        xrecName
  42.        (entmakex
  43.            (append    
  44.               '(   (0 . "XRECORD")
  45.                    (100 . "AcDbXrecord")
  46.                )
  47.                xrecData
  48.            )
  49.        )
  50.    )
  51. )
  53. (defun C:BUILDDICTIONARY ( / dict1 xrec00 xrec01 xrec02 xrec03 xrec04 xrec05 xrec06 xrec07 xrec08 xrec09 xrec10 xrec11 xrec12 xrec13 xrec14 xrec15 xrec16 xrec17 xrec18 xrec19 xrec20 xrec21 xrec22 xrec23 xrec24 xrec25 xrec26 xrec27 xrec28 xrec29 xrec30 xrec31 xrec32 xrec33 xrec34 xrec35 xrec36 xrec37 xrec38 xrec39 xrec40 xrec41 xrec42 xrec43 xrec44 xrec45 xrec46 xrec47 xrec48 xrec49 xrec50 xrec51 xrec52 xrec53 xrec54 xrec55 xrec56 xrec57 xrec58 xrec59 xrec60 xrec61 xrec62 xrec63 xrec64 xrec65 xrec66 xrec67 xrec68 xrec69 xrec70 xrec71 xrec72 xrec73 xrec74 xrec75 xrec76 xrec77 xrec78 xrec79 xrec80 xrec81 xrec82 xrec83 xrec84 xrec85 xrec86 xrec87 xrec88 xrec89 xrec90 xrec91 xrec92 xrec93 xrec94 xrec95 xrec96 xrec97 xrec98 xrec99 )
  54.    (if (not (setq adict (dictsearch (namedobjdict) "MyDictionary1")))
  55.    (progn
  56.    (setq dict1
  57.        (GetOrAddDict 
  58.            (namedobjdict) 
  59.            "MyDictionary1"
  60.        )
  61.    )
  62.           
  63.    (setq xrec00 (AddOrReplaceXrec dict1 "Fase00" '(   (1 . "00-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  64.    (setq xrec01 (AddOrReplaceXrec dict1 "Fase01" '(   (1 . "01-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  65.    (setq xrec02 (AddOrReplaceXrec dict1 "Fase02" '(   (1 . "02-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  66.    (setq xrec03 (AddOrReplaceXrec dict1 "Fase03" '(   (1 . "03-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  67.    (setq xrec04 (AddOrReplaceXrec dict1 "Fase04" '(   (1 . "04-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  68.    (setq xrec05 (AddOrReplaceXrec dict1 "Fase05" '(   (1 . "05-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  69.    (setq xrec06 (AddOrReplaceXrec dict1 "Fase06" '(   (1 . "06-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  70.    (setq xrec07 (AddOrReplaceXrec dict1 "Fase07" '(   (1 . "07-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  71.    (setq xrec08 (AddOrReplaceXrec dict1 "Fase08" '(   (1 . "08-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  72.    (setq xrec09 (AddOrReplaceXrec dict1 "Fase09" '(   (1 . "09-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  73.    (setq xrec10 (AddOrReplaceXrec dict1 "Fase10" '(   (1 . "10-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  74.    (setq xrec11 (AddOrReplaceXrec dict1 "Fase11" '(   (1 . "11-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  75.    (setq xrec12 (AddOrReplaceXrec dict1 "Fase12" '(   (1 . "12-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  76.    (setq xrec13 (AddOrReplaceXrec dict1 "Fase13" '(   (1 . "13-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  77.    (setq xrec14 (AddOrReplaceXrec dict1 "Fase14" '(   (1 . "14-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  78.    (setq xrec15 (AddOrReplaceXrec dict1 "Fase15" '(   (1 . "15-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  79.    (setq xrec16 (AddOrReplaceXrec dict1 "Fase16" '(   (1 . "16-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  80.    (setq xrec17 (AddOrReplaceXrec dict1 "Fase17" '(   (1 . "17-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  81.    (setq xrec18 (AddOrReplaceXrec dict1 "Fase18" '(   (1 . "18-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  82.    (setq xrec19 (AddOrReplaceXrec dict1 "Fase19" '(   (1 . "19-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  83.    (setq xrec20 (AddOrReplaceXrec dict1 "Fase20" '(   (1 . "20-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  84.    (setq xrec21 (AddOrReplaceXrec dict1 "Fase21" '(   (1 . "21-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  85.    (setq xrec22 (AddOrReplaceXrec dict1 "Fase22" '(   (1 . "22-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  86.    (setq xrec23 (AddOrReplaceXrec dict1 "Fase23" '(   (1 . "23-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  87.    (setq xrec24 (AddOrReplaceXrec dict1 "Fase24" '(   (1 . "24-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  88.    (setq xrec25 (AddOrReplaceXrec dict1 "Fase25" '(   (1 . "25-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  89.    (setq xrec26 (AddOrReplaceXrec dict1 "Fase26" '(   (1 . "26-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  90.    (setq xrec27 (AddOrReplaceXrec dict1 "Fase27" '(   (1 . "27-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  91.    (setq xrec28 (AddOrReplaceXrec dict1 "Fase28" '(   (1 . "28-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  92.    (setq xrec29 (AddOrReplaceXrec dict1 "Fase29" '(   (1 . "29-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  93.    (setq xrec30 (AddOrReplaceXrec dict1 "Fase30" '(   (1 . "30-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  94.    (setq xrec31 (AddOrReplaceXrec dict1 "Fase31" '(   (1 . "31-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  95.    (setq xrec32 (AddOrReplaceXrec dict1 "Fase32" '(   (1 . "32-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  96.    (setq xrec33 (AddOrReplaceXrec dict1 "Fase33" '(   (1 . "33-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  97.    (setq xrec34 (AddOrReplaceXrec dict1 "Fase34" '(   (1 . "34-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  98.    (setq xrec35 (AddOrReplaceXrec dict1 "Fase35" '(   (1 . "35-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  99.    (setq xrec36 (AddOrReplaceXrec dict1 "Fase36" '(   (1 . "36-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  100.    (setq xrec37 (AddOrReplaceXrec dict1 "Fase37" '(   (1 . "37-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  101.    (setq xrec38 (AddOrReplaceXrec dict1 "Fase38" '(   (1 . "38-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  102.    (setq xrec39 (AddOrReplaceXrec dict1 "Fase39" '(   (1 . "39-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  103.    (setq xrec40 (AddOrReplaceXrec dict1 "Fase40" '(   (1 . "40-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  104.    (setq xrec41 (AddOrReplaceXrec dict1 "Fase41" '(   (1 . "41-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  105.    (setq xrec42 (AddOrReplaceXrec dict1 "Fase42" '(   (1 . "42-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  106.    (setq xrec43 (AddOrReplaceXrec dict1 "Fase43" '(   (1 . "43-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  107.    (setq xrec44 (AddOrReplaceXrec dict1 "Fase44" '(   (1 . "44-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  108.    (setq xrec45 (AddOrReplaceXrec dict1 "Fase45" '(   (1 . "45-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  109.    (setq xrec46 (AddOrReplaceXrec dict1 "Fase46" '(   (1 . "46-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  110.    (setq xrec47 (AddOrReplaceXrec dict1 "Fase47" '(   (1 . "47-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  111.    (setq xrec48 (AddOrReplaceXrec dict1 "Fase48" '(   (1 . "48-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  112.    (setq xrec49 (AddOrReplaceXrec dict1 "Fase49" '(   (1 . "49-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  113.    (setq xrec50 (AddOrReplaceXrec dict1 "Fase50" '(   (1 . "50-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  114.    (setq xrec51 (AddOrReplaceXrec dict1 "Fase51" '(   (1 . "51-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  115.    (setq xrec52 (AddOrReplaceXrec dict1 "Fase52" '(   (1 . "52-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  116.    (setq xrec53 (AddOrReplaceXrec dict1 "Fase53" '(   (1 . "53-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  117.    (setq xrec54 (AddOrReplaceXrec dict1 "Fase54" '(   (1 . "54-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  118.    (setq xrec55 (AddOrReplaceXrec dict1 "Fase55" '(   (1 . "55-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  119.    (setq xrec56 (AddOrReplaceXrec dict1 "Fase56" '(   (1 . "56-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  120.    (setq xrec57 (AddOrReplaceXrec dict1 "Fase57" '(   (1 . "57-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  121.    (setq xrec58 (AddOrReplaceXrec dict1 "Fase58" '(   (1 . "58-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  122.    (setq xrec59 (AddOrReplaceXrec dict1 "Fase59" '(   (1 . "59-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  123.    (setq xrec60 (AddOrReplaceXrec dict1 "Fase60" '(   (1 . "60-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  124.    (setq xrec61 (AddOrReplaceXrec dict1 "Fase61" '(   (1 . "61-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  125.    (setq xrec62 (AddOrReplaceXrec dict1 "Fase62" '(   (1 . "62-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  126.    (setq xrec63 (AddOrReplaceXrec dict1 "Fase63" '(   (1 . "63-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  127.    (setq xrec64 (AddOrReplaceXrec dict1 "Fase64" '(   (1 . "64-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  128.    (setq xrec65 (AddOrReplaceXrec dict1 "Fase65" '(   (1 . "65-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  129.    (setq xrec66 (AddOrReplaceXrec dict1 "Fase66" '(   (1 . "66-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  130.    (setq xrec67 (AddOrReplaceXrec dict1 "Fase67" '(   (1 . "67-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  131.    (setq xrec68 (AddOrReplaceXrec dict1 "Fase68" '(   (1 . "68-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  132.    (setq xrec69 (AddOrReplaceXrec dict1 "Fase69" '(   (1 . "69-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  133.    (setq xrec70 (AddOrReplaceXrec dict1 "Fase70" '(   (1 . "70-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  134.    (setq xrec71 (AddOrReplaceXrec dict1 "Fase71" '(   (1 . "71-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  135.    (setq xrec72 (AddOrReplaceXrec dict1 "Fase72" '(   (1 . "72-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  136.    (setq xrec73 (AddOrReplaceXrec dict1 "Fase73" '(   (1 . "73-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  137.    (setq xrec74 (AddOrReplaceXrec dict1 "Fase74" '(   (1 . "74-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  138.    (setq xrec75 (AddOrReplaceXrec dict1 "Fase75" '(   (1 . "75-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  139.    (setq xrec76 (AddOrReplaceXrec dict1 "Fase76" '(   (1 . "76-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  140.    (setq xrec77 (AddOrReplaceXrec dict1 "Fase77" '(   (1 . "77-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  141.    (setq xrec78 (AddOrReplaceXrec dict1 "Fase78" '(   (1 . "78-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  142.    (setq xrec79 (AddOrReplaceXrec dict1 "Fase79" '(   (1 . "79-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  143.    (setq xrec80 (AddOrReplaceXrec dict1 "Fase80" '(   (1 . "80-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  144.    (setq xrec81 (AddOrReplaceXrec dict1 "Fase81" '(   (1 . "81-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  145.    (setq xrec82 (AddOrReplaceXrec dict1 "Fase82" '(   (1 . "82-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  146.    (setq xrec83 (AddOrReplaceXrec dict1 "Fase83" '(   (1 . "83-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  147.    (setq xrec84 (AddOrReplaceXrec dict1 "Fase84" '(   (1 . "84-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  148.    (setq xrec85 (AddOrReplaceXrec dict1 "Fase85" '(   (1 . "85-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  149.    (setq xrec86 (AddOrReplaceXrec dict1 "Fase86" '(   (1 . "86-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  150.    (setq xrec87 (AddOrReplaceXrec dict1 "Fase87" '(   (1 . "87-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  151.    (setq xrec88 (AddOrReplaceXrec dict1 "Fase88" '(   (1 . "88-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  152.    (setq xrec89 (AddOrReplaceXrec dict1 "Fase89" '(   (1 . "89-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  153.    (setq xrec90 (AddOrReplaceXrec dict1 "Fase90" '(   (1 . "90-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  154.    (setq xrec91 (AddOrReplaceXrec dict1 "Fase91" '(   (1 . "91-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  155.    (setq xrec92 (AddOrReplaceXrec dict1 "Fase92" '(   (1 . "92-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  156.    (setq xrec93 (AddOrReplaceXrec dict1 "Fase93" '(   (1 . "93-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  157.    (setq xrec94 (AddOrReplaceXrec dict1 "Fase94" '(   (1 . "94-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  158.    (setq xrec95 (AddOrReplaceXrec dict1 "Fase95" '(   (1 . "95-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  159.    (setq xrec96 (AddOrReplaceXrec dict1 "Fase96" '(   (1 . "96-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  160.    (setq xrec97 (AddOrReplaceXrec dict1 "Fase97" '(   (1 . "97-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  161.    (setq xrec98 (AddOrReplaceXrec dict1 "Fase98" '(   (1 . "98-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  162.    (setq xrec99 (AddOrReplaceXrec dict1 "Fase99" '(   (1 . "99-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"))))
  163.    (princ "Dictionary aangemaakt")        
  164.    )
  165.            (progn
  166.          (princ "Dictionary bestaat al.")
  167.            )
  168.    )   
  169.    
  170.    (princ)
  171.    
  172. )

 
我的最后一个问题。。。
我怎样才能读出我的Xrecord？
例如，我想要：
 
  2. (defun C:getvars ()
  3. (setq dict1 (GetOrAddDict (namedobjdict) "MyDictionary1" ))
  4. [color="red"](setq variables dict1 "Fase11" ) [/color]
  5. )

 
红色部分不工作。。。
我希望结果是：
  2. setq variables = "11-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000"

 
有什么建议吗？
回复

使用道具 举报

Roy_043

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2022-7-5 16:51:24 | 显示全部楼层 
  1. (setq dict1 (GetOrAddDict (namedobjdict) "MyDictionary1"))
  2. (setq elst (dictsearch dict1 "Fase11")) ; Entity list.
  3. (setq data (cdr (member (assoc 280 elst) elst)))
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-5 16:55:14 | 显示全部楼层
当使用非您自己的代码时，您应该提供适当的认证。
 
原始来源：
https://www.theswamp.org/index.php?topic=5003.15
回复

使用道具 举报

Aftertouch

76

主题

312

帖子

254

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
390
发表于 2022-7-5 17:06:32 | 显示全部楼层
对不起，李，你的右边。
这是我找到并使用的源代码，并对其进行了一些操作。。。
 
最后一个问题。。。
 
以下工作：
  2. (AddOrReplaceXrec dict1 "Fase00" '(   (1 . "00-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000-0000000")))

 
现在我想让它看起来像：
  2. (setq testvalue "111-111")
  3. (AddOrReplaceXrec dict1 "Fase00" '(   (1 . testvalue)))

 
但这会返回一个错误：
  2. Error: bad DXF group: (1 . TESTVALUE)

 
我应该如何替换XRecord的“setq”内容？
我试图用“SUBST”函数来解决它，但我无法让它工作。
回复

使用道具 举报

Aftertouch

76

主题

312

帖子

254

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
390
发表于 2022-7-5 17:22:26 | 显示全部楼层
对此有什么建议吗？
回复

使用道具 举报

Roy_043

18

主题

1529

帖子

973

银币

中流砥柱

Rank: 25

铜币
649
发表于 2022-7-5 17:30:58 | 显示全部楼层 
  1. (AddOrReplaceXrec dict1 "Fase00" (list (cons 1 testvalue)))
回复

使用道具 举报

Aftertouch

76

主题

312

帖子

254

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
390
发表于 2022-7-5 17:43:20 | 显示全部楼层
谢谢Roy，
我又在想难了。：-）
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-14 15:49 , Processed in 2.536489 second(s), 66 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表