乐筑天下

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

[编程交流] 指定空对象。

[复制链接]
Se7en

2

主题

182

帖子

180

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 15:15:04 | 显示全部楼层
我想在vlisp中不可能指定空值。
 
[ http://www.theswamp.org/index.php?topic=419.msg5041#msg5041 ]
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:18:23 | 显示全部楼层
是的，我也看过，约翰，谢谢
 
我不明白为什么他们会把它放在ACAD帮助文件中。。，
 
干杯
 
李
回复

使用道具 举报

Se7en

2

主题

182

帖子

180

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 15:21:24 | 显示全部楼层
我认为，因为帮助文件是为vb编写的。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:25:54 | 显示全部楼层
哦，对了，谢谢。
 
不过，为了添加到这个线程中，我确实找到了一种解决方法，它以LISP的形式改变了leader对象的字典条目（可能有用）：
 
  2. [i][color=#990099];;; qlset.lsp - example initialization of QLEADER settings[/color][/i]
  3. [i][color=#990099];;; Frank Whaley, Autodesk[/color][/i]
  4. [i][color=#990099];;; [/color][/i]
  5. [i][color=#990099];;; Two functions are included in this file:[/color][/i]
  6. [i][color=#990099];;; [/color][/i]
  7. [i][color=#990099];;; (acet-ql-Set)[/color][/i]
  8. [i][color=#990099];;; Returns an association list containing the current QLEADER settings from the[/color][/i]
  9. [i][color=#990099];;; Named Object Dictionary.[/color][/i]
  10. [i][color=#990099];;; [/color][/i]
  11. [i][color=#990099];;; (acet-ql-get <alist>)[/color][/i]
  12. [i][color=#990099];;; Sets the specified values for QLEADER settings from the given association[/color][/i]
  13. [i][color=#990099];;; list.[/color][/i]
  14. [i][color=#990099];;; Returns an association list containing the new values.[/color][/i]
  15. [i][color=#990099];;; [/color][/i]
  16. [i][color=#990099];;; These functions can be used to examine the current QLEADER settings, or to[/color][/i]
  17. [i][color=#990099];;; initialize the setting before using the QLEADER command.[/color][/i]
  18. [i][color=#990099];;; For example, to use splined leaders and framed text:[/color][/i]
  19. [i][color=#990099];;; [/color][/i]
  20. [i][color=#990099];;; (acet-ql-set '((65 . 1)(72 . 1)))[/color][/i]
  21. [i][color=#990099];;; [/color][/i]
  22. [i][color=#990099];;; Both functions use the following group codes to identify QLEADER settings:[/color][/i]
  23. [i][color=#990099];;; [/color][/i]
  24. [i][color=#990099];;;  3: user arrowhead block name (default="")[/color][/i]
  25. [i][color=#990099];;;  40: default text width (default=0.0)[/color][/i]
  26. [i][color=#990099];;;  60: annotation type (default=0)[/color][/i]
  27. [i][color=#990099];;;      0=MText[/color][/i]
  28. [i][color=#990099];;;      1=copy object[/color][/i]
  29. [i][color=#990099];;;      2=Tolerance[/color][/i]
  30. [i][color=#990099];;;      3=block[/color][/i]
  31. [i][color=#990099];;;      4=none[/color][/i]
  32. [i][color=#990099];;;  61: annotation reuse (default=0)[/color][/i]
  33. [i][color=#990099];;;      0=none[/color][/i]
  34. [i][color=#990099];;;      1=reuse next[/color][/i]
  35. [i][color=#990099];;;  62: left attachment point (default=1)[/color][/i]
  36. [i][color=#990099];;;  63: right attachment point (default=3)[/color][/i]
  37. [i][color=#990099];;;      0=Top of top line[/color][/i]
  38. [i][color=#990099];;;      1=Middle of top line[/color][/i]
  39. [i][color=#990099];;;      2=Middle of multiline text[/color][/i]
  40. [i][color=#990099];;;      3=Middle of bottom line[/color][/i]
  41. [i][color=#990099];;;      4=Bottom of bottom line[/color][/i]
  42. [i][color=#990099];;;  64: underline bottom line (default=0)[/color][/i]
  43. [i][color=#990099];;;  65: use splined leader line (default=0)[/color][/i]
  44. [i][color=#990099];;;  66: no limit on points (default=0)[/color][/i]
  45. [i][color=#990099];;;  67: maximum number of points (default=3)[/color][/i]
  46. [i][color=#990099];;;  68: prompt for MText width (word wrap) (default=1)[/color][/i]
  47. [i][color=#990099];;;  69: always left justify (default=0)[/color][/i]
  48. [i][color=#990099];;;  70: allowed angle, first segment (default=0)[/color][/i]
  49. [i][color=#990099];;;  71: allowed angle, second segment (default=0)[/color][/i]
  50. [i][color=#990099];;;      0=Any angle[/color][/i]
  51. [i][color=#990099];;;      1=Horizontal[/color][/i]
  52. [i][color=#990099];;;      2=90deg[/color][/i]
  53. [i][color=#990099];;;      3=45deg[/color][/i]
  54. [i][color=#990099];;;      4=30deg[/color][/i]
  55. [i][color=#990099];;;      5=15deg[/color][/i]
  56. [i][color=#990099];;;  72: frame text (default=0)[/color][/i]
  57. [i][color=#990099];;; 170: active tab (default=0)[/color][/i]
  58. [i][color=#990099];;;      0=Annotation[/color][/i]
  59. [i][color=#990099];;;      1=Leader Line & Arrow[/color][/i]
  60. [i][color=#990099];;;      2=Attachment[/color][/i]
  61. [i][color=#990099];;; 340: object ID for annotation reuse[/color][/i]
  62. [i][color=#990099];;; [/color][/i]
  63. [i][color=#990099];;; |;[/color][/i]
  65. [b][color=Blue]acad-push-dbmod[/color][/b]
  66. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] acet-ql-get  [b][color=RED]([/color][/b][b][color=BLUE]/[/color][/b] xr cod itm reply[b][color=RED])[/color][/b]
  67.  [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] xr [b][color=RED]([/color][/b][b][color=BLUE]dictsearch[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]namedobjdict[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"AcadDim"[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  68.    [b][color=RED]([/color][/b][b][color=BLUE]progn[/color][/b]
  69.      [b][color=RED]([/color][/b][b][color=BLUE]foreach[/color][/b] cod  [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=#009900]3[/color][/b] [b][color=#009900]40[/color][/b] [b][color=#009900]60[/color][/b] [b][color=#009900]61[/color][/b] [b][color=#009900]62[/color][/b] [b][color=#009900]63[/color][/b] [b][color=#009900]64[/color][/b] [b][color=#009900]65[/color][/b] [b][color=#009900]66[/color][/b] [b][color=#009900]67[/color][/b] [b][color=#009900]68[/color][/b] [b][color=#009900]69[/color][/b] [b][color=#009900]70[/color][/b] [b][color=#009900]71[/color][/b] [b][color=#009900]72[/color][/b] [b][color=#009900]170[/color][/b] [b][color=#009900]340[/color][/b][b][color=RED])[/color][/b]
  70.        [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] itm [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] cod xr[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  71.          [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] reply [b][color=RED]([/color][/b][b][color=BLUE]append[/color][/b] reply [b][color=RED]([/color][/b][b][color=BLUE]list[/color][/b] itm[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  72.      reply[b][color=RED])[/color][/b]
  73.    [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]3[/color][/b] . [b][color=#ff00ff]""[/color][/b][b][color=RED])[/color][/b]
  74.      [b][color=RED]([/color][/b][b][color=#009900]40[/color][/b] . [b][color=#009999]0.0[/color][/b][b][color=RED])[/color][/b]
  75.      [b][color=RED]([/color][/b][b][color=#009900]60[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  76.      [b][color=RED]([/color][/b][b][color=#009900]61[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
  77.      [b][color=RED]([/color][/b][b][color=#009900]62[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
  78.      [b][color=RED]([/color][/b][b][color=#009900]63[/color][/b] . [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b]
  79.      [b][color=RED]([/color][/b][b][color=#009900]64[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  80.      [b][color=RED]([/color][/b][b][color=#009900]65[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  81.      [b][color=RED]([/color][/b][b][color=#009900]66[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  82.      [b][color=RED]([/color][/b][b][color=#009900]67[/color][/b] . [b][color=#009900]3[/color][/b][b][color=RED])[/color][/b]
  83.      [b][color=RED]([/color][/b][b][color=#009900]68[/color][/b] . [b][color=#009900]1[/color][/b][b][color=RED])[/color][/b]
  84.      [b][color=RED]([/color][/b][b][color=#009900]69[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  85.      [b][color=RED]([/color][/b][b][color=#009900]70[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  86.      [b][color=RED]([/color][/b][b][color=#009900]71[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  87.      [b][color=RED]([/color][/b][b][color=#009900]72[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b]
  88.      [b][color=RED]([/color][/b][b][color=#009900]170[/color][/b] . [b][color=#009900]0[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  90. [b][color=RED]([/color][/b][b][color=BLUE]defun[/color][/b] acet-ql-set  [b][color=RED]([/color][/b]arg [b][color=BLUE]/[/color][/b] cur prm[b][color=RED])[/color][/b]
  91.  [i][color=#990099];;  fetch current[/color][/i]
  92.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cur [b][color=RED]([/color][/b]acet-ql-get[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  94.  [i][color=#990099];;  override per argument[/color][/i]
  95.  [b][color=RED]([/color][/b][b][color=BLUE]while[/color][/b] arg
  96.    [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] prm [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] arg[b][color=RED])[/color][/b]
  97.          arg [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] arg[b][color=RED])[/color][/b]
  98.          cur [b][color=RED]([/color][/b][b][color=BLUE]subst[/color][/b] prm [b][color=RED]([/color][/b][b][color=BLUE]assoc[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] prm[b][color=RED])[/color][/b] cur[b][color=RED])[/color][/b] cur[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  99.    [i][color=#990099];;  handle DIMLDRBLK[/color][/i]
  100.    [b][color=RED]([/color][/b][b][color=BLUE]if[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]=[/color][/b] [b][color=#009900]3[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]car[/color][/b] prm[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  101.      [b][color=RED]([/color][/b][b][color=BLUE]setvar[/color][/b] [b][color=#ff00ff]"DIMLDRBLK"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]cdr[/color][/b] prm[b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  103.  [i][color=#990099];;  put back[/color][/i]
  104.  [b][color=RED]([/color][/b][b][color=BLUE]dictremove[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]namedobjdict[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"AcadDim"[/color][/b][b][color=RED])[/color][/b]
  105.  [b][color=RED]([/color][/b][b][color=BLUE]setq[/color][/b] cur [b][color=RED]([/color][/b][b][color=BLUE]append[/color][/b] [b][color=DARKRED]'[/color][/b][b][color=RED]([/color][/b][b][color=RED]([/color][/b][b][color=#009900]0[/color][/b] . [b][color=#ff00ff]"XRECORD"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=#009900]100[/color][/b] . [b][color=#ff00ff]"AcDbXrecord"[/color][/b][b][color=RED])[/color][/b] [b][color=RED]([/color][/b][b][color=#009900]90[/color][/b] . [b][color=#009900]990106[/color][/b][b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  106.                    cur[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  107.  [b][color=RED]([/color][/b][b][color=BLUE]dictadd[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]namedobjdict[/color][/b][b][color=RED])[/color][/b] [b][color=#ff00ff]"AcadDim"[/color][/b] [b][color=RED]([/color][/b][b][color=BLUE]entmakex[/color][/b] cur[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  109.  [b][color=RED]([/color][/b]acet-ql-get[b][color=RED])[/color][/b][b][color=RED])[/color][/b]
  111. [i][color=#990099];;  load quietly[/color][/i]
  112. [b][color=RED]([/color][/b][b][color=BLUE]princ[/color][/b][b][color=RED])[/color][/b]
回复

使用道具 举报

VovKa

9

主题

383

帖子

82

银币

后起之秀

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

铜币
355
发表于 2022-7-6 15:28:52 | 显示全部楼层 
  2. (entmake (list (cons 0 "LEADER")
  3.        (cons 100 "AcDbEntity")
  4.        (cons 100 "AcDbLeader")
  5.        (cons 71 1)
  6.        (cons 72 0)
  7.        (cons 73 3)
  8.        (cons 74 0)
  9.        (cons 75 0)
  10.        (cons 10 (getpoint))
  11.        (cons 10 (getpoint))
  12.        (list -3 (list "ACAD" (cons 1000 "DSTYLE")
  13.                    (cons 1002  "{")
  14.                    (cons 1070  41)
  15.                    (cons 1040  2.5)
  16.                    (cons 1002  "}")
  17.            )
  18.        )
  19.  )
  20. )
回复

使用道具 举报

Shawndoe

6

主题

47

帖子

36

银币

初来乍到

Rank: 1

铜币
36
发表于 2022-7-6 15:30:24 | 显示全部楼层
你好
 
那是甜蜜的VovKa
 
祝你过得愉快。
肖恩多
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 15:34:53 | 显示全部楼层
很好的一个Vovka，一个简单的解决方案
回复

使用道具 举报

wizman

1

主题

316

帖子

311

银币

初来乍到

Rank: 1

铜币
29
发表于 2022-7-6 15:36:21 | 显示全部楼层
在这里也不走运，vovka的解决方案可能是最好的解决方案，但释放一个对象似乎会将vla对象置为零
回复

使用道具 举报

VovKa

9

主题

383

帖子

82

银币

后起之秀

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

铜币
355
发表于 2022-7-6 15:40:27 | 显示全部楼层
我忘了箭头大小。所以我更新了我以前的帖子。
至于vlisp中的null值，有：vlax null，但在这里也不起作用
回复

使用道具 举报

Se7en

2

主题

182

帖子

180

银币

初来乍到

Rank: 1

铜币
10
发表于 2022-7-6 15:44:02 | 显示全部楼层
VovKa，还有一个“vlax vbnull”，但它也不起作用。
 
威兹曼，我不明白你发表的评论。
回复

使用道具 举报

12
返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-4 23:58 , Processed in 0.395394 second(s), 70 queries .

© 2020-2025 乐筑天下

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