求助：更改程序

seamopan

start4444 发表于 2022-3-15 22:14

大佬，每项的多选内容之间能用加 - 短划线隔开吗？

depgfdepgf

谢谢！ start4444完美解决问题

p-3-ianlcc

start4444 发表于 2022-3-15 22:14

谢谢您…
我来试试看～

start4444

seamopan 发表于 2022-3-15 23:01
大佬，每项的多选内容之间能用加 - 短划线隔开吗？

(defun str_value (tag shuxing / ii value lst)
  (setq ii 0)
  (while (< ii (length tag))
    (setq value (cdr (assoc (nth ii tag) shuxing)))
    (if (= 0 ii) (setq lst (cons value lst)) (setq lst (cons (strcat "-" value) lst)))
    (setq value (apply 'strcat (reverse lst)))
    (setq ii (1+ ii))
  )
  value
)

替换旧的

seamopan

start4444 发表于 2022-3-16 11:24
(defun str_value (tag shuxing / ii value lst)
  (setq ii 0)
  (while (< ii (length tag))

给原来的这段程序替换了，在程序运行前面都没问题，到了输出表时出现了《选择对象:  ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT》 这个，是要修改什么地方吗

seamopan

start4444 发表于 2022-3-16 11:24
(defun str_value (tag shuxing / ii value lst)
  (setq ii 0)
  (while (< ii (length tag))

大佬们能帮忙调一下么

seamopan

seamopan 发表于 2022-3-16 16:39
大佬们能帮忙调一下么

问题游仍而解，非常感谢您；

p-3-ianlcc

seamopan 发表于 2022-3-16 21:57
问题游仍而解，非常感谢您；

请教一下，有没有测试的DWG档可以测试一下吗？
谢谢

seamopan

p-3-ianlcc 发表于 2022-3-17 17:05
请教一下，有没有测试的DWG档可以测试一下吗？
谢谢

本帖前面有发过

seamopan

各位大佬，有个大胆的想法不知道能否实现，此程序现在已可以完美的通过点选属性块中的属性字来获取每一类别的内容并输出列表，能否将后面的四个类别通过点选多行文本来获取指定的内容后输出对应的列表中，前面的三个类别还是保持点选属性字来获取输出；