dinosaurhxe 发表于 2007-10-30 23:01:00

[已解决][求助]如何读取块属性？

本帖最后由 作者 于 2007-12-9 22:26:58 编辑 <br /><br /> <p>假设有一个块X，分别有有一个可编辑的属性A、B、C，怎样用LISP分别读取这三个属性？</p><p>我获取图元表后怎么找不到A、B、C的属性？</p><p>感谢指点！</p>

小鸟 发表于 2024-1-4 18:02:49

ZZXXQQ 发表于 2007-11-1 10:41
给个例子：



刚好在找再楼个脚印下次好回来

猪抢了好昵称 发表于 2021-9-2 23:19:27


版主发的贴是

以下内容需要帖子数达到5才可以浏览


努力发几个贴就可以看了

linyangmjtd 发表于 2019-8-1 10:52:20

我怎么看不见？我正需要这方面的内容

dinosaurhxe 发表于 2007-10-31 21:16:00

请高手指点，谢谢！

ZZXXQQ 发表于 2007-11-1 10:41:00

给个例子：


;显示图块属性
(DEFUN C:PRTATTRIB ()
(SETVAR "CMDECHO" 1)
(IF (AND (PRINC "\nSelect Block with attribute 选择带属性图块 :")
          (SETQ SS (SSGET '((0 . "INSERT") (66 . 1))))) (PROGN
(SETQ I -1)
(REPEAT (SSLENGTH SS)
   (SETQ ENT (ENTGET (SSNAME SS (SETQ I (1+ I))))
         ENT1 ENT)
   (WHILE (= (CDR (ASSOC 0 (SETQ ENT1 (ENTGET (ENTNEXT (CDR (ASSOC -1 ENT1))))))) "ATTRIB")
    (WRITE-LINE (CDR (ASSOC 1 ENT1)))
   )
   (PRINC "\n")
)
))
(SETVAR "CMDECHO" 1)
(PRINC)
)

dinosaurhxe 发表于 2007-11-1 21:34:00

感谢版主指点，没有完全看懂，正在努力中……

dinosaurhxe 发表于 2007-12-9 22:26:00

现在回头看看自己的贴子……

ajing_sky 发表于 2007-12-10 14:46:00

<p>好帖，顶一个！！</p>

lkq67 发表于 2007-12-16 11:33:00

可是我怎么看不见？我正需要这方面的内容

dinosaurhxe 发表于 2007-12-16 20:18:00

<p><font color="#808080">版主发的贴是</font></p><p><font color="#808080">以下内容需要帖子数达到<b>5</b>才可以浏览</font></p><p><font color="#808080"></font></p><p><font color="#808080">努力发几个贴就可以看了。</font></p>

wshark 发表于 2007-12-16 23:59:00

好帖！正需要这方面的内容 没想到一上来就看见了 哈哈 运气太好了

lvbaoqi 发表于 2007-12-19 09:27:00

<font>只能看不到了呢<br/>
        </font>
页: [1] 2 3 4 5 6 7 8 9 10
查看完整版本: [已解决][求助]如何读取块属性？