麻烦大佬帮我把这个lsp的值用文字体现出来啊谢谢

wline

这个程序可以提取出可见性的值，但是我想把这个值用多行或者单行文字的方式体现出来，麻烦各位大佬了。。。谢谢
(defun c:TT ()
(setq OBJ  (vlax-ename->vla-object (car (entsel))))
;;获取动态块的属性
(setq PROS (vlax-invoke OBJ 'getdynamicblockproperties))
;;;----------------------------------------------------------
;;获取属性名
(mapcar '(lambda (V) (vlax-get V 'propertyName)) PROS)
;;获取属性是否为只读
(mapcar 'vla-get-readOnly PROS)
;;获取属性是否显示
(mapcar 'vla-get-show PROS)
;;获取所有属性的允许值
(mapcar '(lambda (V) (vlax-get V 'allowedValues)) PROS)
;;获取所有属性的当前值
(mapcar '(lambda (V) (vlax-get V 'Value)) PROS)
)

kozmosovia

wline 发表于 2024-7-19 17:18
字段这个我会做的，但就是觉得有点麻烦，还有就是我想在图框的上面写出来是多大的，所以想试试哪位大神可 ...

把文字直接做到块里，插入了就自动显示，不比插入块，还要加载程序运行来写个字来得更便利？舍简取繁啊。
要代码写字，还得判断图框范围，确定文字要写在什么位置，字型、大小怎么设，也是一丢丢编程工作量。
要显示可见性选择的内容，直接字段追踪可见性参数而已。

wline

kozmosovia 发表于 2024-7-19 19:12
把文字直接做到块里，插入了就自动显示，不比插入块，还要加载程序运行来写个字来得更便利？舍简取繁啊。 ...

大佬，不用那么麻烦，我上面的lsp可以读出可见性，只要把这个值用单行或者多行文字写出来就可以了

wline

kozmosovia 发表于 2024-7-19 16:51
没必要写代码，做成块内属性

https://www.bilibili.com/video/BV1qa4y187mG

字段这个我会做的，但就是觉得有点麻烦，还有就是我想在图框的上面写出来是多大的，所以想试试哪位大神可以帮忙弄一下

kozmosovia

没必要写代码，做成块内属性

https://www.bilibili.com/video/BV1qa4y187mG

czb203

求人帮忙，图纸要发出来，不然别人懒得帮你

e2002

建议学习一下动态参数化图框：
http://bbs.mjtd.com/thread-186281-1-1.html

wline

czb203 发表于 2024-7-19 16:56
求人帮忙，图纸要发出来，不然别人懒得帮你

就一个图框，很简答，不过，我觉得你说的很有道理，我马上加进去

wline

e2002 发表于 2024-7-19 17:02
建议学习一下动态参数化图框：
http://bbs.mjtd.com/thread-186281-1-1.html

这个我会做，最开始接触的就是动态块了，只是想把可见性的内容以文字的方式表达出来

kozmosovia

写在哪里？字体多高？你不嫌麻烦，那就无话可说了。白嫖的吃相真是。。。